Bonjour,

Je souhaite désactiver certaines options de mon formulaire (case à cocher, boutons radions, combobox, zones de textes), quand on clique sur une case à cocher.
Je bloque sur la ligne en rouge car le code attend un no item et non le nom du composant.

Pouvez vous me donner une solution svp?

Merci d'avance,

Voici le code :
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
    
    Application.ScreenUpdating = False
    For CptTabO = LBound(TabO) To UBound(TabO) - 1
        If Right(UCase(TabO(CptTabO)), 3) <> "LCK" Then
            If UCase(TabO(CptTabO)) Like "CHEB_*" Then
                ThisDocument.Fields(TabO(CptTabO)).OLEFormat.Object.Value = False               
                ThisDocument.Fields.Item(TabO(CptTabO)).OLEFormat.Object.Enabled = Not bBloquer
            ElseIf UCase(TabO(CptTabO)) Like "OPTB_*" Then
                ThisDocument.Fields(TabO(CptTabO)).OLEFormat.Object.Value = False
                ThisDocument.Fields.Item(TabO(CptTabO)).OLEFormat.Object.Enabled = Not bBloquer
            ElseIf UCase(TabO(CptTabO)) Like "TEXTB_*" Then
                ThisDocument.Fields.Item(TabO(CptTabO)).OLEFormat.Object.Text = ""
                ThisDocument.Fields.Item(TabO(CptTabO)).OLEFormat.Object.Enabled = Not bBloquer
            ElseIf UCase(TabO(CptTabO)) Like "COMBB_*" Then
                ThisDocument.Fields.Item(TabO(CptTabO)).OLEFormat.Object.Value = "?"
                ThisDocument.Fields.Item(TabO(CptTabO)).OLEFormat.Object.Enabled = Not bBloquer
            End If
        End If
    Next CptTabO