Discussion :

[PhNou]

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

[zazaraignée]

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) 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.

[PhNou]

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