Utilisation Exit Sub
Bonjour,
J'ai un soucis avec le Exit Sub de mon programme je ne comprends pas lorsque je passe dans le if et si la valeur et à non je devrais sortir de mon programme grace au Exit sub alors que la il continu je vous donnes un échantillon du programme
Y a t-il un moyen pour arrêter le programme au niveau du Exit Sub et ne pas faire le restant du code.
Le programme et lancé par un UserForm qui contient plusieurs TextBox .
Sub Gestion_de_Stock_Mod10(varcrayon As Variant, flagcrayon As Variant, vargomme As Variant, flaggomme As Variant, varregle As Variant, flagregle As Variant, varcarton_papier, flagcarton_papier)
'
If vargomme + varregle + varcarton_papier + varcrayon = "" Then
new_saisie = InputBox("Vous n'avez rien saisie voulez vous une nouvelle saisie OUI/NON?")
Else
GoTo deb
End If
If new_saisie = "oui" Then
UserForm3.Show
Else
Exit Sub
End If
deb:
jour = Day(Date)
For Each Cellule In Range("A4:A35")
[.....]
End Sub
J'ai un soucis avec le Exit Sub de mon programme je ne comprends pas lorsque je passe dans le if et si la valeur et à non je devrais sortir de mon programme grace au Exit sub alors que la il continu je vous donnes un échantillon du programme
Y a t-il un moyen pour arrêter le programme au niveau du Exit Sub et ne pas faire le restant du code.
Le programme et lancé par un UserForm qui contient plusieurs TextBox .
Sub Gestion_de_Stock_Mod10(varcrayon As Variant, flagcrayon As Variant, vargomme As Variant, flaggomme As Variant, varregle As Variant, flagregle As Variant, varcarton_papier, flagcarton_papier)
'
If vargomme + varregle + varcarton_papier + varcrayon = "" Then
new_saisie = InputBox("Vous n'avez rien saisie voulez vous une nouvelle saisie OUI/NON?")
Else
GoTo deb
End If
If new_saisie = "oui" Then
UserForm3.Show
Else
Exit Sub
End If
deb:
jour = Day(Date)
For Each Cellule In Range("A4:A35")
[.....]
End Sub
Configuration: Windows XP Firefox 3.0.12
3 réponses
-
Essaye avec un Goto Fin
...
...
...
Fin:
End sub
Mais je ne vois pas pourquoi il ne marche pas ton exit sub... -
Bonjour
Le Exit Sub fonctionne très bien. S'il ne s'exécute pas, c'est parce que tu n'y passes pas.
En effet, ton code saute directement à deb: car ton test initial est mauvais :
essaye
If vargomme & varregle & varcarton_papier & varcrayon = "" Then
au leu de
If vargomme + varregle + varcarton_papier + varcrayon = "" Then -
Utilise les points d'arrêt pour comprendre ce que fait ton code.
