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 ?

[zandru]

Apparemment non, si je les met VBA me dit "erreur de syntaxe"

[ouskel'n'or]

Tu as raison mais il me semblait bien qu'il manquait "quelque chose"
Si tu te trouves bien dans l'usf en question, tu n'as pas besoin de ta première ligne

Code :

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

1
2
3
4
5
6
        Dim element As Control
        For Each element In Me.Frame3.Controls
            If Not TypeOf element Is MSForms.CheckBox Then
                element.Enabled = False
            End If
        Next element

Bonne journée

[zandru]

bingo ça marche !

Merci de ton aide.