Aller à une ligne précise d'une sub par click sur un bouton

[BASSDINGUE]

bonjour le forum,

question du jour:
Comment, à partir d'un click sur un bouton d'un userform aller à une ligne précise d'une autre sub
Voila, c'est tout pour l'instant
bonne journée

 

[smotty]

Re : Aller à une ligne précise d'une sub par click sur un bouton

Bonjour à tous,

Tu peux passer une variable à l'autre procédure.

ex : call Procedure2(1)

En suite faire un test,

sub Procedure2(byval V as integer)
if V=1 then

...code...

end if
end sub

EN espérant avoir répondu à ta question,

Cordialement

 

[BASSDINGUE]

Re : Aller à une ligne précise d'une sub par click sur un bouton

le (1) que tu a mis correspond t-il à la ligne de de la sub?

 

[smotty]

Re : Aller à une ligne précise d'une sub par click sur un bouton

ça ne correspond pas à une ligne précise mais permets d'exécuter la partie du code qui t'intéresse.

Maintenant, ce n'est peut-être pas ce que tu souhaite faire?

Peux-tu être plus précis? Veux-tu directement modifier le code vba par macro, ou simplement exécuter une partie du code selon évènement?

 

[BASSDINGUE]

Re : Aller à une ligne précise d'une sub par click sur un bouton

Je veux simplement exécuter une partie du code selon évènement!

 

[smotty]

Re : Aller à une ligne précise d'une sub par click sur un bouton

Alors ma réponse devrait convenir.

Pour être plus précis:

Sub_commandbutton1_click()
if condition1 then call Procedure2(1) 'ces valeurs sont des exemples
if condition2 then call Procedure2(2)
end sub

sub Procedure2(byval V as integer)
select case V
case 1
---code ici
case 2
---code ici

etc....
end select
end sub

Si tu as des difficultés à comprendre ce code alors je te conseille d'étudier un peu le vba.

Cordialement

 

[Lii]

Re : Aller à une ligne précise d'une sub par click sur un bouton

Bonjour,

autre exemple, pour finir l'exécution d'une procédure en partant d'une certaine ligne.
Dans la macro d’appel (click), introduire une variable booléenne,

 [COLOR=Blue]Dim Aller As Boolean[/COLOR] (ici ou dans le module où la seconde macro est écrite en remplaçant Dim par Public )

 [COLOR=Blue]Sub ... Click()[/COLOR]
   [COLOR=Blue]   ...[/COLOR]
  [COLOR=Blue]   Aller = True[/COLOR]
     [COLOR=Blue]Chose
End Sub[/COLOR]

Commencer la deuxième macro par un test de la booléenne :

[COLOR=Blue]Sub Chose()[/COLOR]
  [COLOR=Blue]    If Aller = False Then[/COLOR]
  [COLOR=Blue]        … [COLOR=Black]‘partie à éviter avec le clic[/COLOR][/COLOR]
  [COLOR=Blue]    End if[/COLOR]
  [COLOR=Blue]        …  [COLOR=Black]‘début ici avec le clic[/COLOR][/COLOR]
    [COLOR=Blue]  Aller = False [COLOR=Black]‘ pour pouvoir relancer cette macro sans passer par le clic[/COLOR][/COLOR]
  [COLOR=Blue]End sub[/COLOR]

Tu peux n'exécuter qu'une partie du code avec d'autres booléennes mais, si les cas se multiplient, choisis plutôt la proposition de smotty.

 

[BASSDINGUE]

Re : Aller à une ligne précise d'une sub par click sur un bouton

merci lii et smotty

je crois que je vais pouvoir me debrouiller avec vos exemples

merci et bonne journee