bonjour,

Le problème: pourquoi dans mon code ci-dessous, le if ne filtre pas correctement mes controls ?
Le but: lorsque le togglebutton3 n'est pas enfoncé décoche toutes les checkbox du frame1 sinon coche tous les checkbox du frame1

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
Private Sub toggleButton3_click()
Dim ctrl As Object
Dim NumeroLabel As String
 
    For Each ctrl In Me.Frame1.Controls 'Boucle sur tout les contrôles de l'userform
            If TypeOf ctrl Is MSForms.CheckBox Then
            NumeroLabel = Mid(ctrl.Name, 9, Len(ctrl.Name) - 8)
                If ToggleButton3.Value = True Then
                Me.Frame1.Controls("CheckBox" & NumeroLabel).Value = True
                Else
                Me.Frame1.Controls("CheckBox" & NumeroLabel).Value = False
                End If
            End If
    Next ctrl
End Sub
Ici
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If TypeOf ctrl Is MSForms.CheckBox Then
j'ai du toggleButton qui passe alors que cela ne devrait pas

qqun serait m'expliquer et résoudre mon pb SVP ?
Merci