Alimenter 3 ListBox par un seul tableau

**apt** · 20/12/2019, 19h32

Bonjour à tous,

J'ai un tableau de 6 colonnes, et j'aimerais bien le distribuer sur 3 ListBox.

La première ListBox contiendra la première colonne du tableau

La deuxième ListBox contiendra les trois colonnes suivantes à savoir 2,3 et 4

La troisième ListBox contiendra la dernière colonne du tableau.

Est-ce possible ?

Merci d’avance.

**tototiti2008** · 20/12/2019, 20h44

Bonsoir,

un essai

**apt** · 20/12/2019, 20h56

Bonsoir tototiti,

Merci pour l'exemple.

L'alimentation des ListBox ne se fera pas directement à partir de la feuille, mais depuis un tableau dimensionné

Voici un exemple de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub TxtFix_Change()
 
    Nbmax = Sheets("Base").Range("A100000").End(xlUp).Row
 
    If Me.TxtFix <> "" Then
 
        Me.TextNom = ""
        Me.TxtMob = ""
 
        Me.ListClient.Clear
        Me.ListFix.Clear
        Me.ListMob.Clear
 
        Dim tm As Single
        tm = Timer
 
        Dim tTab(), tExtract()
        Dim iIdx%
 
        tTab = Range("A2:J" & Range("E" & Rows.Count).End(xlUp).Row).Value
        If Len(Me.TxtFix) >= 2 Then
            For x = 1 To UBound(tTab, 1)
                For y = 2 To UBound(tTab, 2)
 
                    If InStr(UCase(tTab(x, y)), UCase(Me.TxtFix.Value)) > 0 Then
 
                        iIdx = iIdx + 1
                        ReDim Preserve tExtract(7, iIdx)
 
                        tExtract(0, iIdx - 1) = tTab(x, 1) + 1
                        tExtract(1, iIdx - 1) = tTab(x, 5)
                        tExtract(2, iIdx - 1) = tTab(x, 6)
                        tExtract(3, iIdx - 1) = tTab(x, 7)
                        tExtract(4, iIdx - 1) = tTab(x, 8)
                        tExtract(5, iIdx - 1) = tTab(x, 9)
                        tExtract(6, iIdx - 1) = tTab(x, 10)
 
                        If y <> 5 Then tExtract(2, iIdx - 1) = tTab(x, y)
                        Exit For
                    End If
                Next
            Next
        End If
        Me.ListClent.List = tExtract(1)
        Me.ListFix.List = tExtract(2) & tExtract(3) & tExtract(4)
        Me.ListMob.List = tExtract(5) & tExtract(6)
 
        MsgBox "Durée d'exécution: " & Timer - tm & " s"
    End If
 
End Sub

**tototiti2008** · 20/12/2019, 22h34

Re,

à tester

Dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Function ColTab(ByVal Tablo, ColDeb As Long, ColFin As Long)
Dim NouvTab(), i As Long, j As Long
    ReDim NouvTab(LBound(Tablo, 1) To UBound(Tablo, 1), 1 To ColFin - ColDeb + 1)
    For i = LBound(Tablo, 1) To UBound(Tablo, 1)
        For j = ColDeb To ColFin
            NouvTab(i, j - ColDeb + 1) = Tablo(i, j)
        Next j
    Next i
    ColTab = NouvTab
End Function

Chargement des listes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
...
        Me.ListClent.List = coltab(tExtract,1,1)
        Me.ListFix.List = coltab(tExtract,2,4)
        Me.ListMob.List = coltab(tExtract,5,6)
Me.ListFix.columncount=3
Me.ListMob.columncount=2
...

**apt** · 21/12/2019, 00h00

Salut tototiti,

J'ai eu une erreur d'exécution '9' :

L'indice n'appartient pas à la selection

Sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReDim NouvTab(LBound(Tablo, 1) To UBound(Tablo, 1), 1 To ColFin - ColDeb + 1)

**tototiti2008** · 21/12/2019, 00h27

Re,

Après lecture plus approfondie de ton code, tExtract semble être dans l'autre sens

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function LigTab(ByVal Tablo, LigDeb As Long, LigFin As Long)
 
 
Dim NouvTab(), i As Long, j As Long
    ReDim NouvTab(1 To LigFin - LigDeb + 1, LBound(Tablo, 2) To UBound(Tablo, 2))
    For j = LBound(Tablo, 2) To UBound(Tablo, 2)
        For i = LigDeb To LigFin
            NouvTab(i - LigDeb + 1, j) = Tablo(i, j)
        Next i
    Next j
    LigTab = NouvTab
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Me.ListClent.column = ligtab(tExtract,1,1)
        Me.ListFix.column = ligtab(tExtract,2,4)
        Me.ListMob.column = ligtab(tExtract,5,6)
Me.ListFix.columncount=3
Me.ListMob.columncount=2

**apt** · 21/12/2019, 00h47

Même erreur d'exécution sur la ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReDim NouvTab(1 To LigFin - LigDeb + 1, LBound(Tablo, 2) To UBound(Tablo, 2))

**tototiti2008** · 21/12/2019, 00h56

Alors il va falloir que tu analyses le contenu de tExtract, car je ne sais pas en l'état

**apt** · 21/12/2019, 01h09

Si je tape une seule lettre ou numéro dans le TextBox de recherche, le tableau tExtract sera vide selon la condition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Len(Me.TxtFix) >= 2 Then

Il fallait insérer le code de remplissage des ListBox avant le (End if) de cette condition

Je vais refaire le test avec les deux fonctions.

**boisgontierjacques** · 21/12/2019, 11h05

Bonjour,

Cette écriture, plus classique, est compatible avec un tableau non structuré. En outre, le tableau peut être déplacé sur un autre onglet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_Initialize()
  ListBox1.List = Application.Index([Tableau1], , 1).Value
  ListBox2.ColumnCount = 3
  ListBox2.List = Application.Index([Tableau1], , 2).Resize(, 3).Value
  ListBox3.List = Application.Index([Tableau1], , 6).Value
End Sub

S'il s'agit d'un Array()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
  Tbl = [Tableau1].Value
  n = UBound(Tbl)
  ListBox1.List = Application.Index(Tbl, , 1)
  ListBox2.ColumnCount = 3
  ListBox2.List = Application.Index(Tbl, Evaluate("Row(1:" & n & ")"), Array(2, 3, 4))
  ListBox3.List = Application.Index(Tbl, , 6)
End Sub

Boisgontier

**OrDonc** · 21/12/2019, 12h23

Bonjour …

Dès que le tableau structuré est défini, son nom et ceux des titres (visibles ou pas) sont mémorisés.
Autant les utiliser (VBA ou pas) : le tableau étant nommé Tb, pour les listes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
    ListBox1.List = [Tb].Columns(1).Value
    ListBox2.List = [Tb[[b]:[d]]].Value        ‘avec le nom des titres plutôt que l’index
    ListBox3.List = [Tb].Columns([Tb].Columns.Count).Value
End Sub

Maintenant on peut vouloir éviter les doublons, les vides

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
    Dim D As Object, R As Range
    'sans doublon
    Set D = CreateObject("Scripting.Dictionary")
    For Each R In [Tb].Columns(1).Cells: D(R.Value) = "": Next
    ListBox1.List = D.keys
    'multicolonnes (continues), en passant par leur nom et non leur index
    ListBox2.List = [Tb[[b]:[d]]].Value
    'sans vide
    ListBox3.List = [Tb].Columns(6).Cells.SpecialCells(2).Value
End Sub

**apt** · 21/12/2019, 18h40

Bonsoir tototiti, Boisgontier, orDonc, le forum,

J'ai essayé d'adapter la solution de boisgontier, puisqu'il y a une fonction prédéfinie qui sélectionne directement la colonne d'un tableau, mais voila les listes sont alimentées d'une manière inverse

**Pierre Fauconnier** · 01/01/2020, 18h18

Salut.

Si cela t'intéresse, j'ai modélisé les échanges Table/userform dans cette contribution. Elle généralise l'approche par l'utilisation d'une classe d'échange. Tu peux bien entendu l'utiliser sur base d'un double-click sur une ligne de ta table.

**apt** · 02/01/2020, 19h32

Bonsoir OrDonc, Pierre,

J'ai corrigé le code et fonctionne bien maintenant. Merci

Mais pour un annuaire qui contient des centaines de lignes, cela peut être gênant de parcourir toute la liste pour trouver la ligne correspondante pour une éventuelle mondialisation par exemple

Pierre >> Je vais lire ce qu'il y a dans le lien proposé. Merci.

**Pierre Fauconnier** · 02/01/2020, 19h43

Salut.

Dans la mesure où, au vu des différentes propositions qui pour certaines, ne me semblent pas correspondre à ton besoin de départ, je ne sais plus trop ce que tu cherches à réaliser, d'où tu pars et où tu veux arriver...

Peux-tu repréciser ton propos et éventuellement mettre ton classeur?

**apt** · 02/01/2020, 22h07

Re,

Bon, j'aimerais réaliser un gestionnaire d'annuaire téléphonique d'un service technique.

Pour cela, l'utilisateur devra saisir soit un nom de titulaire, soit un numéro de téléphone fixe soit un numéro de téléphone mobile dans un formulaire.

L'utilisateur à le choix de consulter, modifier, d'ajouter ou de supprimer des lignes de l’annuaire.

Voila, en général, l'idée de mon projet.

Merci d'avance.

**Pierre Fauconnier** · 03/01/2020, 21h47

Salut.

Je me pose toute de même la question suivante: Pourquoi passer par du VBA pour réaliser cela? A part pour un exercice scolaire, je ne vois pas trop l'utilité, alors qu'Excel a tout ce qu'il faut en magasin pour réaliser cela par filtrage sur un simple tableau structuré et peut modifier ce qu'il souhaite directement dans les cellules du tableau. Il est possible de placer des validations à la saisie pour contrôler ce qui est entré. Ca prend à tout casser 10 minutes de mettre cela en place en Excel.

De plus, tu parles de listbox, mais dans le fichier que tu joins, tu montres une feuille Excel en guise de formulaire

Pourquoi veux-tu passer par du vba?

**apt** · 07/01/2020, 00h11

Bonsoir Pierre,

Je n'ai pas bien une vue claire de ce que tu avances, mais, j'ai pensé qu'en VBA, en peut bien gérer une bdd, avec toutes les opérations nécessaires à cela.

Donc, en VBA j'ai bien avancé, après l'aide que j'ai eu, mais si tu veux, j'aimerais bien voir l'idée que tu avances

Merci d'avance.

**Pierre Fauconnier** · 07/01/2020, 06h47

Salut.

Quelques principes de base:

On essaie d'utiliser le meilleur outil, le plus adapté, pour un travail donné (quitte à apprendre à s'en servir);
Excel n'est pas un gestionnaire de base de données, au départ;
On essaie de ne pas réinventer la roue de ce qui existe déjà;
Si on doit coder, on s'appuie au maximum sur l'outil que l'on a choisi (Excel, dans ton cas).

Cela dit, lorsque tu crées un tableau structuré (ce que tu as fait, comme je l'ai vu dans le fichier que tu as donné), tu as normalement les outils de filtre qui se placent sur la ligne d'entête.

A partir de là, tu peux filtrer sur les colonnes de ton tableau, relâcher un ou plusieurs filtres d'un coup, rechercher des correspondances approximatives avec les jokers * et ?. Tu peux supprimer une ligne, en ajouter, en insérer. Tout cela peut s'effectuer sans aucune ligne de code. Si tu places de la validation sur tes données, toujours sans code, tu peux imposer la saisie d'une date dans une colonne de date, une valeur numérique entière, un élément présent dans une liste, ... Cette validation s'étendra sur les nouvelles lignes de ta table. Tu peux y placer de la mise en forme conditionnelle qui, elle aussi, s'étendra aux nouvelles lignes.

Avant donc de développer une "application" Excel avec des userforms et du code, il est probablement intéressant de définir ce que tu dois obtenir in fine, à qui est destiné ton fichier, en te disant qu'il est probablement moins coûteux d'apprendre à quelqu'un à manipuler les filtres automatiques qu'à tenter de les remplacer par du code. Pense que si ton userform doit gérer des dates, par exemple, tu ajoutes une certaine complexité à ton appli => saisis 01/02/2020 dans un textbox de userform puis regarde ce qui atterrit dans une cellule avec un code du genre range("a1").value = textbox1.value... ^^

Cela dit, si ta passion est de coder et que tu en fais un jeu, ok, passe par un userform et amuse-toi, c'est très bien. Mais très basiquement, saisir des données dans un tableau structuré, supprimer des lignes, filtrer pour rechercher de l'info, ça se met en place en 10 minutes chrono avec les outils natifs d'Excel.

My two cents

**apt** · 07/01/2020, 19h12

Bonjour Pierre,

Merci pour tes précieux conseils.

Primo, cette application est destinée aux agents d'un service, ou tout le monde ne s'est pas utilisé l'outil Excel

Donc, leur faciliter la tache est le principal but de cette application.

Secundo, j'en ai l'habitude, est je ne sais pas si c'est un défaut ou pas, là ou je vois des taches répétitives, de les coder tout simplement

Tertio, Excel, je sais, n'est pas l'outil idéal pour gérer des grosses bases de données, Access est fait pour cela (Pourtant je m'en suis pas encore servi)

, mais pour gérer quelques centaines de lignes comme c’est mon cas, on pourra avoir un bonne résultat.

Encore merci pour conseils.