Controle sur ListBox vide

jcdelorient · 7 Novembre 2008

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 · 7 Novembre 2008

Re : Controle sur ListBox vide

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

Code:

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 · 7 Novembre 2008

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 · 7 Novembre 2008

Re : Controle sur ListBox vide

Message supprimé

jcdelorient · 7 Novembre 2008

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

Controle sur ListBox vide

jcdelorient

Guest

kjin

XLDnaute Barbatruc

jcdelorient

Guest

kjin

XLDnaute Barbatruc

jcdelorient

Guest

Discussions similaires

Controle sur ListBox vide

jcdelorient

Guest

kjin

XLDnaute Barbatruc

jcdelorient

Guest

kjin

XLDnaute Barbatruc

jcdelorient

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency