annuler deux sub à la suite

[mumu]

Bonjour,

Grace au forum, j'ai réussi à trouver comment quitter une sub (precise_annee) après avoir cliqué sur "annuler" dans une Inputbox mais je bloque sur la suite. Voici le code :

Private Sub Workbook_open()

Call precise_annee
Call sub2
Call sub3

End Sub

Sub precise_annee()
annee = InputBox("Quelle est l'année de travail ?", "précision de l'année")
'Intercepte l'utilisation du bouton "Annuler"
   If annee = "" Then
        MsgBox "opération annulée", vbOKOnly, "INFO"
        Exit Sub
   End If
......

Je voudrais qu'il quitte également la "Private Sub worbook_open" c'est à dire qu'il n'execute pas sub 2 et sub3.

Quelqu'un pourrait-il me trouver une petite solution (si elle existe) ?

D'avance merci !!

Muriel.

 

[smotty]

Re : annuler deux sub à la suite

Bonjour Muriel,

Plusieurs solutions, mais la plus simple:

pourquoi ne pas imbriquer tes subs,😀 ex:

Private Sub Workbook_open()

Call precise_annee


End Sub

Sub precise_annee()
annee = InputBox("Quelle est l'année de travail ?", "précision de l'année")
'Intercepte l'utilisation du bouton "Annuler"
If annee = "" Then
MsgBox "opération annulée", vbOKOnly, "INFO"
Exit Sub
else
Call sub2
Call sub3
End If
......

 

[Evelynetfrancois]

Re : annuler deux sub à la suite

BONJOUR
en passant les call(s) apres

Private Sub Workbook_open()
Call precise_annee
End Sub

Sub precise_annee()
annee = InputBox("Quelle est l'année de travail ?", "précision de l'année")
'Intercepte l'utilisation du bouton "Annuler"
If annee = "" Then
MsgBox "opération annulée", vbOKOnly, "INFO"
Exit Sub
End If
Call SUB2
Call SUB3
End Sub
salut
E et F

 

[mumu]

Re : annuler deux sub à la suite

Ah ben ça alors......
Je me triture l'esprit pour un truc aussi simple......
En arrangeant deux trois trucs dans "precise_année" je vais pouvoir utiliser ta solution !

Merci à vous deux pour cet éclair de génie !

@ +

Mumu

 

[Evelynetfrancois]

Re : annuler deux sub à la suite

oups pas raffraichi
bonjour smotty

 

[jp14]

Re : annuler deux sub à la suite

Bonjour à tous

Ci dessous le code modifiée.
Passage d'un paramètre

procédure appelante
Private Sub Workbook_open()
Dim retourw As Boolean
retourw = False
Call precise_annee(retourw)
If retourw = True Then Exit Sub ' test du retour
Call sub3

End Sub

procédure appelée

 [COLOR="red"]Sub precise_annee(retourw As Boolean)[/COLOR]
annee = InputBox("Quelle est l'année de travail ?", "précision de l'année")
'Intercepte l'utilisation du bouton "Annuler"
   If annee = "" Then
        MsgBox "opération annulée", vbOKOnly, "INFO"
        [COLOR="red"]retourw = True[/COLOR]
        Exit Sub
   End If
End Sub

Les paramètres sont passés par référence : "By Ref" adresse de la variable.
La modification de la variable dans la procédure appelée entraine la modification dans la procédure appelante.
A tester

JP

 

[smotty]

Re : annuler deux sub à la suite

bonjour E et F, JP,

Comme je disais, plusieurs solutions...

A+

 

[mumu]

Re : annuler deux sub à la suite

Salut tt le monde,

Merci pour ces réponses !
JP14, Merci pour le code mais il ne marche pas sur ma macro, la sub3 est executée quand j'annule l'Inputbox.

@+

Mumu

 

[mumu]

Re : annuler deux sub à la suite

Pardon Jp14 !

Ton code marche parfaitement, c'est moi qui avait oublié une ligne dans precise_annee

Merci à tt le monde pour ces solutions !!

@ +

Mumu

 

[jp14]

Re : annuler deux sub à la suite

Salut tt le monde,

Merci pour ces réponses !
JP14, Merci pour le code mais il ne marche pas sur ma macro, la sub3 est executée quand j'annule l'Inputbox.

@+

Mumu

J'ai testé en pas à pas et la procédure fonctionne.

Il faut rajouter "retourw = True" dans la procédure appelée.

JP

 

[mumu]

Re : annuler deux sub à la suite

Oui effectivement c'est ce que je précisait juste avant, j'avais oublié une ligne....
J'ai voulu aller trop vite !

Merci encore et @ +

Mumu