Procédure d'annulation d'une macro

Bonjour,

J'ai créé une macro. Celle-ci commence par un remplissage d'une userform puis, dans un deuxième temps, toute une série d'actions sont effectuées.

J'ai ajouté un bouton "annuler" dans le formulaire. Celui-ci est sencé arreter la procédure. Cependant il n'arrete que la userform et effectue le reste de la macro qui évidemment plante. Voici le code pour mon bouton annuler. pourriez-vous jetter un oeil et me dire ou ca coince?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Annuler_Click()   Dim Comfirm As Single Confirm = MsgBox("Si vous annulez la procédure, vous perdrez toutes les données entrées." _ & "Etes-vous sur de vouloir annuler ?", vbYesNo + vbCritical, "Abandon de la procédure") If Confirm = vbNo Then Exit Sub End If 'Résultal final, pas de prise en compte des données entrées result = False   Unload Me End Sub

---

Peut etre que le probleme se situe lors de l'appel du userform. Je joint donc aussi la structure de la macro.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub OE()   Call ClearContents   'Lancement du Userform UserForm1.Show UserForm1.Hide     Call Toit Call Mur Call Sol Call Vitrage Call Solveur Call Presentation     Sheets("Présentation").Select     End Sub

---

Bonjour,

Tu affiche l'UserForm et tu le cache dans la foulée, comment font les utilisateur pour pouvoir cliquer sur le bouton Annuler ? Il est sur une feuille ?
Pour pouvoir annuler les procédures lancées, il te faut contrôler la valeur d'une variable entre chacune d'elles ou à l'intérieur de chacune d'elles. Une piste :

Code:

---

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 27 28 29 30 31 32

Private Sub BtnAnnuler_Click() Continuer = False End Sub   Sub OE()   Call ClearContents   Continuer = True   'Lancement du Userform UserForm1.Show UserForm1.Hide   If Continuer = False Then Exit Sub Call Toit If Continuer = False Then Exit Sub Call Mur If Continuer = False Then Exit Sub Call Sol If Continuer = False Then Exit Sub Call Vitrage If Continuer = False Then Exit Sub Call Solveur If Continuer = False Then Exit Sub Call Presentation     Sheets("Présentation").Select   End Sub

---

Dans un module standard :

Code:

---

1 2	Public Continuer As Boolean

---

Hervé.

Ca ne serait pas plutot un VBYES là ?

Code:

---

1 2 3

If Confirm = vbYes Then Exit Sub End If

---

tu souhaites bien arrêter la macro avant les call ci-dessous? dans ce cas mets les call dans ton bouton de formulaire dans la condition s'il n'arrête pas.

Code:

---

1 2 3 4 5 6

Call Toit Call Mur Call Sol Call Vitrage Call Solveur Call Presentation

---

bonjour Theze,

J'ai un bouton sur une des page excel qui apelle ma macro OE et commence par ouvrir le userform. celui-ci possede les 2 bouton basique annuler valider. Cependant, le problème réside dans le fait que si je clique sur annuler le userform se ferme et ne prends pas en compte les données éventuellement introduites et lance la suite des opérations qui ne fonctionnement pas vu qu'elles ont besoin des valeurs du userform.

Je souhaite donc que lorsque qu'on quitte le userform par e bouton annuler la suite de la macro OE ne soit pas éffectuée.

Oliv-, ce n'est pas VBYes le problème (je ne peut pas expliquer pourquoi) je vais essayer de placer les call dans le userform.

Merci beaucoup a vous deux

Bon, j'ai testé tout de suite ce fonctionne correctement, merci Ovil-.

Mais j'ai une autre question. Je ne sais pas si c'est faisable mais je tente quand même.

Lorsqu’on clique sur le bouton raccourcis lié à la macro pour la première fois, lance le formulaire vide.
Si on remplit le formulaire, et qu'on clique sur valider, la macro s'effectue normalement et propose un résultat.
Une fois ce résultat obtenu on peut recliquer sur le bouton qui lance la macro et on se retrouve dans le même formulaire mais cette fois les valeurs introduites sont restées en mémoire.
On peut changer ce qu'on veut et recliquer sur valider ca marche parfaitement.

Si on clique sur annuler la macro s'arrête (super) mais les données qu'on avait introduite avant ne sont plus gardées en mémoire. Serait-il possibles qu’elles le restent?

Merci et bon appétit.

Re,

Il te faut boucler sur tes contrôles et stocker leurs valeurs dans une feuille que tu peux cachée et récupérer ces valeurs à l'ouverture de ta Form.

Hervé.

Citation:

---

Envoyé par Theze

Re,

Il te faut boucler sur tes contrôles et stocker leurs valeurs dans une feuille que tu peux cachée et récupérer ces valeurs à l'ouverture de ta Form.

Hervé.

---

Pas mieux !

ok, merci beaucoup pour votre aide.