Discussion :

[alvesnuno]

Bonjour,
j'ai créé une macro dans Excel avec des userforms et une procédure (sub) générale qui gère les userforms. Dans la procédure générale, il y a en particuler une boucle "For Next" et dans l'un des userforms, j'aimerai crée un bouton "suivant" pour passer des données.

Mon problème est que je n'arrive pas à renvoyer l'évenement "Click" du bouton "suivant" à l'endroit où j'aimerais dans ma procédure générale (juste avant le "next i" de la boucle "for").

J'avais penser à effectuer un GOTO dans le code de l'Userfom qui renvoyait dans la procédure générale. Mais, cela ne fonctionne pas car GOTO semble ne fonctionner que dans une procédure, userform ou fonction.

Est-ce que quelqu'un sait comment faire pour résoudre mon problème ?
Merci,

Au faite, est-ce que j'ai été claire pour expliquer mon problème ?

[ouskel'n'or]

C'est un fait, l'est pas trés claire ton histoire...
Déjà, n'utilise jamais de goto dans une boucle, réserve leur utilisation à la gestion d'erreur.
Ensuite, si je n'ai pas compris de travers, tu souhaites intervenir "en temps réel", à l'aide d'un bouton, sur le déroulement d'une procédure. Si c'est ça, je ne vois pas comment tu peux faire ça puisque tant que la procédure se déroule, tu n'as pas accès aux contrôles de l'usf.
Il serait bien que tu nous montres ta boucle et que tu nous indiques l'intervention que tu souhaites réaliser.

[alvesnuno]

Voici le code de la procédure générale qui gère à apeller toutes les sous-procédures et les userforms :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ImportALaChaine()
For i = 5 To 43 Step 2
    Cells(i, 2).Activate
    If Cells(i, 2) <> "" Then
        UserForm1.Show
    Else
        UserForm2.Show
    End If
    Call procédure 1
    Select Case Cells(i, 62)
    Case "GMF + PIMOF"
        Call procédure 2
    Case "PDCA"
        Call procédure 3
    Case "GMF"
        Call procédure 4
    End Select
    Call procédure 5
suivant:
Next i
End Sub

et voici le code de l'userform1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButtonFin_Click()
Unload UserForm1
End
End Sub
 
Private Sub CommandButtonSuivant_Click()
Unload UserForm1
Goto Suivant 
End Sub
 
Private Sub CommandButtonOk_Click()
Unload UserForm1
End Sub

J'aimerais retourner dans la procédure générale à la fin de CommandButtonSuivant en sautant toutes les sous-procédures de mon code générale (mais en restant dans la boucle).

[alvesnuno]

Sinon, j'ai trouvé sur le forum la réponse à ma question. Comme quoi en cherchant, on trouve nos réponses.

http://www.developpez.net/forums/d48...re-retour-sub/

Le code proposé par House MD fonctionne dans mon programme.

Au cas vous avez des sugestions à me faire, n'hésitez pas !!!
Merci à tous.

[zazaraignée]

J'ajoute ceci pour les lecteurs du forum...

Dans ta procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButtonSuivant_Click()
Unload UserForm1
Goto Suivant 
End Sub

il y a un Goto bien inutile...

Goto ne peut aller que vers un bout de code à l'intérieur de la procédure en cours. Pas ailleurs! Et comme le dit ouskel'n'or (ben! au nord! tiens! salut vieux!), il vaut mieux utiliser le Goto pour la gestion d'erreur. Pour l'utilisation correcte des Goto, jette un œil dans l'aide de VB.

Si suivant est une procédure (macro) dans un module, il vaut mieux l'appeler avant le Unload, car une fois le UserForm déchargé de la mémoire, je ne vois pas comment l'instruction qui suivait pourrait être exécutée.

zaza