Discussion :

[modus57]

Bonsoir,

Je suis en train de coder un petit programme de commande et gestion du stock de produits ils sont à sélectionner dans une "ListBox multiselect" de mon UserForm..

Une fois les produits sélectionnés, avec une boucle je valide cette sélection et je déclenche un "InputBox" pour collecter les quantités de chacun des produits. Et tous les éléments de la ligne sélectionnée dans la ListBox sont transférés dans une feuille.

Pour désélectionner tous les items sélectionnés aucun soucis avec ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim x As Byte
For i = 0 To ListBox1.ListCount - 1
     ListBox1.Selected(x) = False
Next i

Mais, si pour un item aucune quantité n'est entrée dans l'InputBox et que je ferme celui-ci, je souhaiterai désélectionner cet item et poursuivre la procédure avec les autres items sélectionnés dans la ListBox. Çà peut être n'importe quel item de la multi sélection.

C'est sur ce dernier point que je bute.

J'ai fait plusieurs recherches sans trouver de solution et je ne vois pas comment procéder.

J'ai besoin de votre aide, merci d'avance.

[Thautheme]

Bonjour Modus, bonjour le forum,

pas sûr d'avoir bien compris... Mais pourquoi ne pas désélectionner l'item juste après l'InputBox, quelle soit renseignée ou non ? De cette manière à la fin tu n'aurais plus aucun item sélectionné.

[modus57]

Bonjour Thautheme,

Merci grand manitou esprit du bien.

Vous avez compris, c'est tout simple finalement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Source.Selected(I) = False

Ça fonctionne nickel chrome.