Naviguer entre Userform

Version imprimable

04/03/2012, 11h29
eliot.raymond

Naviguer entre Userform

Bonjour a toutes et tous, Forum

J'ai 6 Userforms et je souhaiterai svp un code qui me permetterai de naviguer

entre elles par "Précedent" - "Suivante" - ("Annuler Retour" a l'UserForm1)

Merci de votre aide et votre temps, je vous souhaite un bon Dimanche

Cdtl Ray

Bonjour,

Ci-dessous un exemple de solution en partant d'une liste de nom de UserForm contenus dans la variable FormsList.
Dans cette liste les noms des fenêtres sont dans l'ordre dans lequel il faut les afficher.

Code ci-dessous à mettre dans un module.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Option Explicit
 
Const FormsList As String = "UserForm1;UserForm2;UserForm3;UserForm4;UserForm5;UserForm6"
Enum SensRecherche
    SEARCH_FORWARD = 0
    SEARCH_BACKWARD = 1
End Enum
 
Public Sub ShowNextForm(callerName As String)
    Call SetVisible(callerName, False)
    Call SetVisible(GetNextUserForm(callerName, SEARCH_FORWARD), True)
End Sub
 
Public Sub ShowPreviousForm(callerName As String)
    Call SetVisible(callerName, False)
    Call SetVisible(GetNextUserForm(callerName, SEARCH_BACKWARD), True)
End Sub
 
Public Sub ShowFirstForm(callerName As String)
    Call SetVisible(callerName, False)
    Call SetVisible(GetFirstUserForm(), True)
End Sub
 
Private Function GetFirstUserForm() As String
    Dim uFormNames() As String
    uFormNames = Split(FormsList, ";")
    GetFirstUserForm = uFormNames(0)
End Function
 
Private Function GetNextUserForm(userFormName As String, sens As SensRecherche) As String
    Dim uFormNames() As String
    uFormNames = Split(FormsList, ";")
 
    Dim i As Integer
    For i = 0 To UBound(uFormNames)
        If uFormNames(i) = userFormName Then
            Exit For
        End If
    Next i
 
    i = IIf(sens = SEARCH_FORWARD, i + 1, i - 1)
 
    If i < 0 Then i = 0
    If i > UBound(uFormNames) Then i = UBound(uFormNames)
 
    GetNextUserForm = uFormNames(i)
 
End Function
 
Private Sub SetVisible(userFormName As String, visible As Boolean, Optional Modal As FormShowConstants = vbModeless)
    Dim u As Object
    Dim target As Object
    For Each u In VBA.UserForms
        If u.Name = userFormName Then
            Set target = u
            Exit For
        End If
    Next u
 
    If target Is Nothing Then
        VBA.UserForms.Add (userFormName)
        Call SetVisible(userFormName, visible, Modal)
    Else
            If visible Then
                target.Show (Modal)
            Else
                target.Hide
            End If
    End If
End Sub

Enuite dans chaque UserForm :
- le bouton <suivant> aura simplement à appeler ShowNextForm (Me.Name).
- le bouton <précédent> aura simplement à appeler ShowPreviousForm(Me.Name).
- le bouton <retour à la première fenêtre> aura simplement à appeler ShowFirstForm(Me.Name).

Rmq : Dans ce code les fenêtres ne sont pas modale, pour ne pas multiplier les appels imbriqués de fonctions dans les dépiler lorsque la nouvelle
fenêtre s'affiche.

04/03/2012, 14h31
eliot.raymond

Salut BlueMonkey,

Merci pour ta réponse, c'est sympa, donc si j'ai bien compris il me faut donc mettre 3 commandBouttons ou lequel svp qui serai le mieux adapter par UserForm

1 Suivant le 2 Précédent et le 3 Retour UserForm1

Voila a plus tard

Bon Dimanche

Ray
04/03/2012, 14h51
BlueMonkey

Citation:

Envoyé par eliot.raymond

si j'ai bien compris il me faut donc mettre 3 commandBouttons ou lequel svp qui serai le mieux adapter par UserForm

Si tu souhaites pouvoir avoir les 3 choix à partir de chaque fenêtre, le plus simple est en effet d'avoir les 3 boutons.
04/03/2012, 16h11
eliot.raymond

Re, Salut

J'ai essayer d'appeler les userforms avec des checkboxs ça fonctionne
MAIS pas sur que ce soit le mieux aussi je te demande conseil svp

je peux mettre quoi comme boutons d'appels qui serait mieux a raison de 3 par UF

sinon quand je clic sur un checkbox l'userform1 s'efface et la 2 s'affiche c'est bon SAUF que je souhaiterai avoir toujours USF1 afficher.

Merci a plus tard

Ray
04/03/2012, 17h12
BlueMonkey

Re.

Citation:

je peux mettre quoi comme boutons d'appels qui serait mieux a raison de 3 par UF

Avec des checkBox il y a la notion de cocher/décocher. Si tu n'as pas besoin d'avoir ces 2 états, le plus simple était pour moi d'avoir les CommandButton avec le label précisé dans le post avec le code (précédent, suivant, ...)
Mais c'est à toi de voir suivant ce qui à le plus de sens dans ton application.

Citation:

Quand je clic sur un checkbox l'userform1 s'efface et la 2 s'affiche c'est bon SAUF que je souhaiterai avoir toujours USF1 afficher.

Si tu dois utiliser le code posté plus haut, ça serait bien que tu le comprennes un minimum.
La routine SetVisible(userFormName As String, visible As Boolean, ...) permet d'afficher ou de masquer un fenêtre ayant le nom userFormName , suivant la valeur du paramètre visible.
Donc si tu ne veux pas masquer les feuilles sur le clic de <suivant>, qu'est ce qu'il faut retirer dans le code
de ShowNextForm(callerName As String)à ton avis ?
04/03/2012, 18h50
eliot.raymond

Re salut

Merci pour tes infos, je ne suis pas encore trop bon sur les userforms, mais je cherche.

donc l'userform1 reste bien affichée, merci tu m'a bien aider.

les autres UF se surperposent les unes aux autres.

Peut-on faire en sorte svp qu'il ni ai qu'une seule Userform qui soit affiché a la fois car la les six se supperposent

dans ton code je n'ai pas trouvé comment faire

j'ai mis tous les commandbouttons suivant ton conseil c'est il fonctionnent tous

Merci a plus tard

Raymond

Re.

Si seul UserForm1 doit rester affiché, les autres doivent se masquer lorsqu'on clique sur <suivant>, remplace la routine ShowNextForm par celle-ci
Code:

1 2 3 4 5 6 7 Public Sub ShowNextForm(callerName As String) If callerName <> GetFirstUserForm() then Call SetVisible(callerName, False) End if Call SetVisible(GetNextUserForm(callerName, SEARCH_FORWARD), True) End Sub
P.S. : lorsque tu souhaites simplement ajouter un réponse, le mieux est d'utiliser le bouton <Ajouter une réponse>.
Le bouton <Citer> n'est utile que si la citation amène quelque chose à la réponse. ;)

04/03/2012, 19h19
eliot.raymond

Bonsoir BlueMonkey,

Merci pour ta réponse hyper rapide, c'est gentil,

Bon me reste beaucoup a apprendre, je vais bosser dessus les UserForms

Ceci dit tous marchent très bien comme je souhaitai, grace a toi.

je te remercie sincèrement beaucoup ainsi que de ta patience, et de ton aide.

Une excellente soirée a toi

Merci Cdtl Raymond
04/03/2012, 19h22
BlueMonkey

Content que tu ais trouvé ce que tu cherchais. :ccool:

Bonne soirée également.
05/03/2012, 01h39
AlainTech

Citation:

Envoyé par eliot.raymond

Bon me reste beaucoup a apprendre, je vais bosser dessus les UserForms

Bonjour,

Tant qu'à apprendre, intéresse-toi au contrôle Multipage.
Ca permet d'avoir plusieurs UserForms en un avec possibilité de navigation entre tous sans boutons supplémentaires.