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 :
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"
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
Je vous remercie d'avance pour une réponse, une suggestion, ou une piste.
PhNou
Partager