Discussion :

[zblook]

Bonjour,

J'ai crée une ListBox avec titre (1 ligne de titre plus 5 lignes et 3 colonnes) et donc si j'ai bien tout compris je ne peux pas utiliser de ListBox.List mais je suis obligé de passer par ListBox.RowSource (?).

Alors comment faire avec RowSource pour récupérer des plages de donnéees non contiguës ?

Exemple : je voudrais récupérer les données de A2 à A6, B2 à B6 et D2 à D6. Et le contenu A1,B1,D1 en guise de titre.

[ouskel'n'or]

Juste pour le principe, tu devras faire avec... et donc comprendre le code.
Un userform + 1 listbox à 3 colonnes
Dans le module standard de ton projet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub ouvrir()
Load UserForm1
UserForm1.Show
End Sub

Dans l'userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub UserForm_Initialize()
Init
End Sub
 
Sub Init()
Dim ListCol As Variant, NoCol
Dim ListLig As Variant, NoLig
    ListCol = Array(1, 4, 6) 'liste des colonnes ds la feuille de calculs
    ListLig = Array(2, 5, 7, 9) 'Liste des lignes
 
    'On crée les lignes en remplissant la première colonne
    For NoLig = 0 To UBound(ListLig)
        Me.ListBox1.AddItem Cells(ListLig(NoLig), ListCol(0)).Value
    Next
 
    'On remplit les autres colonnes
    For NoCol = 1 To UBound(ListCol)
        For NoLig = 0 To UBound(ListLig)
            Me.ListBox1.Column(NoCol, NoLig) = _
            Cells(ListLig(NoLig), ListCol(NoCol)).Value
        Next
    Next
End Sub

Modifie les N° de lignes et de colonnes dans les tableaux et teste ça
A+

[zblook]

Le code marche impeccable pour récupérer les plages discontinues. Par contre je n'arrive pas à intégrer une première ligne comme titre dans ma ListBox.

[ouskel'n'or]

Désolé mais si je connais la possibilité de placer un en-tête de colonne avec RowSource (qui réclame l'adresse d'une plage de cellules) je ne connais pas de méthode le permettant avec List.
Ce que j'ai testé est la création d'un range des cellules de ta liste.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
Dim Adres As Range
Dim ListCol As Variant, NoCol
Dim ListLig As Variant, NoLig
    ListCol = Array(2, 4, 6)  'liste des colonnes ds la feuille de calculs
    ListLig = Array(1, 2, 5, 7, 9)  'Liste des lignes
    Set Adres = Range("A1")
    For i = 0 To UBound(ListCol)
        For j = 0 To UBound(ListLig)
            Set Adres = Application.Union(Adres, Cells(ListLig(j), ListCol(i)))
        Next
    Next
    Me.ListBox1.RowSource = Adres.Address
End sub

Pas de bug dans le code mais ne fonctionne pas. Et à la réflexion, c'est normal (!)
J'ai également testé avec List, Column,... Même punition.
Mais si quelqu'un a une solution, elle méritera la FAQ
Je suis tes progrès