Discussion :

[ric009]

Bonjour à tous,
j'aurai besoin d'aide pour mon programme vba ...

mon soucis :
j'ai une listbox qui se remplit par l'intermédiaire d'une combobox. Le problème est que je voudrais extraire toute les informations de la listbox dans la feuille excel et sans selection dans la listbox ...


Peut-être une fonction prédéfinie de vba permettrai de faire cela ?

Merci d'avance pour votre aide

[Theze]

Bonjour,

Regarde si ça convient :

Code :

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

1
2
3
 
'de A1 à Ax
Range(Cells(1, 1), Cells(ListBox1.ListCount, 1)) = ListBox1.List

Hervé.

[ric009]

Bonsoir, et merci pour ta réponse !
donc j'ai essayé et ça copie bien le contenu de la listbox mais est -il possible de tout insérer dans la cellule active ?

Et j'ai une dernière question concernant la listbox qui n'a aucun rapport avec l'extraction des données... Je me suis rendu compte que l’utilisateur pouvait faire des doublons dans la listbox il y a-t-il un moyen de supprimer les doublons et d'afficher une msgbox pour informer l'utilisateur que l'élément existe déjà ?

Merci par avant pour ton aide Theze !

[NVCfrm]

Bonsoir ric009.
Ta listbox comme tu l'as dit se remplit avec une combobox je suppose qui ne contient pas une liste.
Dans ce cas à chaque ajout d'élément nouveau, ajoute un item à combobox sur la valeur texte dans une condition évaluant Combobox.ListIndex>=0
Dans la condition vrai ne pas effectuer d'ajout de liste à combobox ou listbox et dans la condition fause ajouter un item.

Le plus simple serait dans un gestionnaire d'erreur (on error resume next) affecter la propriété text de la listbox.text par la valeur combobox.text.
Si erreur le texte n'existe pas dans la listbox, effacer l'erreur et poursuivre.
Si pas d'erreur le texte existe.

Cordialement.

[ric009]

bonsoir NVCfrm,

je ne comprends pas trop l'intérêt de ta listindex de la combobox ... je pense que tu n'as peut être pas compris le fonctionnement de ma listbox ... je te joins donc le fichier excel pour un échange plus claire.
Donc je cherche juste à extraire les informations de la listbox dans la cellule active et dans le cas où l'utilisateur ajoute un doublon de le prévenir par un msgbox et de supprimer le dernier ajout...

Cordialement.
Ric009