- ListBox sur plusieurs colonnes avec choix multiples.

[JB]

- Bonjour les Forumen et Forumwomen,

j'ai un petit problême à vous soumettre...

J'ai un tableau comprenant cinq colonnes et vingt lignes.

Il me faudrait un UserForm avec une ListBox qui me permettrait de sélectionner plusieurs lignes de ce tableau pour les mettres à la suite d'autres données sur une feuille définie.

J'ai trouvé un modèle dans ma documentation mais les données sélectionnées sont placées à chaque fois sur la ligne 1, effaçant ainsi les données placées auparavant.

Je rame depuis des heures et j'attaque la falaise...

Merci d'avance de votre aide.

JB

 

[Bill]

Bonjour

Si les lignes sont dans un même tableau :

UserForm1.ListBox1.RowSource = "Feuil1!A215"


J'espère que cela te vas. sinon me contacter.

 

[JB]

- Merci Bill pour l'attention portée à mon problême.

Les renseignements que tu m'as donnés, je les possède déjà.

Voici une macro que j'ai trouvé sur Internet, malheureusement quand je sélectionne une ou plusieurs lignes, toutes les lignes sont automatiquement copiées.
Peux-tu éventuellement regarder ce qui cloche?

Private Sub CommandButton1_Click
Dim element_select As Boolean
Dim nb_elements, i As Integer

element_select = False
nb_elements = UserForm1.ListBox.ListCount

For i = 0 To nb_elements - 1
If UserForm1.ListBox1.Selected(i) = True Then
element_select = True
Exit For
End If
Next

If element_select = False Then
MsgBox "Vous n'avez rien sélectioné."
Exit Sub
End If

Label1.Caption = "Il y a "& nb_elements & " éléments sélectionnés"
Range("C1").Select

For i = 0 To nb_elements - 1

ActiveCell.Value = ListBox1.List(i,0)
ActiveCell.Offset(0,1).Value = ListBox1.List(i,1)
ActiveCell.Offset(1,0).Select
Nest i

End Sub