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 :
Si besoin l'instruction qui m'a été donnée :
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
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
Partager