[Résolu] Dates avec un décalage automatique d'une semaine

Je ne dirais qu'une chose, Sylvain "MERCI"

C'est exactement ce que je cherche Bon je m'en vais sur mon autre topic réexpliquer mieux puisque visiblement je me suis mal exprimé hier soir...

Pour que mon truc soit au top, ça serait cool que la dernière case remplie s'affiche automatiquement en vert par exemple.

Alors on va modifier un peu le code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim I As Byte, n As Byte
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
n = InputBox("Nombre de cellule à recopier")
For I = 1 To n
Target.Offset(I, 0) = Target + I * 7
Next I
Target.Offset(n, 0).Interior.ColorIndex = 4
End If
End Sub

Thx.

Erreure compil' :'(

Ooouppps

J'ai modifié le code, j'avais laissé trainer un "end if"...

Je test

Perfect