référer l'étiquette d'une autre macro

A

Anna

Guest
<HTML>

Bonjour,

Comment on peut référer à partir de la sub "A" une
étiquette d'une ligne au niveau de la sub "B"?

Merci,</HTML>
 
S

STephane

Guest
<HTML>Si j'ai bien compris je ne pense pas que ce soit possible mais je ne suis pas expert là-dessus ; je vais essayer d'exemplifier pour être sûr d'avoir compris


sub maprocedure_A()
etiquette1 : msgbox ("toto")
etiquette2 : msgbox ("tata")
end sub

sub maprocedure_B()
'où tu veux par exemple faire un goto etiquette2 de A ????
end sub

j'essayerai d'implémenter cela demain

bye
stephane</HTML>
 
S

stephane

Guest
<HTML>L'instruction GoTo ne peut effectuer un branchement que vers des lignes qui appartiennent à la procédure dans laquelle elle est utilisée.

mais il existe GoSub
l'exemple suivant utilise l'instruction GoSub pour appeler une sous-routine au sein d'une procédure Sub. L'instruction Return entraîne la reprise de l'exécution au niveau de l'instruction qui suit immédiatement l'instruction GoSub. L'instruction Exit Sub permet d'empêcher le contrôle de passer accidentellement dans la sous-routine.

Sub GosubDemo()
Dim Num
' Demande à l'utilisateur d'entrer un nombre.
Num = InputBox("Entrez un nombre positif qui " & _
"sera divisé par deux.")
' Utilise la routine uniquement si l'utilisateur entre
' un nombre positif.
If Num > 0 Then GoSub MyRoutine
Debug.Print Num
Exit Sub ' Utilise Exit pour éviter les erreurs.
MyRoutine:
Num = Num/2 ' Effectue la division.
Return ' Renvoie le contrôle à l'instruction.
End Sub ' suivant l'instruction GoSub.</HTML>
 

Discussions similaires

Réponses
25
Affichages
728

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T