Boucle sur plusieurs checkbox dans un userform

Bonjour,

J'ai un userform qui contient 10 checkbox que l'utilisateur peut cocher indépendemment les uns des autres.
A chaque changement d'état d'une checkbox, un textbox invisible devient visible à côté du checkbox pour que l'utilisateur y rentre une valeur.

Pour remplacer mon code à rallonge ci-après j'ai tenté plusieurs solutions pour créer une boucle afin de réduire ce code, mais aucune solution que j'ai essyée n'a fonctionné.
Le mieux que j'aie trouvé qui fonctionne c'est d'appeler une fonction, mais je pense qu'il y a plus simple... donc si quelqu'un a une piste...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Condi1_Click() Num = 1 CondiEvenement Num End Sub Private Sub Condi2_Click() Num = 2 CondiEvenement Num End Sub   '... '... '...   Private Sub Condi9_Click() Num = 9 CondiEvenement Num End Sub Private Sub Condi10_Click() Num = 10 CondiEvenement Num End Sub

---

Et la fonction

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CondiEvenement(ByRef Num As Byte) If Me.Controls("Condi" & Num).Value = True Then Me.Controls("QteCondi" & Num).Visible = True Me.Controls("QteCondi" & Num).SetFocus Else Me.Controls("QteCondi" & Num).Visible = False Me.Controls("QteCondi" & Num).Value = "" End If   End Sub

---

Bonjour,

Regarde cette discussion, peut-être pourra t-elle t'apporter une aide : https://www.developpez.net/forums/d7...tomatiquement/

si c'est juste pour 10 checkbox et que la numerotaion des condi(x) correspond au QteCondi(x)
c'est pas 10 lignes qui vont faire trembler le monde
exemple
dans le userform 10 checkboxs (condi1,condi2,condi3,etc.... )et 10 textboxs(QteCondi1,QteCondi2,QteCondi3,etc...)en invisible
code userform

Code:

---

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

Private Sub condi1_Click(): visibletextbox condi1: End Sub Private Sub condi2_Click(): visibletextbox condi2: End Sub Private Sub condi3_Click(): visibletextbox condi3: End Sub Private Sub condi4_Click(): visibletextbox condi4: End Sub Private Sub condi5_Click(): visibletextbox condi5: End Sub Private Sub condi6_Click(): visibletextbox condi6: End Sub Private Sub condi7_Click(): visibletextbox condi7: End Sub Private Sub condi8_Click(): visibletextbox condi8: End Sub Private Sub condi9_Click(): visibletextbox condi9: End Sub Private Sub condi10_Click(): visibletextbox condi10: End Sub   Private Sub visibletextbox(check) With Me.Controls(Replace(check.Name, "condi", "QteCondi")) .Visible = check.Value If .Visible Then .SetFocus End With End Sub

---

et meme sans fonction commune 10 lignes

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub condi1_Click(): QteCondi1.Visible = condi1.Value: End Sub Private Sub condi2_Click(): QteCondi2.Visible = condi2.Value: End Sub Private Sub condi3_Click(): QteCondi3.Visible = condi3.Value: End Sub Private Sub condi4_Click(): QteCondi4.Visible = condi4.Value: End Sub Private Sub condi5_Click(): QteCondi5.Visible = condi5.Value: End Sub Private Sub condi6_Click(): QteCondi6.Visible = condi6.Value: End Sub Private Sub condi7_Click(): QteCondi7.Visible = condi7.Value: End Sub Private Sub condi8_Click(): QteCondi8.Visible = condi8.Value: End Sub Private Sub condi9_Click(): QteCondi9.Visible = condi9.Value: End Sub Private Sub condi10_Click(): QteCondi10.Visible = condi10.Value: End Sub

---

moins de ligne t'ouvre pas excel ;)
pas tres compliqué c''est la meme fonction pour tous: si plusde controls la oui peut etre envisager un module classe