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

WEIDER

XLDnaute Impliqué
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 !!!
 

Pièces jointes

  • ListBox a modifier.xlsm
    37.2 KB · Affichages: 21

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+
 

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

Réponses
2
Affichages
250
Réponses
6
Affichages
257
Réponses
9
Affichages
480

Statistiques des forums

Discussions
311 720
Messages
2 081 923
Membres
101 840
dernier inscrit
SamynoT