Textbox dans multipage

Bonjour les forumeuzes et bonjour les forumeurs

Le papy continue son apprentissage :D
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 :calim2:
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 !!!

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:

---

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

---

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:

---

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

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:

---

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

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 ?

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

Code:

---

Dim MaPage As MSForms.Page

---

mais alors si ca marche sans dimensionner MaPage ca marche auusi sans dimensionner les textbox ?
Je t'ennuie peut etre mais je suis curieux de nature et j'ai deja remarqué que souvent le vba était intelligent à ma place !

Bonjour,

bien entendu, c'est le danger/avantage des variables
si tu ne type pas une variable, VBA la traite comme un "Variant", c'est à dire que ta variable peut être de n'importe quel type.
Le type sera défini par VBA en fonction de l'utilisation que tu lui demandes de faire avec la variable

Mais, quand on sait qu'une variable sera d'un type bien déterminé, c'est plus propre et sécurisant de la typer

parfois, on a besoin de ne pas typer la variable, voici un exemple :

on cherche une valeur dans un Array en utilisant la fonction Match (EQUIV() en français)
Si la valeur n'existe pas, la fonction génère une erreur, sinon elle donne la position de l'élément
Alors on utilise une variable "variant" pour assigner le résultat de la formule.
Si la variable est de type "erreur" alors l'élément n'existe pas, sinon on peut dire où se trouve l'élément

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub toto() Dim Tableau(), ValeurCherchee As String Dim Resultat   Tableau = Array("A", "B", "C") ValeurCherchee = "C" Resultat = Application.Match(ValeurCherchee, Tableau, False)   If IsError(Resultat) Then MsgBox ValeurCherchee & " n'existe pas dans le tableau [" & Join(Tableau, ";") & "]" Else MsgBox ValeurCherchee & " est à la position " & Resultat & " du tableau[" & Join(Tableau, ";") & "]" End If   End Sub

---

On utilise aussi ce stratagème quand on appelle une fonction personnalisée et qu'on peut obtenir plusieurs résultats différents
Au retour de la fonction, on test le type qui nous est renvoyé.
Par exemple, une fonction qui va rechercher des valeurs, et renvoie un String si une seule valeur, ou un tableau d'éléments si plusieurs valeurs ... voir un booléen "FALSE" s'il n'y a aucun résultat !

Hé bin voilà ! Maintenant je sais !!!!!
Heureux que tu es croisé mon chemin Joe :D