Bonjour,
je voudrais qu'après chaque mise à jour de cellule dans la ligne 5, la date soit mise à jour dans la ligne 6.
Pour cela j'ai trouvé le code suivant, qui fonctionne bien :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [B1:AG1]) Is Nothing Then
Target(2, 1) = Date + Time
End If
End Sub
Par contre, j'aimerai ajouter la condition suivante : ne mettre la date que si la cellule en ligne 1 n'est pas vide.
Il faudrait donc que le code permettre d'actualiser la date après chaque changement de valeur SI cette valeur n'est pas nulle.
Quelqu'un peut-il m'aider ?
Merci.
je voudrais qu'après chaque mise à jour de cellule dans la ligne 5, la date soit mise à jour dans la ligne 6.
Pour cela j'ai trouvé le code suivant, qui fonctionne bien :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [B1:AG1]) Is Nothing Then
Target(2, 1) = Date + Time
End If
End Sub
Par contre, j'aimerai ajouter la condition suivante : ne mettre la date que si la cellule en ligne 1 n'est pas vide.
Il faudrait donc que le code permettre d'actualiser la date après chaque changement de valeur SI cette valeur n'est pas nulle.
Quelqu'un peut-il m'aider ?
Merci.