mohamed
unknown
vbscript
a year ago
687 B
10
Indexable
Sub PasserALaCelluleSuivante() Dim celluleActuelle As Range Dim feuille As Worksheet ' Spécifie la feuille de travail Set feuille = ThisWorkbook.Sheets("NomDeVotreFeuille") ' Spécifie la cellule actuelle (B10 au début) Set celluleActuelle = feuille.Range("B10") ' Vérifie si la cellule actuelle est vide Do While celluleActuelle.Value <> "" ' Si la cellule actuelle n'est pas vide, passe à la cellule en dessous Set celluleActuelle = celluleActuelle.Offset(1, 0) Loop ' Place la valeur de la cellule B12 dans la première cellule vide trouvée celluleActuelle.Value = feuille.Range("B12").Value End Sub
Editor is loading...
Leave a Comment