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

desmonts · 20 Juin 2018

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 · 20 Juin 2018

Bonsoir le fil, le forum

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

VB:

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 · 21 Juin 2018

Merci JM c'est parfait.

desmonts · 21 Juin 2018

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.

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

desmonts

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

desmonts

XLDnaute Occasionnel

desmonts

XLDnaute Occasionnel

Pièces jointes

Discussions similaires