[VBA] Sur une saisie oui/non, stocker la date

Bonjour,

J'ai relevé un code très intéressant qui permet, dès que l'on saisit une cellule, de stocker la date de la saisie, par exemple pour tracer les mises à jour dans un tableau :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then ' 1 pour la colonne A With Target.Offset(, 2) ' se réfère à 2 colonnes à droite de A=C .Value = Date ' ou Time pour avoir la date et l'heure .NumberFormat = "dd/mm/yyyy" ' C'est une suggestion End With End If End Sub

---

Dans ma colonne A, j'ai une liste "oui/non"; Je voudrais ajouter dans le code ci dessus un test pour qu'il ne fonctionne que si la valeur est "oui"

Je vous remercie d'avance pour une réponse, une suggestion, ou une piste.
PhNou

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) If (Target.Column = 1) And (Target.Value = "Oui") Then ' 1 pour la colonne A With Target.Offset(, 2) ' se réfère à 2 colonnes à droite de A=C .Value = Date ' ou Time pour avoir la date et l'heure .NumberFormat = "dd/mm/yyyy" ' C'est une suggestion End With End If End Sub

---

Pas testé mais ça devrait marcher.

Bonjour,
je viens de tester juste par copier coller, et ça ne marche pas de suite;
Je vais creuser la question et je te tiens au courant

Merci et à bientot