Salut GT,
mis a part une erreur d'ecriture de ma part (corrigee en majuscule), il me semble que ca doit marcher.
Dim IzSelect as Boolean
for i = 0 to Listbox1.count - 1
if LISTBOX1.Selected(i)=true then
IzSelect=True
exit for
end if
next i
if IzSelect <> True then '/!\ IzSelect peut etre aussi Null ou False
msgbox "Selectionner une proposition SVP"
exit sub
end if
La pemiere partie parcours la listbox1 et met IzSelect a "True" si au moins un nom est selectionne.
Ensuite la deuxieme partie test si IzSelect est bon ou pas.
Si aucun nom n'a ete selectionne, IzSelect renvoie la valeur Null (puisqu'il n'a pas ete initialise), dans ce cas "IzSelect <> True " est vrai et le message "Selectionner une proposition SVP" est renvoye a l'utilisateur.
Tiens moi au courant,
A++, Sylsyl.