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
969

Membres actuellement en ligne

Statistiques des forums

Discussions
313 276
Messages
2 096 760
Membres
106 744
dernier inscrit
sshkm16