Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim madate As Date
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
madate = Format(Target.Value, "dd/mm/yy")
Range("A4").Value = madate
Range("B4").FormulaR1C1 = "=RC[-1]+1"
Range("B4").AutoFill Destination:=Range("B4:AF4"), Type:=xlFillDefault
End If
End Sub
Salut Joco7915,
mais ton code ne fait aucune recherche je pense, parcontre celui d'Yvouille fait une rechrche!!
Pour ton code:
En double cliquant sur la céllule B1, il insére la date de la céllule B1 dans la céllule A4 et incrémente cette date jusqu'à la céllule AF4, ou pas?
Si oui, c'est plus simple si :
1- t'insére directement dans la céllule A4 la formule
=aujourd’hui()
2- dans B4 insére
=A4+1
3- tu tires vers la droite de B4 jusqu'à AF4
Bonne soirée