Discussion :

[patch2007]

Bonjour,

Dans un tableau Excel
Dans la colonne A : Date de modification de la ligne
Dans les autres colonnes : je peux modifier les valeurs.

Mon souhait :
Lorsque je modifie une valeur dans les colonnes B à xxxxx, je veux que dans la colonne A et sur la ligne que j'ai modifié, se note la date du jour.

Fonction ou macro ?

Merci

Pat

[Philippe Tulliez]

Bonjour,
Je ne vois pas une autre solution que passer par du VBA.
A placer dans l'objet de la feuille où se trouve le tableau en question.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 2 Then Cells(Target.Row, 1) = Date
End Sub

Il y aura peut-être des modifications à faire si par exemple il faut contrôler que la première ligne ne peux pas contenir de date et éventuellement faire en sorte que certaines lignes ne doivent pas être pris en compte etc...

[patch2007]

Bonjour,

Bien, mais je souhaite mettre une date en A si la valeur en colonne B ou C a changé.

Comment ferais-tu ?

Merci

Pat

[Philippe Tulliez]

Bonjour,
Je ferais comme je te l'ai écrit plus haut en ajoutant la colonne C soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 With Target
  If .Column = 2 Or .Column = 3 Then Cells(.Row, 1) = Date
 End With
End Sub

[patch2007]

Bonjour Philippe,

Très bien cela fonctionne.

Et si je veux que cela marche pour tout le fichier Excel quelque la feuille.

Comment ferais-tu ?

Merci

Pat

[Philippe Tulliez]

Bonjour,
Au lieu d'utiliser l'événement de la feuille, utiliser celui de ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 With Target
  If .Column = 2 Or .Column = 3 Then Cells(.Row, 1) = Date
 End With
End Sub

[patch2007]

Bonjour,

C'est OK

Merci

Pat