Discussion :

[grimgrim]

Bonsoir,

je veux mettre des valeurs dans un tableau puis le mettre dans un listbox

voici le code utilisé :

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 MyArray(30, 5)
Dim i As Single
 
ListBox1.ColumnCount = 5
 
Windows("Revue Referentiel.xls").Activate
Sheets("Nomenclature Equipement").Select
Nligne = Cells(1, 1).CurrentRegion.Rows.Count
Z = 0
MyArray(0, 1) = "Fonctionnalité"
MyArray(0, 2) = "Article Fils"
MyArray(0, 3) = "Description"
MyArray(0, 4) = "Quantité"
 
For x = 1 To Nligne
    If Cells(x, 1) = ArtRech Then
        Z = Z + 1
        MyArray(Z, 1) = Cells(x, 2)
        MyArray(Z, 2) = Cells(x, 3)
        MyArray(Z, 3) = Cells(x, 4)
        MyArray(Z, 4) = Cells(x, 5)
    End If
Next x
ListBox1.List() = MyArray

Comment modifier chaque colonne de mon tableau dans la listbox ?

Merci d'avance

[Invité]

Bonjour,

Les largeurs de colonnes d'une listbox sont gérées par la propriété Columnwidhts

Code :

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

1
2
3
4
5
6
7
8
Sub largeur_colonnes()
    Dim param As String
    param = Columns(1).Width 'permet d'obtenir la largeur de la colonne en points
    For x = 2 To 5
        param = param & " ;" & Columns(x).Width
    Next
    Sheets(1).ListBox1.ColumnWidths = param
End Sub

Cordialement.
Jean-Claude

[Philippe Tulliez]

Bonjour,
Un petit coup d'oeil sur cette contribution Adaptation automatique de la propriété ColumnWidth d'un controle ListBox ou ComboBox