Listbox et message d'erreur

[lironik]

Bonjour le forum
J'ai ma listebox à deux colonnes et j'aimerais mettre en place un msgbox qui se déclencherait quand aucun élément dans la liste box n'est sélectionné. Et dans le cas où un élément est sélectionné alors la macro continue de manière habituelle en exportant les données sélectionné vers la feuille excel.

J'ai entré le code suivant

If ListBox1.Selected(i) = False Then MsgBox ("Aucune donnée saisie")

Merci de votre aide

 

[PascalXLD]

Re : Listbox et message d'erreur

Bonjour

essaies

If ListBox1.listindex = -1 Then MsgBox ("Aucune donnée saisie")

 

[lironik]

Re : Listbox et message d'erreur

Il y a un bug "Erreur de compilation _ Attendu: fin d'instructions"

 

[PascalXLD]

Re : Listbox et message d'erreur

Re

Oups bizarre

Tu peux joindre ton fichier STP

 

[lironik]

Re : Listbox et message d'erreur

Désolé mais l'erreur est dû à une faute de frappe de ma part: j'ai écrit elese if au lieu de else if
Après correction le code marche donc merci

 

[PascalXLD]

Re : Listbox et message d'erreur

RE

tu as ecris EleseIf au lieu de ElseIf