Commandbutton et enabled

[Laurent]

Bonjour à tous,

Petit pb, dans mon Usf je voudrais rendre inaccessible un cmdbutton si le contenu de ma combobox n'est pas vide...
J'ai essayé ceci mais ça ne fonctionne pas

If ComboBox1 <> "" Then
CommandButton1.Enabled = False
End If

Merci à ceux qui peuvent m'aider.
A++
Laurent

 

[Minick]

salut,

essai ceci

If ComboBox1.ListIndex = -1 Then
CommandButton1.Enabled = False
End If


@+
Miick

 

[Robert]

Salut Laurent, salut Minick, salut le forum

je pense que le problème vient du fait que quand tu attribue la valeur False à Enabled tu ne permets pas de revenir à la possibilité Enabled=True

avec ce code ça devrait marcher

Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If
End Sub

À plus,

Robert

 

[Laurent]

Merci Robert et Minick

La solution de Robert fonctionne bien. Effectivement, je n'arrivais pas à faire revenir le cmdbutton à true. Je me bagarais avec un Private Sub ComboBox1_Click() mais ça n'est pas vraiment satisfaisant.

En tout cas merci beaucoup à tous les deux.

A++
Laurent