Discussion :

[RachelG]

Bonjour,

je réalise présentement un tableau avec plusieurs colonnes et lignes pour le travail.
Plusieurs employés devront eux-mêmes modifier des informations et j'aimerais que dans la colonne de mise-à-jour, la date s'inscrive automatiquement lorsque des informations seront insérées dans une ligne.

Exemple, si quelqu'un change quelque chose ou ajoute quelque chose n'importe ou dans la ligne 5, j'aimerais qu'en AD5 la date se modifie automatiquement.

Merci

[MarcelG]

Bonjour,

Bienvenu sur le Forum.

Pour ce faire, il te suffit de gérer l'évènement Change de ta feuille de travail.

Code :

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

1
2
3
4
5
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 30) = Format(Date, "dd mmm yyyy")
End Sub

[RachelG]

Bonjour!

C'est probablement moi qui fait mal la manoeuvre nécessaire mais ça ne fonctionne pas!

[BENNASR]

bonsoir
à mettre dans la feuille appropriée et sous l'évenement worksheets_change

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A5:AC5")) Is Nothing Then Exit Sub
If Target.Value <> "" Then Cells(5, 30) = Date
End Sub

[MarcelG]

Salut,

As-tu placé la procédure au bon endroit?

Benassr,

Ton code effectuera toujours la mise à jour à la cellule AD5.
Si j('ai bien compris, notre amie souhaite la voir informée à la colonne AD(30) sur la ligne à laquelle la modification a été effectuée.

[RachelG]

Salut Marcel!
Ton code fonctionne, la date se modifie automatiquement mais en quelques secondes ma page bogue et se ferme ensuite!

[MarcelG]

Bonjour Rachel,

mais en quelques secondes ma page bogue

Pourrais-tu retourner
1 - le code intégral qui entraîne l'anomalie et la ligne correspondante à celle-ci (surlignée en jaune)
2 - la présence éventuelle d'autres évènements dans ton classeur (Change, BeforeSave...)