Discussion :

[Leovince]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Antoniom]

Hello,

Essaie comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Leovince]

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