Goto

[LaurentG]

Bonjour,

J'ai un USF avec un bouton.
En cliquant dessus, j'aimerai aller dans le module 'module1' et aller au signet 'suite:'. (Car j'aimerai passer les premières lignes du module1).

Y'a-t-il un moyen?

Merci

Laurent

 

[Creepy]

Re : Goto

Bonjour le Forum, Laurent,

Le simple est de passer dans ton module un argument de type Boolean (Vrai/faux) et après tu gères un if

comme ceci :

Sub Test(Launch_First_Line As Boolean)
If Launch_First_Line = True Then
    MsgBox "1ere ligne !!"
End If
MsgBox "2eme ligne"
End Sub
Sub Bouton_False_Click()
    Call Test(False)
End Sub
Sub Bouton_True_Click()
    Call Test(True)
End Sub

A+

Creepy

 

[Robert]

Re : Goto

Bonjour Laurent, bonjour le forum,

Je te propose la bidouille suivante. Utiliser une variable de type Boolean déclarée Publique (Public) dans le module1 (Pubic test As Boolean par exemple). Dans le code du clic du bouton Private Sub CommandButton1_Click() tu donnes à cette variable la valeur True (test = True) et tu appelles la procédure du Module1. Ensuite dans la procédure du module1 tu gères avec un code du style :

Sub Macro1()
If test = True Then
    test = False
    GoTo suite
End If
 
'tes lignes de code du début
 
suite:
'tes lignes de code qui agiront
End Sub

Édition :

Bonjour Creepy on s'est croisé.

 

[PascalXLD]

Re : Goto

Bonjour

pour éviter les goto issue du basic pourquoi ne pas passer par 2 procédures différentes; de plus c'est souvnet plus facile à gerer que des goto

Bonne journée