Discussion :

[Mrfreeze117]

Bonjour à tous je me trouve face un problème.

Code :

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

Exit Sub

Ne stop que la macro en cours si une macro fait appelle à une autre macro alors ça ne terminera que la macro en cours et non aussi celle qui l'a appelé.

Y a-t-il un moyen de stopper toute macro en cours exécution?

Merci d'avance

[pasdechances]

Bonjour,

aurais tu pensé a te servir d'une fonction muni d'une variable global ?

tu pourrais inclure un controle d'activiter dans tes macros, comme sa lorsqu'une macro s'arrete tu actualise cette fonction qui informe l'autre macro =)

[Mrfreeze117]

C'est ce que je ferais si il n'existe pas de commande pour tout arrêter d'un coup

[joe.levrai]

Bonjour,

voir si l'instruction "End" correspond à ton besoin

un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Sub toto()
MsgBox "debut toto"
Call tata
MsgBox "reprise toto"
End Sub
 
Sub tata()
If MsgBox("On arrête tout ?", vbYesNo) = vbYes Then End
End Sub

teste ça deux fois :

- la première, tu réponds "Non" au MsgBox
- la seconde, tu réponds "Oui"

Pour te former, les cours et tutoriels Excel : https://excel.developpez.com/cours/

[pasdechances]

Interressant comme utilisation, je ne suis pas le demandeur, mais le "call sub" que tu vien de montrer me seduit tout particulierement.
En revanche soumetton que son probleme soit lier a 2 userform comment devrait-t-il faire ? existe-t-il des racourcis pour arreter les deux userform ?

[Mrfreeze117]

Super merci

Code :

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

End

Marche nickel pour mon besoin.

[pasdechances]

Suis-je bete on a le OnClose ! xD
Désolé

[Invité]

Super merci

Code :

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

End

Marche nickel pour mon besoin.

end c'est brutal!
de plus les variables public si tu en utilise devienne nu!

une fonction c'est plus cool!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
sub test
if Traitement1=false then exit sub
end sub
Function Traitement1() as boolean
if Traitement2=false then exit function
Traitement1=true
end function
Function Traitement2() as boolean
exit function
Traitement2=true
end function

[joe.levrai]

Je suis la Brute
Tu es le Bon
On cherche le Truand


c'est + que radical en effet, d'où mon

voir si l'instruction "End" correspond à ton besoin

qui sous entendais de bien l'aide de cette instruction (elle est très claire sur les abruptitudes que tu soulignes)

[Invité]

nous sommes tous le deux un peut truand!

[Mrfreeze117]

Je cherchais quelque chose de brutal

[joe.levrai]

ahah

rdurupt ... il est pour moi !

[Invité]

ça c'st brutal et en plus c'est marrant! Err.Raise 1664, ThisWorkbook.Name, "Vas donc boire une bière à ma santé!"!