interdire ouverture usf si listbox vide

[jack]

Bonjour le forum

peut on interdire l'ouverture du usf si la list box est vide hormis les titres et avoir un message du style 'désolé pas de réponse '

Merci pour votre aide

slts
jack

 

[jack]

dossier ci joint [file name=Copiederetirerlignelistboxetfeui3.zip size=10965]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copiederetirerlignelistboxetfeui3.zip[/file]

 

[Jacques87]

Bonjour

Tu peux faire un test du genre

If ListBox1.ListCount = 0 Then MsgBos('Attention')

Bon courage

 

[jack]

Bonjour Jacques
cela ne semble pas fonctionner
Une autre idée peut être ....
Slts
Jack

 

[Hervé]

re les jacks 🙂

malgré, mes commentaires dans l'autre post tu tiens à tout pris à utiliser rowsource, c'est ton droit LOL

mais attend toi à quelques déconvenues. par exemple dans la listbox sur ton fichier joint j'ai aussi les commentaires que tu as placé en dessous de ton tableau 😱

de plus, je me permet de te rappeler que userform1.hide masque seulement un userform sans le décharger de la mémoire du micro, la bonne syntaxe est unload userform1

enfin, pour ton souci, essayes comme ceci :

Sub OUVERT()
Dim c As Range
Dim cpt As Integer

For Each c In Range('a2:e50')
        If c = '' Then cpt = cpt + 1
Next c

If cpt = Range('a2:e50').Count Then
        MsgBox 'Désolé pas de réponse.'
Else
        UserForm1.Show
End If

End Sub

a placer dans ton module 1

salut

 

[JACK]

Bonsoir le forum et Hervé

Je me suis haté pour expédier le post et je me suis trompé de fichier
J'ai suivi tes conseils pourtant mais un excès de vitesse et de précipitation m'a fait être découvert
Mea culpa

Tes conseils sont toujours très juste
Je serais plus vigilant par la suite

Merci pour cette réponse et le commentaire que j'ai apprécié sincèrement car tu auais passé outre et me laisser dans la moise

Bonne soirée
Slts
Jack