Sujet Précédent Sujet Suivant

Explication VBA [Excel]

Résolu/Fermé
olympiklyon Messages postés 63 Date d'inscription dimanche 21 novembre 2010 Statut Membre Dernière intervention 8 octobre 2012 - 22 juil. 2011 à 19:12
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 22 juil. 2011 à 23:32
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

Réponse 1 / 1
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 953
Modifié par Mytå le 22/07/2011 à 23:33
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