Rechercher : dans
Par :

[vba/excel] recuperer selection listbox

Dernière réponse le 1 déc 2008 à 19:29:15 antic80, le 29 nov 2008 à 11:11:52 
 Signaler ce message aux modérateurs

Bonjour,

Bonjour,

j'ai une listbox avec environ 50 lignes

imaginons que je selectionne la ligne 1, 10 et 25, je souhaiterais afficher dans une cellule excel les 3 valeurs selectionnées en les séparants par le symbole /

merci pour votre aide

Configuration: Windows 2000
Internet Explorer 6.0

1

lermite222, le 29 nov 2008 à 11:38:45

Bonjour,
Un exemple...

Function ConcaTList() As String
Dim Txt As String
    For i = 1 To ListBox1.ListCount
        If ListBox1.Selected(i) = True Then
            Txt = Txt & ListBox1.List(i) & "/"
        End If
    Next i
    ConcaTList = Txt
End Function

A+ L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Répondre à lermite222

2

antic80, le 29 nov 2008 à 14:24:31

Merci pour ta reponse lermite

si j'ai bien tout suivi il me reste qu'a ajouté après ce code

activecell.value = txt

c'est bien ca ?

Répondre à antic80

3

lermite222, le 30 nov 2008 à 04:49:56

Beh oui...
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

Répondre à lermite222

4

antic80, le 30 nov 2008 à 08:35:36

Merci beaucoup lermite

Répondre à antic80

5

lermite222, le 30 nov 2008 à 10:45:56

Désoler pour la réponse erronnée...
c'est
ActiveCell = ConcaTList() L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

Répondre à lermite222

6

antic80, le 30 nov 2008 à 12:15:36

Ok merci

Répondre à antic80

7

antic80, le 1 déc 2008 à 14:27:50

J'ai essayé ta fonction mais j'obtient le message suivant

Erreur d'éxécution -2147024908....

impossible de lire la propriété selected. argument non valide

Répondre à antic80

8

michel_m, le 1 déc 2008 à 14:35:25

Bonjour Antic, Louis

Dans les les propriétés de talistbox "multiselect" est elle sur l'option "fmmultiselectextended" ? Cordialement,
Michel

Répondre à michel_m

9

 antic80, le 1 déc 2008 à 19:29:15

Je n'ai pas verifier cette option mais j'ai modifier cette ligne

For i = 1 To ListBox1.ListCount


j'ai mis

For i = 0 To ListBox1.ListCount -1

Répondre à antic80