Fonction maintenant() Résolu/Fermé

Question

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

via55 · Answer

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

DeutschWorker · Answer

Merci pour ta reponse plutot rapide :) 
Ca marche très bien !

Cordialement

Fonction maintenant()

2 réponses

Discussions similaires

Newsletters