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 : Sélectionner tout - Visualiser dans une fenêtre à part
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