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+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas