Discussion :

[snooz13]

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 :

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

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

[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

[snooz13]

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 :

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
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

[snooz13]

Bonjour

voici la solution

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
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