Problème d'Exit Sub

Salut à toutes et à tous ! (encore :oops:)

Voilà mon nouveau problème. J'ai donc une partie de mon code qui donne :

Code:

---

1 2 3 4 5 6 7 8 9

While Not bool NbMod = InputBox("Combien de modules y a-t-il ?", "Nombre de modules") If StrPtr(NbMod) = 0 Then Exit Sub If (Not IsNumeric(NbMod) Or Val(NbMod) <= 0) Then MsgBox "Veuillez introduire un nombre strictement supérieur à 0.", vbCritical Else bool = True End If Wend

---

La ligne

Code:

---

If StrPtr(NbMod) = 0 Then Exit Sub

---

me permet donc, une fois le bouton "Annuler" cliqué, de sortir de mon programme tout simplement. Pour l'instant, cela marche très bien, une fois le bouton enfoncé, je quitte l'ensemble de mon programme qui n'a plus besoin d'être continué.

Maintenant, je veux ajouter une commande supplémentaire à faire avant "d'Exit Sub", comme supprimer certaines lignes, par exemple.
J'avais donc pensé à un :

Code:

---

1 2 3

If StrPtr(NbMod) = 0 Then 'Liste de choses que je souhaite faire avant de tout quitter Exit Sub

---

Et bien sûr, le "Wend" n'a plus son "While".

Comment faire alors pour tout quitter et ne pas continuer la suite du programme lorsque j'appuie sur ce bouton tout en faisant quelques actions avant?

En tout cas merci d'avance ! ;)

Edit : j'ai remplacé mon Exist Sub par End, je trouvais ça mieux :P

Bonjour,
A mon avis, tout simplement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

While Not bool NbMod = InputBox("Combien de modules y a-t-il ?", "Nombre de modules") If StrPtr(NbMod) = 0 Then 'ce que tu veux faire end If (Not IsNumeric(NbMod) Or Val(NbMod) <= 0) Then MsgBox "Veuillez introduire un nombre strictement supérieur à 0.", vbCritical Else bool = True End If Wend

---

Bonsoir,

Code:

---

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

While Not bool NbMod = InputBox("Combien de modules y a-t-il ?", "Nombre de modules") If StrPtr(NbMod) = 0 Then 'ce que tu as à faire.... Exit Sub End if If (Not IsNumeric(NbMod) Or Val(NbMod) <= 0) Then MsgBox "Veuillez introduire un nombre strictement supérieur à 0.", vbCritical Else bool = True End If Wend

---

Cordialement

Merci à tous les 2 !

Je teste ça dès que j'ai mon code sous la main et je vous tiens au courant !

Bon Week-End à vous et à bientôt :salut:

Bonjour,

Merci spitnolan, le problème venait effectivement du fait qu'il fallait refermer la condition :king:

A bientôt ;)