mohamed

mail@pastecode.io avatar
unknown
vbscript
23 days ago
687 B
1
Indexable
Never
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
Leave a Comment