Explication VBA [Excel]

Résolu
olympiklyon Messages postés 63 Date d'inscription   Statut Membre Dernière intervention   -  
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un code que je dois expliquer dans mon rapport de stage mais je ne sais pas "traduire" le code

quand quelque chose est noté dans la colonne I la date se met juste à coté

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("I2:I100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("k2:k100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("M2:M100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
If Not Application.Intersect(Target, Range("O2:O100")) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
End Sub


Merci


A voir également:

1 réponse

Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Salut le forum

Quand quelchose est inscrit dans une cellule des plages I2:I100, K2:K100, M2:M100 ou O2:O100 alors
la date du jour est automatiquement écrite dans la cellule voisine.

Mytå
0