Bonsoir,

j'ai effectué une macro en intégrant des étiquettes.

ça fonctionne bien la première fois, mais les fois suivantes il y a un bug.

J'ai cherché, mais je ne vois pas d'où vient mon erreur.
Merci pour votre aide.
Bonne soirée.

Voici l'écriture de ma macro :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub macro4()
 
Dim reponse As String
Dim nomfeuille As String
 
debut:
reponse = MsgBox("Voulez-vous ajouter une feuille", vbYesNo, vbQuestion)
 
reponseoui:
Sheets.Add
nomfeuille = InputBox("quel est le nom de la feuille que vous souhaitez nommer")
ActiveSheet.Name = nomfeuille
GoTo debut
 
reponseno:
MsgBox ("Vous avez choisi de ne pas ajouter une feuille. La macro va donc s'arrêter"), vbInformation
 
 
If reponse = vbYes Then GoTo reponseoui
 
 
If reponse = vbNo Then GoTo reponseno
 
Exit Sub
 
End Sub
Si besoin l'instruction qui m'a été donnée :

Créer une macro qui vous demande si vous voulez ajouter une feuille avec les boutons "oui" et "non".
Si vous répondez "oui", la macro doit :
Vous renvoyer vers une étiquette
Ajouter une feuille
Vous demander le nom de la feuille et donc la renommer
Retouner à la demande d'ajout de feuille

Si vous répondez "non", la macro doit :
Vous renvoyer vers une étiquette
Vous afficher le message : "Vous avez choisi de ne pas ajouter une feuille. La macro va donc s'arrêter."
Quitter la macro


Encore Merci