Discussion :

[kalocou]

Bonjour les forumeuzes et bonjour les forumeurs

Le papy continue son apprentissage
Voilà un nouveau pb por moiet évidemment j'ai cherché avant de venir demander ...
sur un usf j'ai posé un multi page avec trois pages et 13 textbox dans chaque page.
j'ai voulu rendre ces textboxes innaccessibles (locked) j'ai donc d'abord essayé les boucles (ca m'a permis de reviser !)
suite à une succession de "propriété non gérée par l'objet"
j'ai fini par essayer de mettre locked à vrai dans la fiche propriété d'une textbox de mon multipage et ô surprise c'est inopérant
Quelqu'un pourrait m'expliquer pourquoi et comment faire pour pallier la situation.
Depuis j'ai bricolé en mettant les pages du multi à enabled = faux .
ca produit le meme résultat mais ca m'ennuie de pas comprendre, ils sont comme ca les vieux !!!

[joe.levrai]

Bonjour,

voir le code que tu avais tenté aurait permis de t'expliquer le problème

voici donc, à défaut, un petit exemple

j'ai crée un userform, placé un multipage et un CommandButton
dans chaque page du multipage, j'ai mis des Textbox

Voici quelques "actions" :

- parcourir chaque page
- "faire des choses" sur chaque textbox (afficher son nom, le Locker, vérifier si c'est Locked)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim MonTextBox As MSForms.TextBox
    With Me
        For Each MaPage In .MultiPage1.Pages
            'MsgBox MaPage.Name
 
            For Each MonTextBox In MaPage.Controls
                'MsgBox MonTextBox.Name
                'MonTextBox.Locked = True
                'MsgBox MonTextBox.Locked
            Next MonTextBox
        Next MaPage
    End With
End Sub

[kalocou]

Merci Joe de t'interesser à mon cas
J'ai essayé et EVIDEMMENT ça marche (mais je n'en doutais pas) !!!
Je joint mon code

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim tb As MSForms.Control
 
For Each tb In usf4.mp_dis.Pages()
If TypeOf tb Is MSForms.textbox Then
tb.Locked = True
End If
Next
End Sub

Bien sur j'ai vu des differences avec ton code Joe
Mais ce que je ne comprends pas c'est que si je mets un point d'arret je vois bien la bouvcle se faire mais seulement 3 fois au lieu des 39 qui est le nbre de text box dans le multipage.
Et a la sortie rien de locked.
S'il vous plait un peu d'indulgence pour qqun qui voudrait mourir moins bête

[joe.levrai]

Bonjour,

tu as déclaré tb comme un "contrôle" et non pas un "contrôle.TextBox"

donc tb est considéré comme un page de ton multipage car tu dis à VBA "pour chaque objet [Page] de mon multipage"

Code :

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

For Each tb In usf4.mp_dis.Pages()

donc il ne boucle que trois fois, puisque tu n'as que trois pages

regarde bien mon exemple, il y a deux boucles :

1) Parcourir chaque page du multipage
2) Parcourir chaque textbox de chacune des pages du multipage


toi, tu as fusionné ces deux boucles, d'où le problème

[kalocou]

Hé voui j'avais bien vu cette subtile difference!
Autre chose avant que je clique sur résolu :
pourquoi n'as tu pas dimensionné MaPage ?

[joe.levrai]

Je ne l'ai pas dimensionné par ce que, tout simplement, j'ai oublié

Code :

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

Dim MaPage As MSForms.Page