Quitter l'Userform si le ComboBox est vide

[degap05]

Bonjour à tous,

Pour adapter une proposition du forum, pourriez-vous m'aider.
Je souhaite que l'Userform du fichier joint se ferme si le combobox est vide (If Isempty)

Merci.

 

[Pierrot93]

Re : Quitter l'Userform si le ComboBox est vide

Bonjour,

qu'entends tu pas vide ? aucun élément de selectionné ou liste des élément vide ? regarde ceci :

if ComboBox1.ListIndex = -1 then
'ou bien  
if ComboBox1.ListCount = 0 then

bon après midi
@+

 

[jp14]

Re : Quitter l'Userform si le ComboBox est vide

Bonjour
Bonjour Pierrot


Code a tester

If ComboBox1.Value = "" Then
    Unload Me
Else
    Sheets(ComboBox1.Value).Activate
End If

JP

 

[degap05]

Re : Quitter l'Userform si le ComboBox est vide

Merci Pierrot93 et jp14 pour vos propositions rapides.
A+

 

[phlaurent55]

Re : Quitter l'Userform si le ComboBox est vide

Bonjour à tous,

avec ceci :

Private Sub ComboBox1_Change()
If ComboBox1.Value = "" Then frmNav.Hide
End Sub

.......... je n'en vois pas l'utilité !!!

à+
Philippe