remplissage automatique d'une cellule en fonction d'une autre

[desmonts]

Bonjour à toutes etous,
J'ai fait une petite macro qui met la date du jour dès que on modifie une des cellules de la colonne B. Par exemple quand on modifie la cellule B2 la date du jour est ajouté en C2. Par contre quand j'étends le contenu de la cellule B2 de B3 à B8 par exemple là les cellules B3 à B8 reste vide. Auriez vous une solution que même quand on tire une cellule sur des autres les cellules concernées de C indique la date du jour.
Par avance merci de votre aide.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B" & Range("B65535").End(xlUp).Row)) Is Nothing And Target.Count = 1 Then
Target.Offset(0, 1) = Format(Date, "dd mmmm yyyy")
End If
End Sub

 

[Staple1600]

Bonsoir le fil, le forum

@desmonts
Remplaces ton code par celui-ci.
Est-ce le résultat souhaité?

Private Sub Worksheet_Change(ByVal R As Range)
If Not Intersect(R, Columns(2)) Is Nothing Then
R.Offset(, 1) = Format(Date, "dd mmmm yyyy")
End If
End Sub

 

[desmonts]

Merci JM c'est parfait.

 

[desmonts]

Merci à Staple 1600
A mince, il y a un petit effet indésirable quand j'essai supprimer le contenu des cellules des colonne B et C en même tps il me met la date du jour dans la colonne D.