Discussion :

[DeaD78]

Salut à toutes et à tous ! (encore )

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

Code :

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

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 :

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

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 :

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

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

[casefayere]

Bonjour,
A mon avis, tout simplement :

Code :

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

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

[spitnolan]

Bonsoir,

Code :

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

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

[DeaD78]

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

[DeaD78]

Bonjour,

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

A bientôt