interdire ouverture usf si listbox vide

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

Bonjour

Tu peux faire un test du genre

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

Bon courage

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

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

Cliquez pour agrandir...

a placer dans ton module 1

salut

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