Problème listbox

Bonjour,

j'ai deux soucis avec la listbox du USF "choix-produits" dans le fichier joint.

1) je veux éviter l"oubli du choix d'un produit et donc pour cela j'applique la règle qui dit de tester sur listindex=-1 sauf que...cela ne fonctionne pas et que la seule solution trouvée a été de mettre listindex = 0

2) si je sélectionne plusieurs produits et qu"ensuite je désélectionne le premier, listindex revient à 0 et c'est alors le point 1) qui pose problème..

où est mon erreur ??

merci d'avance pour votre aide

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Re bonjour,

Remontez votre test en début de macro : et n'oubliez pas le exit sub sinon votre macro continue.

Edit GMB plus rapide ... Bonsoir GMB

Private Sub CommandButton1_Click()  'ici on tranfère les données des vins sélectionnés

If ListBox1.ListIndex = 0 Then
MsgBox "sélectionnez au moin 1 produit"
Exit Sub
End If

Dim wk As Worksheet

Set wk = Worksheets("base")

    wk.[A17:G61].ClearContents
    Ligne = 17
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) = True Then
            wk.Cells(Ligne, 1) = Me.ListBox1.List(i, 0)
            wk.Cells(Ligne, 5) = Me.ListBox1.List(i, 2)
            wk.Cells(Ligne, 3) = Me.ListBox1.List(i, 3)
            wk.Cells(Ligne, 2) = Me.ListBox1.List(i, 1)
            wk.Cells(Ligne, 7) = Me.ListBox1.List(i, 4)

            Ligne = Ligne + 1

        End If
    Next i

    wk.Select
    wk.Protect

    Unload Me

End Sub

Bonsoir à vous 2 et grand merci pour votre aide c'est ce qu'il me fallait. Qu'est-ce que j'ai pu chercher...

Avez-vous une réponse au fait que le test sur listindex doit être à 0 et pas -1 ? Lié à la sélection multicritères?
bonne soirée

Lié à la sélection multicritères?

Pour ma part, je ne vois que ça.

Bye !