Discussion :

[gaston64]

Bonjour à tous,

Dans un userform:

à partir d'une checkbox je souhaite cocher (ou décococher d'autres checbox dans le même userform). Voici ce que j'ai essayé:

Code :

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

1
2
3
4
5
If CheckBox10 = True Then
For n = 1 To 9
Controls ("CheckBox" & n) = true
Next n
End If

Pouvez-vous m'aider MERCI !

[Minick]

Salut,

Et la question est??

Ton code fonctionne...

[gaston64]

Salut,

Non, mon code ne fonctionne pas

en fait je souhaite que lorsque je coche la checkbox10, que les checkbox 1,2,3,4,5,6,7,8,9 soient en même temps cochées

[Invité]

Bonjour,

Comme le dit Minick, votre code fonctionne :

Code :

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

1
2
3
4
5
6
7
Private Sub Checkbox10_Click()
If CheckBox10 = True Then
For n = 1 To 9
Controls("CheckBox" & n) = True
Next n
End If
End Sub

[Minick]

Re,

Je persiste le code fonctionne

Mais il me manquait:

lorsque je coche la checkbox10, que les checkbox 1,2,3,4,5,6,7,8,9 soient en même temps cochées

Utilise l'evenement Change de ChekBox10:

Code :

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

1
2
3
4
5
6
7
8
Private Sub CheckBox10_Change()
    Dim n As Byte
    If CheckBox10 = True Then
        For n = 1 To 9
        Controls("CheckBox" & n) = True
        Next n
    End If
End Sub

[gaston64]

En effet cela fonctionne très bien, à présent !

Vraiment désolé pour le dérangement et Merci pour vos réponses