Discussion :

[Vba14]

Bonsoir à tous,

Je vais mettre en place un UserForm avec multi pages.

J'aimerai savoir comment :
- faire pour gérer les dimensions de l'UF et des multipages.
- est-il possible de mettre de la couleur dans les multipages
- comment rendre visible ou pas une page selon le choix fait par l'utilisateur
- est-ce qu'un bouton "Validation" placé sur l'UF peut-être utilisé pour toutes les pages.

Merci par avance pour vos réponses.

[Vba14]

J'ai trouvé les solutions à mes problèmes
Bonne nuit à tout le monde

[patricktoulon]

Bonsoir à tous,

Je vais mettre en place un UserForm avec multi pages.

J'aimerai savoir comment :
- faire pour gérer les dimensions de l'UF et des multipages.
- est-il possible de mettre de la couleur dans les multipages
- comment rendre visible ou pas une page selon le choix fait par l'utilisateur
- est-ce qu'un bouton "Validation" placé sur l'UF peut-être utilisé pour toutes les pages.

Merci par avance pour vos réponses.

bonsoir vba14

1°- faire pour gérer les dimensions de l'UF et des multipages.---> oui de la même manière que les autre controls width height

2°- est-il possible de mettre de la couleur dans les multipages --> normalement non !! mais tu peux utiliser une astuce dynamiquement ou pas
a savoir mettre un controls image en arriere plan a la quelle tu applique une couleur

3°- comment rendre visible ou pas une page selon le choix fait par l'utilisateur --> la encore la réponse est la meme de la même manière que les autre controls
a savoir ex: multipage1.pages(3).visible=false(la 4 eme page sera invisible)

4°- est-ce qu'un bouton "Validation" placé sur l'UF peut-être utilisé pour toutes les pages.--> la réponse est oui bien entendu

je reviens sur la couleur pour le multipage

voici une petite fonction qui te met tes page en couleur (toutes/en fonction de l'array)

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
23
24
25
26
27
28
29
30
31
 
Private Sub UserForm_Activate()
'backcolorM MultiPage1, Array(0, 3, 5), vbRed'certaines pages en rouge
'ou
'
    'backcolorM MultiPage1, Array(0, 3, 5), Array(146325, 1723654, 119546)    'certaines pages couleurs différentes
'ou
'
'backcolorM MultiPage1, 0, vbRed    ' tout les pages en rouge
'ou
' tout les pages une couleur différente
backcolorM MultiPage1, 0, Array(vbBlue, vbGreen, vbRed, vbCyan, vbMagenta, RGB(123, 187, 45), 134521)
End Sub
'
Private Function backcolorM(obj, Opages As Variant, coul As Variant) As String
    Dim x&, i&, img
    If Not IsArray(Opages) Then
        Opages = Application.Transpose(Evaluate("ROW(1:" & MultiPage1.pages.Count & ")"))
        x = 1
    End If
    For i = LBound(Opages) To UBound(Opages)
        Set img = obj.pages(Opages(i) - x).Controls.Add("forms.Image.1", "fond")
        With img: .Top = 0: .Left = 0: .Width = obj.Width: .Height = obj.Height: .ZOrder 1:
            If IsArray(coul) Then
                .BackColor = coul(i - x)
            Else
                .BackColor = coul
            End If
        End With
    Next
End Function

[Vba14]

Bonjour Patrick,

Merci beaucoup pour tes réponses. J'en avais déjà trouvé sur le forum, mais tu viens les conforter. Par contre, concernant les couleurs ça c'est top.
Avec tout ça je vais pouvoir m'en sortir.
Mon projet avance bien, à part bien entendu le soucis de mot de passe, mais ça c'est une autre discussion. Je continue.
Si on ne se reparle pas, je te souhaite un agréable Dimanche. Ici en Normandie il va être plutôt gris et pluvieux
Amicalement
René

[Vba14]

Re,

Voilà j'ai mis en place ce code qui me permet de redimensionner mon MultiPages. Cependant, j'aurai voulu y ajouter le fait que l'UserForm (UFSaisie) ait une taille différente de celle des pages.
Il faut que l'UF soit un peu plus grand. Pour le moment UF suit la dimension des pages...

Dans l'absolu, se serait que l'UF s'adapte à la taille de la page de façon dynamique.

Merci par avance pour votre aide

Voici mon code :

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
23
24
25
26
27
28
29
30
31
32
 
Private Sub MultiPage1_Change()
   With Me
        Select Case .MultiPage1.Value
            Case 0 'Correspond à la page 1
                .Height = 339
                .Width = 265       
 
            Case 1 'Correspond à la page 2
                .Height = 402
                .Width = 439
 
            Case 2 'Correspond à la page 3
                .Height = 513
                .Width = 344
 
            Case 3 'Correspond à la page 4
                .Height = 400
                .Width = 438
 
            Case 4 'Correspond à la page 5
                .Width = 349
                .Height = 404
 
            Case 5 'Correspond à la page 6
                .Width = 537
                .Height = 343
 
        End Select
        .Repaint
    End With
End Sub

Quelque chose comme ça peut-être :

Code :

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

1
2
3
4
5
6
 
 
Private Sub UserForm_Activate()
UserForm1.Caption = "Vous allez saisir un Article" 'Le caption changera selaon la feuille affichée
Tag = Height ' Enregistre la hauteur initiale. ' C'est là où je ne sais pas faire, comment lui donner ses dimensions par rapport à la page
End Sub

[Vba14]

Patrick,

J'ai lu ta participation sur le redimensionnement automatique des UserForm, c'est super, mais il ne peut pas s'appliquer à redimensionnement par rapport aux pages, c'est uniquement par rapport à l'écran.
N'est-ce-pas?

Merci beaucoup pour ce modèle, je l'ai conservé dans mes archives, cela pourra me servir.

[patricktoulon]

bonjour
pour le redim....
ben si justement tu adapte

si je comprends bien tu redim le multi mais pas le userform c'est ca ??