Posez votre question Signaler

[vba/excel] recuperer selection listbox

antic80 4884Messages postés 30 mai 2005Date d'inscription - Dernière réponse le 1 déc. 2008 à 19:29
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
Lire la suite 

[vba/excel] recuperer selection listbox »

9 réponses
Réponse
+2
moins plus
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+
Ajouter un commentaire
Réponse
+0
moins plus
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 ?
Ajouter un commentaire
Réponse
+0
moins plus
Beh oui...
A+
Ajouter un commentaire
Réponse
+0
moins plus
merci beaucoup lermite
Ajouter un commentaire
Réponse
+0
moins plus
Désoler pour la réponse erronnée...
c'est
ActiveCell = ConcaTList()
Ajouter un commentaire
Réponse
+0
moins plus
ok merci
Ajouter un commentaire
Réponse
+0
moins plus
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
Ajouter un commentaire
Réponse
+0
moins plus
Bonjour Antic, Louis

Dans les les propriétés de talistbox "multiselect" est elle sur l'option "fmmultiselectextended" ?
Ajouter un commentaire
Réponse
+0
moins plus
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
Ajouter un commentaire
Ce document intitulé « [vba/excel] recuperer selection listbox » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?