Séléction de plusieurs textbox dans une multipage

Bonjour à tous

Je vous explique mon petit soucie.
J'ai un userform, dedans j'ai utilisé un contrôle multipage avec pour le moment deux pages seulement. La deuxième n'étant pas importante.
Mon problème ce situe sur la première, j'ai dans cette page, plusieurs TextBox toutes nommées différement avec des noms qui n'ont aucun point commun, et qui sont toutes désactivé pour un aspect pratique et sécurisant.
Je voudrais qu'en cochant une CheckBox, on puisse réactivé c'est TextBox pour pouvoir faire des modifications, et en décochant cette même CheckBox désactivé les TextBox.

Pour cela j'ai commencé par tester sur une TextBox:

Code:

---

1 2 3 4 5 6 7

Private Sub Modification_CheckBox_Click() If Modification_CheckBox = True Then LL_Pressure_Min_TextBox.Enabled = True ElseIf Modification_CheckBox = False Then LL_Pressure_Min_TextBox.Enabled = False End If End Sub

---

Mais serait-il possible de pouvoir faire cela en séléctionnant toutes les TextBox d'un coup au lieu de les faires une par une ?

Cordialement

Hello,

dans ce genre de cas, je recommande de nommer astucieusement les txtBox que tu veux traiter par lot. Ainsi avec une fonction de type For Each ... tu vas repérer par le nom les txtBox à afficher.

En fait j'ai 10 série de txtBox, chaque nom de txtBox d'une série commence par la même chose, c'est à dire pour la première série sa commence par LL_...
la deuxième série par LH_... etc etc
est ce que la fonction de type for each serait la mieu approprié ?

cordialement

bonjour le fil le forum tu peus t'orienter sur un truc comme cela
par defaut mes textbox dans proprietes .enabled a false
10 textbox renommer une checkbox4 controls sur page 0

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CheckBox4_Click() Dim j As Control If CheckBox4 = True Then For Each j In MultiPage1.Pages(0).Controls If TypeName(j) = "TextBox" Then j.Enabled = True End If: Next: End If CheckBox4.Enabled = True End Sub

---

a tester & adapter

merci pour ta réponse, mais je ne comprend pas vraiment ce que tu veut faire je suis désolé :oops:

cordialement

Bonjour tou(te)s,
une idée !!

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CheckBox1_Click() Dim Ctl As Control For Each Ctl In Me.Controls 'supposons que tu veux traiter les TextBox dont le nom commence par LL If Left(Ctl.Name, 2) = "LL" Then Ctl.Enabled = CheckBox1.Value End If Next Ctl End Sub

---

A+
NB: il ne faut pas qu'il y ai d'autre type de contrôles qui commence avec le même nom, par exemple LL_Label ? si oui, faut tester si c'est bien un text box avec

Code:

---

If TypeOf ctl is MSForms.TextBox then

---

Un grand merci pour ta réponse, c'est exactement ce que je cherchais.
Vraiment trés sympas. :ccool:
Encore merci à tous à bientôt.

Cordialement