listbox multi-colonnes & multiselect - Récupération données

Version imprimable

18/06/2014, 17h49
shadjire

listbox multi-colonnes & multiselect - Récupération données

Bonjour,

j'ai une listbox multi-colonnes et multiselect pour laquelle j'aimerai récupérer les données dans une même cellule, en séparant seulement les infos de chaque colonne par une virgule ou un tiret "-" si possible.

J'ai réussi à récupérer les éléments de ma sélection multiple pour la 1e colonne seulement dans une même cellule, mais pas pour la 2nd colonne.

Comment faire ?

Merci

Bonjour,
Voici une fonction à placer dans le module du formulaire (UserForm) où se trouve le contrôle ListBox.
Seul l'argument objListBox est obligatoire. Voir les explications qui se trouvent en tête de fonction.

Procédure

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
Function TextSelected(objListBox As Control, Optional ColumnNumber As Byte = 0, Optional Separator As String = ";") As String
 ' Fonction renvoyant une chaîne de caractères contenant tous les éléments sélectionnés
 '          dans le listBox nommé lstBox de la colonne désignée par l'argument ColumnNumber
 '          La première colonne est 0
 '          Chaque élément est séparé par le caractère définit par l'arguement Separator
 ' Syntaxes possibles
 ' 1) msgbox TextSelected ListBox1
 ' 2) msgbox TextSelected ListBox1, 2
 ' 3) msgbox TextSelected ListBox1, 2, "-"
 ' Arguments
 ' objListBox  Objet ListBox
 ' [ColumnNumber] : N° de la colonne dont on doit renvoyer les éléments sélectionnés
 ' [Seprator] : Caractère de séparation
 Dim Elem As Byte
 If TypeName(objListBox) <> "ListBox" Then
  MsgBox "L'argument objLstBox (" & objListBox.Name & ") n'est pas un ListBox": Exit Function
 End If
 With objListBox
  If ColumnNumber >= .ColumnCount Then MsgBox "N° de colonne erroné": Exit Function
  If .ListCount = 0 Then Exit Function
  For Elem = 0 To .ListCount - 1
   If .Selected(Elem) = True Then ' Teste si la ligne du ListBox a été sélectionnée
    TextSelected = TextSelected & .List(Elem, ColumnNumber) & Separator
   End If
  Next
 End With
 If Len(TextSelected) Then TextSelected = Left(TextSelected, Len(TextSelected) - 1)
End Function

19/06/2014, 10h25
shadjire

Bonjour,

merci pour la réponse.

J'ai placé la fonction dans le module de l'userform concerné, en revanche, je n'arrive pas à appeler la fonction pour qu'elle s'exécute dans la bonne cellule quand j'appuie sur le bouton valider.

Comment faut-il faire ?

Merci
Bonne journée,
19/06/2014, 10h45
Philippe Tulliez
Bonjour,
La fonction doit être invoquée par exemple depuis une procédure événementielle d'un CommandButton

Exemple d'une procédure qui écrit la valeur renvoyée par la fonction dans la cellule I11 de la feuille nommée [db]
Code:

1 2 3 Private Sub cmdWriteMultiSelection_Click() ThisWorkbook.Worksheets("db").Range("I11") = TextSelected(Me.lstBox, 2, "-") End Sub
19/06/2014, 11h02
shadjire
Merci pour la rapidité de la réponse.

Alors j'ai écrit comme code ça :
Code:

1 2 TextSelected(Me.lstBox, 0, "-")
et je n'ai eu que la première colonne, ensuite j'ai essayé plusieurs combinaisons différentes mais je n'ai pas réussi à avoir les 2 colonnes.

Comment faut-il faire pour récupérer les 2 colonnes et séparer les éléments entre la 1e la 2e colonne par un "-" et les éléments entre chaque ligne par un "|" ?

Merci

Bonjour,
Oui et bien ce n'est pas ce que j'ai compris de la question.
La fonction que j'ai écrite renvoie la colonne précisée dans l'argument ColumnNumber de toutes les lignes sélectionnées dans la liste en séparant les éléments par la chaîne passée à l'argument Separator
Ces deux arguments ont chacun une valeur par défaut 0 pour ColumnNumber et ";" pour Separator
C'est ce qu'il me semble avoir mis dans les commentaires de la fonction. Ou bien je ne m'exprime pas correctement

Citation:

' Fonction renvoyant une chaîne de caractères contenant tous les éléments sélectionnés
' dans le listBox nommé lstBox de la colonne désignée par l'argument ColumnNumber
' La première colonne est 0
' Chaque élément est séparé par le caractère définit par l'arguement Separator

Mais il me semble que sii tu analyse comment la fonction est écrite, tu pourras te débrouiller pour faire une fonction qui renvoie toutes les colonnes de la ligne sélectionnée. Cependant je me pose la question de savoir ce qui se passe s'il y a plusieurs sélections.
Moi en tout les cas, je n'ai plus le temps pour l'instant.

Bonjour,
Finalement, j'ai eu 30 minutes de bon
Voilà une autre fonction qui renvoie un tableau de 1 ou plusieurs lignes suivant le nombre de sélection et caque ligne comprenant une chaîne de caractères de toutes les colonnes de la ligne

Pas le temps de commenter la fonction et le test a été rapide doncje ne garanti pas le "Bug Free"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Function TextSelectedColumns(objListBox As Control, Optional Separator As String = ";") As Variant ' Limite de la fonction ' Maximum de colonnes et lignes sélectionnée 256 Dim Tablo(), ColumnNumber As Byte, elem As Byte, Ind As Byte If TypeName(objListBox) <> "ListBox" Then MsgBox "L'argument objLstBox (" & objListBox.Name & ") n'est pas un ListBox": Exit Function End If With objListBox For elem = 0 To .ListCount - 1 If .Selected(elem) = True Then ' Teste si la ligne du ListBox a été sélectionnée ReDim Preserve Tablo(Ind) For ColumnNumber = 0 To .ColumnCount - 1 Tablo(Ind) = Tablo(Ind) & .List(elem, ColumnNumber) & Separator Next ColumnNumber Tablo(Ind) = Left(Tablo(Ind), Len(Tablo(Ind)) - 1): Ind = Ind + 1 End If Next elem End With TextSelectedColumns = Tablo End Function
Exemple d'appel de la fonction
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub cmdWriteMultiSelection_Click() Dim Tablo(), elem As Byte Tablo = TextSelectedColumns(Me.lstBox, "-") If UBound(Tablo) Then For elem = 0 To UBound(Tablo) MsgBox Tablo(elem) Next Else MsgBox "Aucun élément sélectionné" End If End Sub

19/06/2014, 14h19
shadjire

Citation:

Envoyé par Philippe Tulliez

Bonjour,
Finalement, j'ai eu 30 minutes de bon
Voilà une autre fonction qui renvoie un tableau de 1 ou plusieurs lignes suivant le nombre de sélection et caque ligne comprenant une chaîne de caractères de toutes les colonnes de la ligne

Merci bcp mais comme précisé plus haut, ce qui m'intéresse c'est d'avoir toute l'info sélectionnée dans une et même cellule d'excel.
Je viens de voir tes 2 messages de suite, du coup j'ai pas eu le temps de me pencher sur la question.
En tout cas merci encore de ton aide !
19/06/2014, 14h30
Philippe Tulliez

Bonjour,

Citation:

ce qui m'intéresse c'est d'avoir toute l'info sélectionnée dans une et même cellule d'excel.

Il me semble que c'est ce que je viens de faire non ?
S'il faut avoir toutes les lignes et colonnes dans une cellule et bien il suffit de faire une concaténation de la table renvoyée.
19/06/2014, 16h01
shadjire

Effectivement ça marche très bien merci !
Par contre j'ai essayé de concaténer et je n'ai pas réussi !
Je vais continuer mes essais mais si qqn à une idée, je prends ! Merci
19/06/2014, 17h20
Philippe Tulliez

Bonjour,

Citation:

Par contre j'ai essayé de concaténer et je n'ai pas réussi !
Je vais continuer mes essais mais si qqn à une idée, je prends ! Merci

Pour concaténer (même dans excel c'est comme cela)

Code:

Chaine1 & Chaine2 & Chaine3

et sinon encore plus élégant, regarde du côté de la fonction Join
Un peu de lecture Manipuler les chaînes de caractères en VB6 et VBA Excel
02/07/2014, 14h59
shadjire

MERCI BEAUCOUP pour toute cette aide Philippe Tulliez.

Finalement je cherchais à faire très compliqué alors que j'avais une solution bcp plus simple. En tout cas, ça m'aura permis d'apprendre de nouvelles choses sous VBA Excel.

Je clôture donc la discussion ici.

p.s. désolée pour le temps de réponse long, j'étais en formation.