Discussion :

[zandru]

Bonjour,

j'ai un soucis sur le code suivant :

Code :

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

1
2
3
4
5
6
7
8
    With commaj
        Dim element As Control
        For Each element In .Frame3.Controls
            If Not (TypeOf element Is CheckBox) Then
                element.Enabled = False
            End If
        Next element
    End With

commaj étant le nom de mon userform.

ce que je cherche a faire c'est griser tout les contrôles de la frame3, sauf la checkbox.

Mon soucis est que ce code me grise tous mes contrôles et même la checkbox.

Où est mon erreur ?