Controle sur ListBox vide

[jcdelorient]

Bonsoir le forum,

J'ai un Userform avec une Listbox qui controle sur cellule vide
Jusque là aucun souci
Ce que je souhaiterais c'est que si j'ai ma list Box vide alors un msgbox et fermeture du Userform
Si je mets mon message avec le controle de ma listBox mon message apparait AVANT l'affichage du UF

Ma question : Ou mettre le controle pour que le message se mette après l'affichage du UF ? sans aucun click sur la Listbox ou le UF.
En clair controle Listbox si listbox vide alors message et fermeture du UF.

Pour moi c clair en espérant que ça le soit aussi pour vous !!

Merci

JC

 

[kjin]

Re : Controle sur ListBox vide

Bonsoir,
Tu peux peut-être tester à l'activation du formulaire avec une tempo

Private Sub UserForm_Activate()
    If Application.Wait(Now + TimeValue("0:00:01")) Then
        If Me.ListBox1.ListCount = 0 Then
        MsgBox "Listbox1 est vide"
        Unload Me
        End If
    End If
End Sub

A+
kjin

 

[jcdelorient]

Re : Controle sur ListBox vide

Bonsoir Kjin,

merci pour l'info
je n'ai pas été chercher dans l'activate !!!!

tellement simple quand on a la réponse !!!!!

merci beaucoup
JC

 

[kjin]

Re : Controle sur ListBox vide

Message supprimé

 

[jcdelorient]

Re : Controle sur ListBox vide

Re,
En fait j'ai simplement pris l'idée de UF Activate avec ce code :
Private Sub UserForm_Activate()
If ListBox1.ListCount = 0 Then
MsgBox "Aucune données a controler", vbOKOnly, "Félicitations"
Unload Me
End If
End Sub

merci ancore
JC