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

WEIDER

XLDnaute Occasionnel
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 !!!
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour WEIDER,
Code:
    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

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

XLDnaute Barbatruc
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) :
Code:
    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+
 

Discussions similaires


Haut Bas