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
A voir également:

2 réponses

via55 Messages postés 14730 Statut Membre 2 749
 
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
DeutschWorker Messages postés 27 Statut Membre
 
Merci pour ta reponse plutot rapide :)
Ca marche très bien !

Cordialement
0