Recup multiselection de listbox dans une cellule

jpub Messages postés 43 Date d'inscription Statut Membre Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention - 10 juil. 2014 à 12:09

Bonjour,

je me permet de venir vous car j'ai un petit problème avec une listbox autorisant la multiselection.

j'initialise ma listbox au lancement de l'userform de la façon suivante :

Private Sub UserForm_Activate()

' charge les listboxs à l'ouverture de l'userform
Dim i As Long
' remplissage Type de devis
ListBox1.MultiSelect = 1 ' permet la multiselection
With ThisWorkbook.Worksheets("REFERENTIELS")
  For i = 3 To 50
      ListBox1.AddItem .Cells(i, 4)
  Next i
  End With

End sub

jusque là, pas de problème et je voudrais récupérer les sélections dans une cellule en les séparant par un "&".
Voilà ce que j'ai écrit (source web modifié)

Private Sub CommandButton1_Click()

 For i = 0 To Me.ListBox1.ListCount - 1
      If ListBox1.Selected(i) = True Then
        ThisWorkbook.Worksheets("TEST").Range("A1").Value =  " " & "&"ListBox1.List(i)
      End If
    Next i

end sub

mais le problème et que cela ne marche pas et ne récupère qu'une seule valeur.

L'un de vous aurait-il une solution ?

Merci d'avance.

Cordialement,

Jonathan

A voir également:

Recup multiselection de listbox dans une cellule
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Proteger cellule excel - Guide
Diviser une cellule excel en deux horizontalement - Forum Excel
Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Bureautique

2 réponses

Réponse 1 / 2

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Bonjour,

Il faut remplacer:

ThisWorkbook.Worksheets("TEST").Range("A1").Value = " " & "&"ListBox1.List(i)

Par:

ThisWorkbook.Worksheets("TEST").Range("A1").Value = ThisWorkbook.Worksheets("TEST").Range("A1").Value  & " " &  ListBox1.List(i)

«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau

Réponse 2 / 2

jpub Messages postés 43 Date d'inscription Statut Membre Dernière intervention 1

Super merci,

mais cela ne marche pas, j ai une erreur d'exécution de type 9
(l indice n'appartient pas à la sélection)

pour info mes listbox se chargent au démarrage avec une

Private Sub UserForm_Activate()

et la répération des sélections de ces listbox se fait dans une

 Private Sub CommandButton1_Click()

Merci encore

Private Sub UserForm_Activate()
Dim i As Long

' charge les listboxs à l'ouverture de l'userform

' remplissage Type de devis
ListBox1.MultiSelect = 1 ' permet la multiselection
With ThisWorkbook.Worksheets("REFERENTIELS")
  For i = 3 To 50
      ListBox1.AddItem .Cells(i, 4)
  Next i
  End With

END SUB

Private Sub CommandButton1_Click()

 For i = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(i) = True Then
         ThisWorkbook.Worksheets("DEVIS").C("A1").Value = ThisWorkbook.Worksheets("DEVIS").Range("A1").Value & " " & ListBox1.List(i)
      End If
    Next i

END SUB

Jonathan

jpub Messages postés 43 Date d'inscription Statut Membre Dernière intervention 1

correction de la seconde partie mais ça ne marche toujours pas

Private Sub CommandButton1_Click() 
For i = 0 To ListBox1.ListCount - 1
 If ListBox1.Selected(i) = True Then
 ThisWorkbook.Worksheets("DEVIS").Range("A1").Value = ThisWorkbook.Worksheets("DEVIS").Range("A1").Value & " " & ListBox1.List(i)
 End If
 Next i

end sub

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour,

Essayez ceci :

Private Sub CommandButton1_Click() 
Dim MonString As String
For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) = True Then
    MonString = MonString  & " " & ListBox1.List(i)
  End If
Next i
With ThisWorkbook.Worksheets("DEVIS").Range("A1")
  .Value = MonString
End With
End sub

EDIT : mes amitiés à Polux31 au passage

Discussions similaires

excel fractionner une cellule horizontalement

Excel formule : savoir si une cellule contient partie texte

Excel : colorer une cellule sous condition d'une autre ?

Remplir une cellule (texte) en fonction d'une autre (texte).

Impossible fusionner cellules

Votre réponse

Discussions similaires