Date du jour si ligne modifiée

Bonjour,

Je souhaiterai insérer la date du jour dans une colonne lorsqu'une ligne est modifiée.

Merci d'avance

Bonjour,

Tu peux adapter le code suivant, qui ajoute la date du jour dans la cellule à droite :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   Application.EnableEvents = False
    With Target
        If .Cells.Count > 1 Then Exit Sub
        .Offset(0,1).Value = Date
        .Offset(0,1).NumberFormat = "dd-mm-yy"
    End With
    Application.EnableEvents = True
End Sub

A+

Merci, mais cela inscrit la date dans toutes les cellules de la ligne

Comment faire pour que cela s'inscrive dans la colonne Z ?

Pour être complet, quelle est la colonne de mise à jour qui doit déclencher le processus ?

A+

Si la date doit apparaitre dans la colonne Z à partir du changement de n'importe laquelle des cellules de la même ligne ...

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.EnableEvents = False
    With Target
        If .Cells.Count > 1 Then Exit Sub
        .Offset(0, 26 - Target.Column).Value = Date
        .Offset(0, 26 - Target.Column).NumberFormat = "dd/mm/yy"
    End With
    Application.EnableEvents = True
End Sub

A+

En fait, le processus de modification doit se faire de la colonne A à la colonne R

As-tu déjà testé le dernier code ... qui devrait être opérationnel pour toutes les colonnes sans restriction ... ?

Bien sûr, il y a moyen de restreindre la zone à tes colonnes précisément ...

A+

Oui cela fonctionne très bien. Mais je souhaite tout de même restreindre à ces colonnes

OK ...

Pour restreindre la zone qui lance le code, il te suffit d'ajouter en première ligne :

If Intersect(Target, Range("A:R")) Is Nothing Then Exit Sub

Merci de confirmer que tout fonctionne ...

A+