XL 2016 Code à modifier légèrement...

[WEIDER]

Bonjour à toutes et tous,

Pourriez-vous me donner un p’ti coup de main pour modifier ce code de ListBox s’il vous plait ?

J’ai mis mes explications directement dans mon fichier joint.

D’avance un grand merci pour votre aide !!!

 

[job75]

Bonjour WEIDER,

    ListBox1.ColumnCount = 4 'Nombre de colonnes
    '---------
                ListBox1.AddItem Cells(ligne, 1) 'Inscrit dans la listbox le data colonne 1
                ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(ligne, 2)
                ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(ligne, 3)
                ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(ligne, 4)

A+

 

[WEIDER]

Merci beaucoup job75 !!! Nickel !

Question subsidiaire ....
A l’intérieur de cette ListBox, est il possible de 'jouer' sur les espaces entre chaque information, sans pour autant être obligé de redimensionner cette ListBox ?

 

[job75]

Re,

Question subsidiaire ....
A l’intérieur de cette ListBox, est il possible de 'jouer' sur les espaces entre chaque information

Pas les espaces mais les caractères de tabulation Chr(9) :

    ListBox1.ColumnCount = 2 'Nombre de colonnes
    ListBox1.ColumnWidths = 50 'largeur de la 1ère colonne
    '---------
                ListBox1.AddItem Cells(ligne, 1) 'Inscrit dans la list box le data colonne 1
                ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(ligne, 2) & Chr(9) & Cells(ligne, 3) & Chr(9) & Cells(ligne, 4)

A+

 

[WEIDER]

Merci job75 !