Inhiber une combobox

**stephane.dantigny** · 24/05/2010, 21h15

Bonsoir,

Lorsque j'execute mon programme, il y a une combobox pour laquelle je n'ai pas effectué de selection, donc elle est vide.
Le programme s'attend à ce qu'elle contienne une valeur ! je voudrais que lorsque je clique sur un option button, ne pas avoir à prendre en compte une valeur dans la combobox.

Merci d'avance

**ProgElecT** · 24/05/2010, 21h25

Code :

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

1
2
3
4
5
If combobox.Listindex = -1 then
 'pas de selection
 Else
 'Il y a eu au moins une fois une selection
End If

A mettre dans l'evenement Click de l'OptionButton

**stephane.dantigny** · 24/05/2010, 22h28

Désolé, ca ne fonctionne pas, ou je n'ai pas été clair dans mes explications !voici une image pour la compréhension

**l_autodidacte** · 24/05/2010, 23h42

Ajoute le code suivant à l'évènement Click de l'OptionButton soit par exemple :

Code :

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

1
2
 Combo1.Enabled=1-Option1.Value
Combo2.Enabled=1-Option1.Value

Adapte ensuite le code selon tes besoins.

**stephane.dantigny** · 30/05/2010, 19h41

Cela fonctionne, mais je suis obligé de selectionner des valeurs dans les combobox.

Je voudrais comme l'image, que les combobox soient vides et par consequent que le programme ne les traite plus car ca me provoque une erreur.

Merci d'avance

**l_autodidacte** · 30/05/2010, 23h09

Quel est le message d'erreur ?
Au moment de la conception(ou dynamiquement) qu'as-tu mis dans la propriété Text de Combo1 ?

**stephane.dantigny** · 31/05/2010, 17h07

Le tout en image

Merci d'avance l'autodidacte !

**ProgElecT** · 31/05/2010, 17h47

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 Command12_Click()
Combo1.Enabled = 1-Option12.Value
Combo2.Enabled = 1-Option12.Value
Combo3.Enabled = 1-Option12.Value
Combo4.Enabled = 1-Option12.Value
 
 
If Combo1.text = "10" Then '<=== Ajout des guillemets
 '
End if
    'ou bien
If Combo1.Text = CStr(10) Then '<=== Convertir en String
 '
End if
End Sub