Discussion :

[jackall]

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 :

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

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

[cafeine]

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.

[jackall]

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

[laetitia]

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 :

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

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

[jackall]

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

cordialement

[LeForestier]

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

Code :

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

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 :

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

If TypeOf ctl is MSForms.TextBox then

[jackall]

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

Cordialement