ListBox avec multicolonnes non contiguës
Bonjour
J'ai une feuille avec 4 colonnes
Nom Prénom Sexe Profession
J'ai un UserForm avec une ListBox qui affiche ces 4 colonnes
Là, pas de problème
Mais comment modifier pour que la ListBox affiche seulement ces trois colonnes ?
Nom Prénom Profession
Bien sure, mettre 3 pour le nombre de colonne dans les propriétés de la ListBox, mais comment définir le .RowSource ?
Je joins l'exemple
Cordialement
SC
Je viens de trouver une contournement en "jouant" sur la taille des colonnes
Mettre 0 (zéro) pour celles que l'on ne veut pas afficher
Mais est-ce une bonne solution ?
Bonjour,
Une suggestion ...
Private Sub UserForm_Initialize()
Dim wDerLig As Long
Dim i As Integer
Sheets("Feuil1").Activate
'Dernière ligne renseignée
wDerLig = Range("B" & Rows.Count).End(xlUp).Row
'Nombre de colonnes dans la ListBox
ListBox1.ColumnCount = 3
'Largeur des colonnes de la ListBox
ListBox1.ColumnWidths = "100;100;100"
For i = 1 To wDerLig
'Ajoute une ligne et insère la première donnée dans la colonne de gauche
ListBox1.AddItem Range("B" & i)
'Ajoute les deux autres données dans les colonnes de droite
ListBox1.List(ListBox1.ListCount - 1, 1) = Range("C" & i)
ListBox1.List(ListBox1.ListCount - 1, 2) = Range("E" & i)
Next i
End Subric
Bonjour,
Oui, cela "marche", mais plus de titre de colonne ….
Cdlt
Bonjour,
Une version avec entête...
Private Sub UserForm_Initialize()
Dim wDerLig As Long
Dim i As Integer
Dim Plage As Range
Sheets("Feuil1").Activate
'Dernière ligne renseignée
wDerLig = Range("B" & Rows.Count).End(xlUp).Row
'Nombre de colonnes dans la ListBox
Set Plage = Range("B2:E" & wDerLig)
ListBox1.ColumnCount = 4
'Largeur des colonnes de la ListBox
ListBox1.ColumnWidths = "100;100;1;100"
ListBox1.ColumnHeads = True
ListBox1.RowSource = Plage.Address
End Subric
c
Bonjour,
Très bon code, merci