déplacement dans macro après fermeture userform

[bellous]

Bonjour,

J'ai construit une macro. Depuis celle-ci j'appelle un userform avec 2 boutons. Le premier "oui" ferme l'userform et retourne à la ligne suivante de userform2.show et continue le déroulement de la macro. Pour le second, je souhaiterai que le bouton "non" me branche directement à end sub de ma macro ou bien à un numéro d'instruction dans la macro.
Est-ce possible .
Merci de vos réponses

 

[Pierrot93]

Re : déplacement dans macro après fermeture userform

Bonjour Bellous

pas sur d'avoir tout compris... peut être un "unload me" lié à l'événement click de ton bouton... un "exit sub" dans une procédure... A voir, mets peut être un fichier en pièce jointe ou soit plus explicite sur la demande.

bonne journée
@+

 

[bellous]

Re : déplacement dans macro après fermeture userform

Bonjour pierrot93,

Pardon pour les explications confuses.
Je joint un fichier qui expliquera mieux.
Le bouton "oui " me branche à l'intruction : Range("a1").Name = "début_liste" et la macro se poursuit normalement.
Je souhaiterai que le bouton "non" me branche directement au N° 100 de ma macro.
Est-ce plus clair ?

Merci par avance

 

[bellous]

Re : déplacement dans macro après fermeture userform

mon problème n'a pas de solution ?

 

[Pierrot93]

Re : déplacement dans macro après fermeture userform

Re

pas sur d'avoir tout compris, mais s'il s'agit de sortir de la procédure, essaye comme ceci :

Private Sub CommandButton1_Click()
     Unload UserForm4
     End
End Sub

@+

 

[bellous]

Re : déplacement dans macro après fermeture userform

très bien pour sortir de la procédure, mais j'aurai souhaité aller à l'instruction 100 de ma macro

 

[Pierrot93]

Re : déplacement dans macro après fermeture userform

Re

alors avec une variable "public", dans le module de ton USF, code de ton bouton 2 :

Private Sub CommandButton2_Click()
    c = True
End Sub

dans le module 1, ta macro transformé modifiée :

Public c As Boolean
Sub Macro1()
        UserForm4.Show
    If c = True Then GoTo 100
        Range("a1").Name = "début_liste"
        Range("a1").Select
10   If Range("début_liste") = 0 Then Exit Sub
     If Range("début_liste") = Range("c2") Then Exit Sub
        Range("début_liste")(1, 2).Select
        ActiveCell.Name = "début_liste"
        GoTo 10
100
    c = False
End Sub

et un peu de patience... ici il n'y que des bénévoles, ce n'est pas le SAV de Microsoft.....

bon après midi.
@+

 

[bellous]

Re : déplacement dans macro après fermeture userform

Merci beaucoup Pierrot93, c'est parfait.
Excuse-moi pour mon inexpérience des posts.
Bonne journée
comment met-on que la question soulevée a trouvé la réponse ?

 

[Pierrot93]

Re : déplacement dans macro après fermeture userform

Re

il n'y a pas de possibilité sur ce forum, de "flaguer" le post comme étant résolu, tu le dis dans ta réponse, c'est bien et cela suffit.

bon après midi
@+