Automatisation de fonction

Bonjour à tous,
Je me retrouve confronté à un problème et malgré de nombreuses recherches, impossible de trouver une solutions qui me convienne...
Je vous explique :
En gros, j'ai 3 checkBox (CB1,CB2,CB3) liées chacunes à 3 TextBox(TB1,TB2,TB3).
J'aimerais quand je clique sur le CB1, ma TB1 s'affiche et inversement, et ceux pareil pour 2 et 3.
Le code est donc :

Code:

---

1 2 3 4 5 6 7

Private Sub CB1_Click() If Controls("CB1").value = True Then Me.Controls("TB1").visible=True Else Me.Controls("TB1").visible=False End if End Sub

---

x3 pour les 3 fonctions.

MAIS !
Existe t-il un moyen de boucler mon nom de fonction, du type

Code:

---

Private Sub CB(n)_click()

---

, avec n ma variable variant de 1 à 3 pour réduire le code ?

Parce que si j'ai 50 checkBox, ça fait beaucoup de lignes de code avec exactement le même contenu, juste un chiffre qui change à chaque fois...

Merci d'avance
Cordialement

Bonjour,
il faut insérer un module de classe dans ton projet!

Code:

---

1 2 3 4 5

Public WithEvents Txt As MSForms.TextBox Public WithEvents Chk As MSForms.CheckBox Private Sub Chk_Click() Txt.Visible = Chk End Sub

---

il faut modifier le code de ton UserForme comme suis!

Code:

---

1 2 3 4 5 6 7 8 9

Private cls() As New Classe1 Private Sub UserForm_Initialize() For i = 1 To 50 ReDim Preserve cls(i) Set cls(i).Chk = Me.Controls("CB" & i) Set cls(i).Txt = Me.Controls("TB" & i) cls(i).Txt.Visible = False Next End Sub

---

pour information on ne teste pas un booléen pour accorder la même valeur à un autre booléen!

Code:

---

If Controls("CB1").value = True Then

---

Code:

---

Txt.Visible = Chk

---

Wooooooowwwww
Merci infiniment dysorthographie pour la précision, la rapidité et la clarté de ton message !
Je ne suis pas du tout expert en VBA et je ne connaissais absolument pas l'utilité des modules de classe !

Vu que c'est complètement nouveau pour moi, je t'avoue avoir un dernier petit soucis...
Que faire pour inverser cette commande, c'est à dire, lorsque la chkbox est coché, la txtbox disparaît ? (en gros j'aimerais que certaines textbox apparaissent quand on coche et pour d'autre qu'elles disparaissent quand c'est coché)

C'est peut être une question stupide mais après différents essais rien ne fonctionne...

Oublie ma première question, en persévérant on trouve toujours
Il suffit de changer dans le module de classe 1

Code:

---

Fr.Visible = Chk

---

en

Code:

---

Fr.Visible = Not Chk

---

Mais comment combiner les 2 ? Visible pour certaines, et non pour d'autres ?

on rajoute une propriété dans le module de classe!

Code:

---

1 2 3 4 5 6

Public WithEvents Txt As MSForms.TextBox Public WithEvents Chk As MSForms.CheckBox Public Inv as boolean Private Sub Chk_Click() if Inv then Txt.Visible = not Chk Else Txt.Visible = Chk End Sub

---

Code:

---

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

Private cls() As New Classe1 Private Sub UserForm_Initialize() For i = 1 T o50 ReDim Preserve cls(i) Set cls(i).Chk = Me.Controls("CB" & i) Set cls(i).Txt = Me.Controls("TB" & i) cls(i).Txt.Visible = False Next cls(i10).Inv = True cls(i15).Inv = True cls(48).Inv = True End Sub

---

Encore vraiment merci pour ta réponse !
Je suis à peut prêt arrivé à faire ce que je voulais pour les CheckBox...

Il me reste un dernier problème.
Dans mon formulaire j'ai une dizaine de pages à un multipage, contenant chacune de nombreuse combobox et textbox.
Comment définir alors un module de classe qui ferait la chose suivant :
Si j'ai comme valeur 1 dans la ComboBox1 => J'affiche la txtbox : Premier1 ( la 2eme est masquée )
Si j'ai comme valeur 2 dans la ComboBox1 => J'affiche la txtbox : Deuxieme1 ( la 1ere est masquée )
et ce, pour mes 10 pages avec mes ComboBox allant de 1 à 10 et mes textbox de 1 à 10 aussi (avec sur chaque page une combobox et les 2 textbox...)

Bonjour,
dans ce cas là c'est pas de checkbox qu'il te faut ma de optionbuton tu les regroupe dans un fram par exemple, et là le fait d'en cocher un décoche les autres et le tour est joué!

Re-Bonjour,
Tout fonctionne avec ton code je te remercie !