date automatique dans plusieurs cellules

[nico3869]

Bonjour à tous

je cherche a étendre des dates automatiques créées par macro
à priori, ma commande règle le problème que pour une cellule
Comment faire pour étendre la solution sur les lignes du dessous

Merci d'avance

 

[pierrejean]

Re : date automatique dans plusieurs cellules

Bonjour nico3869

Teste:

Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Address = "$G$10" Then Range("H10") = Now
If Not Intersect(Range("G10:G13", Target)) Is Nothing And Target.Count = 1 Then
  Target.Offset(0, 1) = Now
End If
End Sub

 

[nico3869]

Re : date automatique dans plusieurs cellules

à priori, il ne veut pas me le prendre
erreur de compilation argument non facultatif sur "intersect"

 

[pierrejean]

Re : date automatique dans plusieurs cellules

Re

Toutes mes excuses

Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Address = "$G$10" Then Range("H10") = Now
If Not Intersect(Range("G10:G13"), Target) Is Nothing And Target.Count = 1 Then
  Target.Offset(0, 1) = Now
End If
End Sub

 

[nico3869]

Re : date automatique dans plusieurs cellules

merci pour votre aide