Multiple colonnes vers multiple ListBox

Version imprimable

Bonjour

merci pour votre aide

j'ai 9 colonnes sur une Worksheet
et 9 ListBox sur Form1

Chaque colonne doit alimenter sa ListBox

Problème simple

Mais impossible de trouver la bonne déclaration pour les variables

Voici un exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim Tableau_Col Dim Tableau_ListB Tableau_Col = array(1,4,5,8) Tableau_ListB = array("LB_Tarif","LB_Charge","LB_Dep","LB_Benef") Boucle i pour les Tableau_Col(i) Plage = range(Colonne en Cours) For each Cellule dans Plage Tableau_ListB(i).additem Cellule ---> erreur Next Cellule Next Tableau_Col
Tout fonctionne très bien si je mets le nom de la ListBox au lieu de "Tableau_ListB" (mais il faudra répéter 9 fois...)

Merci

13/06/2022, 11h12
jurassic pork

Hello,
peux-tu mettre le code exact que tu utilises car le code que tu nous montres n'est pas valide en VBA (ex : Boucle i).
Ami calmant, J.P

Bonjour

voici le code, désolé pour le retard, c'était la semaine des forum (itPrtners, VivaTech)

Le problème est simple à comprendre : chaque colonne dans Excel vers sa ListBox dans UserForm

Merci

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
Dim Tableau_Col
Dim Tableau_ListB
 
Dim Plage As Range
Dim Cellule As Range
 
Dim ColEnCour, DerLig as integer
Dim i as Integer
 
Tableau_Col = array(1,4,5,8) 'liste des colonnes à prendre
Tableau_ListB = array("LB_Tarif","LB_Charge","LB_Dep","LB_Benef")  ' Nom des ListBox EXISTANTES sur UserForm
 
For i = 0 to ubound(Tableau_Col) -1
 
ColEnCour  = Tableau_Col(i)
 
    DerLig = Cells(Rows.Count, ColEnCour).End(xlUp).Row
    Set Plage = Sheets("Feuil1").Range(Cells(2, ColEnCour), Cells(DerLig, ColEnCour)) ' Je ne mets pas la ligne 1 des titres
 
    For each Cellule in Plage
        Tableau_ListB(i).additem Cellule      '---> erreur
    Next Cellule
 
Next i

Bonjour

voici la solution

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
29
30
Dim Tableau_Col
Dim Tableau_ListB As Variant

Dim LB As MSForms.Control

Dim Plage As Range
Dim Cellule As Range

Dim ColEnCour, DerLig As Integer
Dim i As Integer

Tableau_Col = Array(1, 2, 3, 4)
Tableau_ListB = Array("ListBox1", "ListBox2", "ListBox3", "ListBox4")

For i = 0 To UBound(Tableau_Col)
    
    Set LB = UserForm1.Controls(Tableau_ListB(i))
    
    ColEnCour = Tableau_Col(i)

    DerLig = Cells(Rows.Count, ColEnCour).End(xlUp).Row
    Set Plage = Sheets("F_Base").Range(Cells(2, ColEnCour), Cells(DerLig, ColEnCour))
    
    
    For Each Cellule In Plage
        LB.AddItem Cellule
    Next Cellule

Next i