Fonction maintenant()

Résolu
DeutschWorker Messages postés 27 Statut Membre -  
DeutschWorker Messages postés 27 Statut Membre -
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. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    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
  2. DeutschWorker Messages postés 27 Statut Membre
     
    Merci pour ta reponse plutot rapide :)
    Ca marche très bien !

    Cordialement
    0