Bonjour,
Je souhaite ajouter automatique la date dans la colonne A de mon fichier lorsque l'utilisateur remplis les cellules de la colonne B.
J'ai cette procédure, qui est stocké dans un module et qui est appelé dans le Worksheet_change de mon classeur :
Sub formule1()
date_test = Now()
For i = 5 To 20 's'appliqueras de la ligne 5 à 20 :
If Cells(i, 2).Value <> "" Then
Cells(i, 1).Value = Format(date_test, "[$-40C]d-mmm;@")
Else
Cells(i, 1).Value = ""
End If
Next
End Sub
Toutefois, lorsque je remplis la colonne B, la date est bien ajoutée mais j'ai ces deux messages d'erreur qui apparaissent. Le dernier rend inutilisable mon fichier ...
Je me permets donc de solliciter votre aide, vous trouverez mon fichier test ici :
Merci d'avance
Horusbk