Bonjour,
J'aimerais savoir si il existe une autre façon d'écrire le code ci-dessous, en sachant que je souhaite aller jusqu'à la dernière colonne, et que je souhaite indiquer toutes les 2 colonnes la date du jour :
Merci d'avance pour vos retours,
Eideal44
J'aimerais savoir si il existe une autre façon d'écrire le code ci-dessous, en sachant que je souhaite aller jusqu'à la dernière colonne, et que je souhaite indiquer toutes les 2 colonnes la date du jour :
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.COLUMN = 30 Or Target.COLUMN = 32 Or Target.COLUMN = 34 Or Target.COLUMN = 36 Or Target.COLUMN = 38 _
Or Target.COLUMN = 40 Or Target.COLUMN = 42 Or Target.COLUMN = 44 Or Target.COLUMN = 46 Then
If Target.Row >= 3 Then
Target.Value = Format(Now, "dd/mm/yyyy")
Target.HorizontalAlignment = xlCenter
End If
End If
End sub
Merci d'avance pour vos retours,
Eideal44
Dernière édition: