Discussion :

[kalocou]

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
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 :

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

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à ...

[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

[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.

[pijaku]

Bonjour,

Pour boucler :

Code :

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

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 :

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

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

ça me fait penser que soit:

1. tu n'as pas du regarder les propriétés des Pages,
2. 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 :

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

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

[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 ?

[EBRAG]

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 :

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
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

[kalocou]

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.