Bonjour,

Je suis novice en VBA sur Excel
Je souhaite faire une fonction qui génère la date automatiquement (dans la cellule A4 pour la première)dès qu'une certaine cellule n'est pas vide (en l'occurrence la B4 et en incrémentant cette dernière , B5, B6 ... pour que la date soit dans A5, A6, ...)
Mon code semble bon, aucune erreur n'y est détectée, je fais exécuter mais il ne se passe rien, merci de m'aider à comprendre ce que je fais mal; Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub automatiser_date()
Dim nb As Integer ' nb = le nombre de lignes max
Dim c As Integer ' c = le n° de la ligne
    For c = 4 To nb ' pour faire les cellules de la 4 au max
        If Cells(c, 2).Value <> "" Then ' cells(n°cellule, n°colonne) différent de vide
            If Cells(c, 1).Value = "" Then ' et si la cellule de date n'est pas vide
            Cells(c, 1).Value = Date ' y mettre la date
            End If ' sinon il ne se passe rien, cela évite que la date ne s'ecrase chaque jour
        End If
    Next
End Sub