Private Sub CommandButton1_Click()
Der = Range('A65536').End(xlUp).Row
Range('A' & Der).Select
Selection.AutoFill Destination:=Range('A' & Der & ':A' & Der + 1), Type:=xlFillDefault
End Sub
Oups :unsure: je cale sur la même procédure mais pour une autre donnée et une autre celulle.
Voilà, j'ai la même chose à faire pour une autre case (la D3) mais dans laquelle les données commencent par 'FA 05/....' (FA 05/0001).
Donc moi j'ai recopié et adapter la macro de Jean-Marie mais il ne fonctionne pas avec cette donnée.
Voilà ce que j'ai mis:
Private Sub CommandButton1_Click()
Range('D3') = 'FA 05/' + Format(Mid(Range('D3'), 3, 4) + 1, '0000')
End Sub
tout d'abord ... merci pour l'aide que vous m'apportez.
Pour ce qui est du code que tu as posté Jean-Marie, il me mets 'erreur de syntaxe' lorsque je clic sur le bouton et il me met en rouge tout la ligne de commande.
Avec vos indications, je viens de réussir le coup.
En fait, j'ai pris le code de Jean-Marie et j'ai rectifié selon les indications de Dan et j'ai retiré les '<strong>' et '</strong>' et le 'RIGHT' et ça marche.
Bref vous êtes coool les gars.
1000 fois merci car sans vous j'aurais bûché dans mes livres tout le W-E.