Gestion des UserForm multipages

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous, bonjour Patrick,

Dans mon projet j'ai déjà un "MultiPage1_Change().

Avec ton code, ces 2 éléments sont inutiles n'est-ce pas ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub MultiPage1_Change()
   With Me
        Select Case .MultiPage1.Value
            Case 0 'Correspond à la page 1
                .height = 335
                .width = 265
                MultiPage1.Pages(1).Visible = False
                MultiPage1.Pages(2).Visible = False
                MultiPage1.Pages(3).Visible = False
                MultiPage1.Pages(4).Visible = False
                MultiPage1.Pages(5).Visible = False

Comment insérer cette partie dedans :

Code:

1
2
 
Private Sub MultiPage1_Change(): resizeMulti: End Sub

Merci par avance pour ton aide

08/04/2019, 11h16
Vba14

J'ai trouvé pour MultiPage1_Change().
Je me demandais s'il fallait mettre les 2 points avant ": resizeMulti", mais comme ça fonctionne, j'ai laissé les deux points, c'est que mon erreur est bonne....

Tous les problèmes sont réglés... ça marche plutôt bien.
08/04/2019, 11h42
Philippe Tulliez
Bonjour,

Citation:

Je me demandais s'il fallait mettre les 2 points avant ": resizeMulti", mais comme ça fonctionne, j'ai laissé les deux points, c'est que mon erreur est bonne....

Ce n'est pas une erreur. Cela fait partie de la syntaxe du VBA. Les deux points séparent les instructions
Ainsi
Code:

1 2 3 Sub t() MsgBox "Salut" End Sub
Code:

Sub t(): MsgBox "Salut": End Sub

Donnera le même résultat

Mais personnellement je trouve que pour clarifier la lecture de son code les instructions Sub et End Sub doivent être chacune sur une ligne

Citation:
Envoyé par Vba14
Bonjour à tous, bonjour Patrick,

Dans mon projet j'ai déjà un "MultiPage1_Change().

Avec ton code, ces 2 éléments sont inutiles n'est-ce pas ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub MultiPage1_Change() With Me Select Case .MultiPage1.Value Case 0 'Correspond à la page 1 .height = 335 .width = 265 MultiPage1.Pages(1).Visible = False MultiPage1.Pages(2).Visible = False MultiPage1.Pages(3).Visible = False MultiPage1.Pages(4).Visible = False MultiPage1.Pages(5).Visible = False
Comment insérer cette partie dedans :
Code:

1 2 Private Sub MultiPage1_Change(): resizeMulti: End Sub
Merci par avance pour ton aide
re
oui toute modification dans l'evenement concernant le multipage dans l'évènement a part tes "visible" sont inutiles car c'est la sub de resize qui s'en charge
c'est bien pour ca que j'ai tout mémorisé a l'activate pour éviter de pédaler a chaque évènement change
ca même permet aussi de normaliser a l'activate a la fin de l'évènement au cas ou dans VBE ca n'est pas normaliser
pour les ":" oui en effet quand j'ai des sub qui sont relativement courtes et n'ont q'une instruction ou des instructions courtes est catégoriques je réduit a une ligne

08/04/2019, 12h11
Vba14

Merci beaucoup pour vos réponses et explications, ça me permets de mieux comprendre et d'avancer. Il y a encore du boulot...

Bonjour à tous, bonjour Patrick,

Je reviens sur ce post car j'ai modifié un code dans mon projet (code pour voir ou pas des pages du multipages) et cela perturbe le code que tu m'as donné pour le dimensionnement des pages.
Qu'est-ce que j'ai foutu qui ne va pas ?:calim2:
Merci par avance pour tes éclaircissements

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
 
'CODE QUE J'AI AJOUTE
Private Sub MultiPage1_Change()
Dim I As Byte
For I = 0 To 5
    MultiPage1.Pages(I).Visible = IIf(MultiPage1.Value = I, True, False)
Next I
End Sub
 
Private Function resizeMulti()
    With MultiPage1
        .width = Mpage(.Value).width
        .height = Mpage(.Value).height
        bouton1.Left = Mpage(.Value).leftbutton1: bouton1.Top = .height + Mpage(.Value).Weight_Cadre
        bouton2.Left = Mpage(.Value).leftbutton2: bouton2.Top = .height + Mpage(.Value).Weight_Cadre
        bouton3.Left = Mpage(.Value).leftbutton3: bouton3.Top = .height + Mpage(.Value).Weight_Cadre
 
        Me.height = .height + bouton1.height + Mpage(.Value).hcaption + Mpage(.Value).Weight_Cadre * 2
        Me.width = .width + Mpage(.Value).hcaption
    End With
End Function
Private Sub UserForm_Activate()
    Dim WW&, HH&, lC$, minlarge&, ctrl As Object
    For Each pag In MultiPage1.Pages
        ReDim Preserve Mpage(0 To pag.Index)
        WW = 0: HH = 0
        For Each ctrl In pag.Controls
            If ctrl.Left + ctrl.width + 20 > WW Then WW = ctrl.Left + ctrl.width + 20:
            If ctrl.Top + ctrl.height + 25 > HH Then HH = ctrl.Top + ctrl.height + 25
        Next
        Mpage(pag.Index).width = WW: Mpage(pag.Index).height = HH
        Mpage(pag.Index).leftbutton1 = WW - bouton1.width * 3.5
        Mpage(pag.Index).leftbutton2 = WW - bouton2.width * 2.3
        Mpage(pag.Index).leftbutton3 = WW - bouton3.width * 1.15 'J'ai ajouté un 3ème bouton
        Mpage(pag.Index).hcaption = Me.height - Me.InsideHeight
        Mpage(pag.Index).Weight_Cadre = Me.width - Me.InsideWidth
 
    Next
    resizeMulti
End Sub

J'ai trouvé, non mais quel tebé ! J'avais oublié le ": resizeMulti" à la fin du code.
Code:

1 2 3 4 5 6 7 8 Private Sub MultiPage1_Change() Dim I As Byte For I = 0 To 5 MultiPage1.Pages(I).Visible = IIf(MultiPage1.Value = I, True, False) Next I : resizeMulti End Sub

09/04/2019, 13h24
patricktoulon

re

re
bonjour vba14
ben oui j'ai séparé le resize de l'évènement change dans une sub a part exprès pour m'en servir aussi dès le activate de l'userform pour que des l'ouverture il soit redimensionné avec la page active quel qu'elle soit
tu peux supprimer les deux point il ne sont pas nécessaires dans cette écriture
dur dur hein ...;)
09/04/2019, 13h55
Vba14

Re,

Mon prénom est René, c'est mieux que Vba14.

J'avance doucement mais sûrement, je vais fouiller un peu partout en cas de difficulté, pour le moment ça va.
Il y a encore beaucoup à faire mais j'y arriverai. Je vais passer à l'encodage de l'UserForm et l'alimentation des différentes feuilles de calculs.
A plus tard... Car à mon avis je ne vais pas tarder à venir chercher un peu d'aide, temps que je peux me débrouiller seul, j'en profites.

Amicalement

Re,

Je bute sur un petit soucis. Dans mon UserForm il y a 4 boutons (bouton1, bouton2, bouton3, bouton4).
Dans la page(4) du Multipages tous les boutons doivent être présents, dans les autres pages (0,1,2,3,5) seul 2 boutons (bouton1 et bouton2)

Voici la position des 4 boutons quand ils sont tous visibles :
Code:

1 2 3 4 5 Mpage(pag.Index).leftbutton1 = WW - bouton1.width * 3.5 Mpage(pag.Index).leftbutton2 = WW - bouton2.width * 2.3 Mpage(pag.Index).leftbutton3 = WW - bouton3.width * 1.1 Mpage(pag.Index).leftbutton4 = WW - bouton4.width * 4.7
Comment rendre invisibles les boutons qui ne se servent pas ? Tout en sachant que les boutons ne changent pas de place.
Merci par avance pour l'aide que vous pourrez m'apporter.

09/04/2019, 16h10
mercatog

Code:

tonBouton3.visible=tonmultipage.value=4
09/04/2019, 16h27
Vba14
Bonjour mercatog,

Je présume qu'il faille des If avant tout ça... du style
Code:

1 2 3 4 5 If me.multipages1.value=4 then bouton1;bouton2; bouton3; bouton4.visible else Bouton1;bouton2.visible end if
Merci par avance
09/04/2019, 16h38
mercatog

Non

Code:

Bouton3.Visible=Multipage1.Value=4

Cette façon d'écrire géré les 2 cas.

La partie droite Multipage1.value=4 est considérée comme Vrai ou Faux

Je me répète René, N'aies pas peur d'essayer.

Mets cette ligne dans Multipage1_change et regarde l'effet
09/04/2019, 16h54
Vba14

Merci mercatog. Il est vrai que je devrais tester avant de venir vous poser des questions, je n'ai pas encore se réflexe.
Désolé...

Je viens de tester, ça fonctionne très bien. Je suis allé chercher compliqué...:oops:
09/04/2019, 17h12
Vba14

Une question dont je m'attends à la réponse, mais je la pose quand même, on ne sait jamais !!

Dans mon MultiPages, j'utilise le style : FmTabStyleButtons, mais le fonds de l'onglet est gris et ce n'est pas très joli, peut-on intervenir sur cette couleur ?
Merci pour vos réponses
09/04/2019, 18h35
patricktoulon

re

re
oui mais uniquement avec une usine a gaz avec les apis ca vaut pas le coup

au pire jouer avec des label et des frames et construire toi même ton multipage tu aura toute les possibilité qu'offre ces controls
ca reste du superflu mais bon ce sont des exercices qui me détendent alors :mouarf:
09/04/2019, 18h55
Vba14

Je m'en doutais un peu, car j'ai fouillé un peu partout sur le Net et rien sur le sujet à part les informations que tu viens de donner et que l'on retrouve souvent en réponse.
C'est un détail alors je ne vais pas m'embêter à monter ou plutôt faire monter une usine à gaz.
Il y a plus important...

Merci pour ta réponse

Voir 40 message(s) de cette discussion en une page