assigner une action à plusieurs multipages

Version imprimable

Bonjour à toutes et à tous.
Ces jours ci Joe Levray (gloire à lui !) m'a bcp aidé sur une boucle for each immbriquée.
Aujourd'hui je remonte d'un cran et je seche aussi lamentablement :calim2:
Sur un usf il y a (entre autres) 3 multipages de 3 pages chacun avec un nombre variable de textboxes dans chaque pages.
Je desire sur un evenement(click) associer une action à ces 3 multipages.
J'ai essayé bcp de combinaisons mais peine perdue :?
La compilation ne trouve rien à redire mais à l'execution ce n'est plus la meme chanson !
Qqun pourrait-il m'aider ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub affich_page() Dim mpp As MSForms.Pages dim mp as MSForms.Pages 'With usf4 For Each mp In .Controls (? je n'ai trouvé rien de mieux, j'ai essayé . multipage(s) c'est pas reconnu) MsgBox mp.Name (c'est un essai pour tester) 'ici j'aimerai mettre mp.value = 0 apres un if Next mp End With end sub
Il ya une erreur ligne 8 quelque soit la propriete que je mette après le point (controls,multipages,pages).
J'ai essayé de créer une collection mais même punition.
Où est ce que je me gourre ?
Merci déjà ...

20/01/2017, 10h40
EBRAG

Bonjour,

il y a incohérence entre la déclaration de variable et la boucle

si tu fais le tour des contrôles du formulaire à l'ai de la variable mp, la déclaration devrait être
dim mp as control
20/01/2017, 10h49
kalocou

Merci Ebrag pour ta velocité
en fait sur mon code j'avais dimensionné mp comme msforms.multipage.
J'ai changé et ca marche !!!
MAIS MAIS j'ai rajouté une ligne pour mettre la valeur de mes multipages à zero
et maintenant j'ai une erreur 380 " impossible de définir la propriete Value.Valeur de propriete non valide"
Ca veut dire que c'est pas possible ou alors faut trouver une astuce ?
En attendant encore merci pour ton aide.

Bonjour,

Pour boucler :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim Ctl As Control
Dim i As Integer
 
With Me
    For Each Ctl In .Controls
        If TypeOf Ctl Is MultiPage Then
            For i = 0 To Ctl.Pages.Count - 1
                Debug.Print Ctl.Pages(i).Name
            Next
        End If
    Next Ctl
End With

Par contre, lorsque je lis ceci :

Code:

1
2
Dim mp as MSForms.Pages
'ici j'aimerai mettre mp.value = 0 apres un if

ça me fait penser que soit:

tu n'as pas du regarder les propriétés des Pages,
tu veux changer la Value de tes textbox et donc ta déclaration Dim mp n'est pas bonne...

Si, toutefois (comme je le suppute), tu cherches à "vider" tous les textbox contenus dans les multipages et Uniquement ceux là (si tu en as d'autres dans l'usf que tu ne veux pas toucher) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim Ctl As Control
 
With Me
    For Each Ctl In .Controls
        If TypeOf Ctl Is MSForms.TextBox Then
            If TypeOf Ctl.Parent Is MSForms.Page Then
                Debug.Print Ctl.Name & " est dans : " & Ctl.Parent.Name
                'Ctl.Value = ""
            End If
        End If
    Next Ctl
End With

20/01/2017, 11h01
kalocou

merci a toi aussi franck
je viens de refaire mon code avec le if type of et je peux mettre la value à 0.
Pour le dimensionnement c'était une erreur de retranscription, j'avais bien mis dim as multipage.
Alors voici ma question collaterale :
En faisant le debug pas à pas je me suis apercu que la boucle faisait le tour de tous les controles . Normal avec la dim de mp.
Ne peut on pas raccourcir et mettre une dim as multipage ?

Re,

Ma façon de voir les choses, quand on veut faire simple et pas obligatoirement concis, c'est d'avoir une approche logique différente.

je renomme chacun des objets selon une convention (MultiPage MultPxxxx, page en Pagexxxx, TextBoxes en TBxxxx etc....)

en faisant cela, on peut arriver à un code de ce type...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub CommandButton1_Click() Dim oControlMP As Control Dim oControlP As Control Dim oControl As Control Dim i As Long For Each oControlMP In Me.Controls If VBA.Left(VBA.LCase(oControlMP.Name), 6) = "multip" Then For i = 0 To oControlMP.Count - 1 For Each oControlP In oControlMP(i).Controls MsgBox oControlMP.Name & " - page " & i + 1 & " - " & oControlP.Name Next Next End If Next End Sub
après, à chacun sa façon de voir les choses

20/01/2017, 11h21
kalocou

Tout est dans la nuance

effectivement la 1ere ligne me suffit largement !
La concision n'est pas toujours à rechercher vu le temps que j'y ai déjà passé ce matin.
L'avantage c'est que j'ai appris kekchoz.

Encore un grand merci à vous.