Affichage personnalisé des données dans une ListBox

Bonjour

En alimentant ma ListBox contenant plusieurs colonnes, j'ai rencontré plusieurs problémes vu que je suis débutant en language VBA-Excel.

En effet, le code ci-dessous déclare avoir afficher un nombre de 65 colonnes dans ma listBox (un fichier trés long), pourtant j'aimerai savoir comment sélectionner un certains nombre de colonnes à afficher pour pouvoir se contenter des plus importants pour moi.

Exp : Colonne 1, colonne 3, colonne 10, colonne 21 et colonne 47.

Merci Beaucoup

Option Base 1
Dim Tablo()
Dim Counter As Integer

Sub AlimenterListbox()
Dim f As Worksheet
Dim Lr As Long
Dim Compteur As Integer
Dim Ligne As Integer
Dim colonne As Integer

Set f = ThisWorkbook.Sheets("Echéancier34")
Lr = f.Range("A" & Rows.Count).End(xlUp).Row

If Lr = 1 Then
Set f = Nothing
Exit Sub
End If
Compteur = Lr - 1
Counter = Lr - 1
ReDim Tablo(Counter, 65)
For Ligne = 1 To Counter
For colonne = 1 To 65
Tablo(Ligne, colonne) = f.Cells(Ligne + 1, colonne).Value
Next colonne
Next Ligne

Me.ListBox1.Clear
Me.ListBox1.List = Tablo

Set f = Nothing
End Sub

Bonjour

Tu devrais joindre ton fichier complet...

Bye !

Bonjour et Merci Gmb

Oui voila un exemple, Dont j'ai fait 7 colonnes, alors que je veux afficher que la deuxiéme et la 6 et la 7éme colonne sans la listbox.

Merci

Un essai à tester. Te convient-il ?

Bye !

Parfaitttt M Gmb. c'est absolument ceci

un autre truc svp, c'est que je veux que la mise en forme conditionnelle, appliquée dans le fichier ci-joint (colonne J)apparaisse au niveau du ListBox en question, tell qu'on la vois dans la cellule, est ce possible ?

Merci

Bonjour

Aucune personne ne peut m'aider pour résoudre cette problématique ? Je vous attends les génies

merci Bien