Fonction maintenant()

Résolu
Bonjour à tous,

Après avoir arpenté les forums j'ai trouvé cette formule VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
Target.Offset(0, -2) = Now
End If
End Sub


Qui me permet en effet d'automatiser l'insertion de la date et l'heure (qui se fige) en A lorsque que je change une donnée dans C. Cependant je souhaiterais maintenant la même chose mais quand je change une donnée dans la ligne et non plus que dans une seul cellule.
Malheureusement je ne connais rien en VBA, je comprends lorsque je vois une formule déjà faite mais je suis incapable d'en créer une par moi-même.

Merci pour l'attention que vous porterais a mon post.
Cordialement
Charles

2 réponses

  1. Bonjour

    Private Sub Worksheet_Change(ByVal Target As Range) 
    If  Target.column >1 Then ' si changement  à partir de la colonne 2
    Range("A" & target.row) = Now ' inscription date et heure en A de la ligne
    End If 
    End Sub


    Cdlmnt
    Via
    0
    1. Merci pour ta reponse plutot rapide :)
      Ca marche très bien !

      Cordialement
      0