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

  • Initiateur de la discussion Initiateur de la discussion Anna
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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>
 
<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>
 
<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>
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
382
  • Question Question
Microsoft 365 Lien vers pdf
Réponses
3
Affichages
144
Retour