Problème listbox
Dans le programme facturation que je suis occupé à réaliser, j'utilise une listbox permettant d'extraire les données clients d'une feuille de données existante.
Une fois le client sélectionné ses données sont transférées vers la facture à l'appui d'un bouton de commande et jusque là tout va bien.
Afin d'éviter une manipulation trop rapide et d'activer le bouton de commande trop rapidement, je voudrais tester qu'un client a bien été sélectionné et ici problème, j'ai beau tester sur listbox.selected(i)=false, rien n'y fait.
Voici les lignes de codes utilisées, une suggestion sur la méthode que je devrai appliquer ?
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
Sheets("base").Range("C9") = Me.ListBox1.List(i, 2) & " " & Me.ListBox1.List(i, 0) & " " & Me.ListBox1.List(i, 1)
merci
Bonjour
Tu devrais joindre ton fichier...
Bye !
Bonjour,
If listbox1.listindex=-1 then
msgbox "Vous n'avez pas sélectionné de client"
exit sub
end ifMerci à Xmenpl
c'est parfait tout fonctionne comme je le désirais !!