Extraire éléments d'une listbox

Version imprimable

21/12/2012, 13h18
ric009

Extraire éléments d'une listbox

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

Bonjour,

Regarde si ça convient :
Code:

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

21/12/2012, 23h31
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 !
25/12/2012, 21h43
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.
26/12/2012, 00h02
ric009

1 pièce(s) jointe(s)

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

salut rico!

très simple essayes ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
On Error Resume Next
If ListBox1.ListCount Then
    ListBox1.Value = ComboBox1.Text
    If Err Then
        Err.Clear
        ListBox1.AddItem (ComboBox1)
        ListBox1.Value = ListBox1.ListCount - 1
    Else
        MsgBox "Ce nom a déjà été ajouté à la liste!", vbExclamation, "Tentative de doublon"
    End If
Else
    ListBox1.AddItem (ComboBox1)
    ListBox1.Value = ListBox1.ListCount - 1
End If

cordialement

30/12/2012, 00h28
ric009

tout d'abord merci pour ta réponse !
mais j'ai mis le code à la suite de mon code du bouton ajouter ("+") et aucun résultat seulement la msgbox s'affiche.. (Ce nom a déjà été ajouté à la liste!) j'ai par la suite essayé l'évènement erreur mais aucun résultat ... peut être que je m'y prends mal ?
et j'aurai une question par rapport à ton code ... que signifie la première condition, il ne manque pas un élément ... ?

merci par avance pour ton aide !

Bonsoir.

Qu'est ce que le Bouton + est censé faire?

je crois que je ne saisis pas ce que tu veux exactement.

Citation:

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...

Dans le lien de fichier , il y avait ce code que j'ai extrait dans un Bloc note avant de supprimer définitivement le fichier.

Voici le texte de ton code qui semble indicatif de ce que tu veux faire avec ton bouton.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 Private Sub CommandButton1_Click() End Sub Private Sub CommandButton2_Click() Dim numero_de_ligne As Integer Dim nom As String numero_de_ligne = ComboBox1.ListIndex If numero_de_ligne > -1 Then nom = ComboBox1.List(numero_de_ligne) ListBox1.AddItem (nom) ElseIf ComboBox1.Value <> "" Then nom = ComboBox1.Value ListBox1.AddItem (nom) End If End Sub Private Sub UserForm_Initialize() Feuil2.Activate Range("A2").Select While ActiveCell.Value <> "" ComboBox1.AddItem (ActiveCell.Value) ActiveCell.Offset(1, 0).Select Wend End Sub
je cites:

Citation:

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

qui a été bien repondu par Theze.

et ta réponse à ce dernier:

Citation:

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à ?

Je viens de voir...voudrais tu concaténer? ce passage n'est pas très explicite.

Citation:

mais est -il possible de tout insérer dans la cellule active ?

Tout? toute la liste? Il faut explicitement dire convertir le tableau en un texte séparé par ceci ou cela.
je vois également à présent que ton code pour charger la combobox se limite à activecell dans une boucle conditionnelle.
Je me reserves de donner une réponse quelconque avant une clarification compréhensible pour moi.

30/12/2012, 15h48
ric009

je veux juste :
-extraire les informations de la listbox dans la cellule active sous forme de texte
-et lorsque l'utilisateur ajoute une couleur à la listbox je veux que si la couleur est déjà présente dans la listbox qu'il supprime le dernier ajout et informe l'utilisateur..

comprends-tu ce que j'essai de faire ...?

cordialement
ric009

Bonjour,

Remplace tout le code de la Form par celui-ci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Private Sub CommandButton2_Click()
 
    Dim I As Integer
 
    If ComboBox1.ListIndex <> -1 Then
 
        For I = 0 To ListBox1.ListCount - 1
 
            If ListBox1.List(I) = ComboBox1.Text Then
 
                MsgBox "le nom '" & ComboBox1.Text & "' a déjà ajouté à la liste !"
                Exit Sub
 
            End If
 
        Next I
 
        ListBox1.AddItem (ComboBox1.Text)
 
    End If
 
End Sub
 
Private Sub UserForm_Initialize()
 
    'rempli le Combo avec la liste de A2 à Ax
    With Worksheets("Feuil2")
 
        ComboBox1.RowSource = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).Address
 
    End With
 
End Sub

Hervé.

30/12/2012, 21h37
ric009

merci pour votre aide ! cela fonctionne très bien !

juste petit soucis ... je n'arrive pas à faire en sorte que listbox1.list fasse apparaître tous les éléments de la listbox dans la cellule active... peut être une option existante de la listbox .. une idée ?

cordialement.
ric009

Bonjour,

En supposant que l'inscription dans la cellule active se fasse sur l'évènement Click d'un bouton (ici, CommandButton3) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub CommandButton3_Click()
 
    Dim Texte As String
    Dim I As Integer
 
    'concatène les mots avec un retour à la ligne
    For I = 0 To ListBox1.ListCount - 1
 
        Texte = Texte & ListBox1.List(I) & vbCrLf
 
    Next I
 
    'inscit dans la cellule active en supprimant le dernier retour à la ligne
    ActiveCell = Left(Texte, Len(Texte) - 1)
 
End Sub

Hervé.

31/12/2012, 13h34
ric009

Merci Hervé t'es un maître du VBA ! ;)