Date de modification

Bonjour,

Dans ma feuille, je dois mentionner en colonne F la date de la dernière modification d'une (ou plusieurs) cellule(s) reprisent de A à E.

Voici le petit programme, mais le résultat ne se met pas dans la colonne F.

Merci pour votre aide

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, [A1:A1500]) Is Nothing Then

Target(1, 2) = Now

End If

End Sub

Bonjour,

Essaie:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1:A1500]) Is Nothing Then
Cells(Target.Row, 6) = Now
End If
End Sub

Mais en l'état, ton code ne s'applique qu'en cas de changement en colonne A (et tu parlais des colonnes de A à E !?)

À quoi sert le On Error Resume Next ?

Bonjour, Salut U.Milité !

Si tu dois mentionner la date, pourquoi y ajouter l'heure !

Remplacer Now par Date !!

Un grand merci à vous deux, ça fonctionne.

Bonsoir U Milité,

Pour la sélection de la plage, de fait je n'ai pas fait attention, j'ai simplement copié mon programme de test qui était basé sur la colonne A.

Encore merci

Oryx