[XL-2007] Macro incrémentation d'une cellule

Macro incrémentation d'une cellule

Bonjour à tous,
je suis débutant en VBA et dans le cadre de ma formation d'apprenti ingénieur, je suis en charge dans ma société de développer une ébauche de logiciel de GPAO.

Mon problème est le suivant: je veux créer un classeur qui remplit automatiquement un accusé de réception. La mise en page n'est évidemment pas un problème mais je bute sur le problème du numéro d'accusé de réception.

J'aimerais qu'il s'incrémente lorsque l'on clique sur un bouton avec une demande de confirmation. Je ne pense pas être très clair donc je vous copie ce que j'ai essayé de faire:
Code:

1 2 3 4 5 6 7 8 9 Sub increment() Application.Worksheets("Accusé de réception").Range ("A1") Range(A1).Value = 100101 confirm = MsgBox("Voulez vous créer un nouveau numéro d'accusé de réception?", vbYesNo) Select Case (confirm) Case vbYes Range("A1") = Range("A1") + 1 End Select End Sub
Ca ne marche absolument pas, et d'autre part j'aimerais que le numéro reste en mémoire lorsque je ferme et réouvre excel.

Auriez vous des piste?

Cordialement

Hello,

Essaie comme ceci

Code:

1
2
3
4
5
6
7
8
Sub increment()
Sheets("Accusé de réception").Range("A1").Select
confirm = MsgBox("Voulez vous créer un nouveau numéro d'accusé de réception?", vbYesNo)
Select Case (confirm)
Case vbYes
Range("A1") = Range("A1") + 1
End Select
End Sub

Bonne journée, Anto.

Merci de ton aide, en fait mon problème venait du fait que le bouton du macro était placé sur une autre feuille, consacrée à la saisie.

Cordialement