Colonnes dans listbox

[Jnono]

Bonjour les amies,

Voila j'ai une petite queston a vous poser: j'ai une listbox dans un userform avec plusieurs donnees et j'aimerais savoir quel est le code VBA qui permet de creer des colones a l'interieur de la listbox car pour l'instant les donnees que j'ai se mettent les unes en dessous des autres et non pas en colonne.

Merci pour votre aide
Jnono

 

[Jnono]

Re : Colonnes dans listbox

J'ajoute mon fichier pour que vous puissiez mieux comprendre.

J'attends vos reponses
Merci

Jnono

 

[MichelXld]

Re : Colonnes dans listbox

bonsoir


un exemple pour créer une listbox multicolonne :

Private Sub UserForm_Initialize()
    Dim i As Byte, j As Byte
    
    'Définit le nombre de colonnes dans la ListBox
    ListBox1.ColumnCount = 7
    
    '---
    'Définit la largeur des colonnes d'une ListBox:
    'Par défaut, la largeur des colonnes est de 72 points
    '(72 points = 1 pouce)
    ListBox1.ColumnWidths = "50;80;50;60;50;70;50"     
        '---
        'Il est aussi possible de définir la dimension des colonnes en centimètres
        'ListBox1.ColumnWidths = "2 cm; 1,5 cm ......" 
        '---
    '---
    
    For i = 1 To 20
        'Ajoute une ligne et insère une donnée dans la première colonne         
        ListBox1.AddItem "Ligne" & i
        
        'Ajoute des données dans les autre colonnes
        For j = 1 To 7
        ListBox1.List(ListBox1.ListCount - 1, j) = i & j
        Next j
        
    Next i
End Sub

bonne soirée
michel
Microsoft Excel MVP