Discussion :

[Ludo5550]

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 :

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

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 :

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

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

[NEC14]

Bonjour,

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

[patricktoulon]

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 :

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

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 :

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

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