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
Partager