Alimenter listview par combox multi colonnes

[JC17]

Bonjour tout le monde,
Je cherche à alimenter une listview grâce à la valeur de la première colonne d'une combobox à 2 colonnes. Mais je n'y arrive pas.
En gors, il me faut adapter le code suivant qui marche pour une combobox à 1 colonne...

Dim Plg As Variant, Marche As String
Dim L As Integer, C As Byte
Marche = Me.ComboBox1
With Sheets("Synthèse")
Plg = .Range("a2:E" & .Range("a65536").End(xlUp).Row)
End With
  With ListView1
  .ListItems.Clear
For L = 1 To UBound(Plg, 1)
If Plg(L, 1) = Marche Then
            .ListItems.Add = Plg(L, 4) '1ère colonne
            For C = 1 To UBound(Plg, 2) 'colonnes suivantes
            .ListItems(.ListItems.Count).ListSubItems.Add 1, , Plg(L, 5)
        Next C
    End If
Next L
End With

Je vous remercie par avance.
Cordialement,
JC

 

[Spitnolan08]

Re : Alimenter listview par combox multi colonnes

Bonjour,
Ton problème ne viendrait il pas du fait que tu n'as aps défini ton nombre de colonnes dans ta listview ?

  With ListView1
    .ListItems.Clear
        With .ColumnHeaders
            .Clear
            For i = 1 To Sheets("Synthèse").Range("IV1").End(xlToLeft).Column
                .Add , , Sheets("Synthèse").Cells(1, i), 80
            Next i
        End With
End with

Sans fichier difficile de dire car ton code parait bon... que ta combo ait 1, 2, ou n colonnes.

Cordialement

 

[JC17]

Re : Alimenter listview par combox multi colonnes

Bonjour Spitnolan,
Je ne pense pas que ça vienne du nombre de colonnes défini pour la listview.
Je joint un bout de fichier pour faciliter les recherches.
Cordialement,
JC

 

[Spitnolan08]

Re : Alimenter listview par combox multi colonnes

Re,
Ton erreur provient très surement d'ici :

    For L = 1 To UBound(Plg, 1)
        If Plg(L, [SIZE=4][COLOR=Blue][B]2[/B][/COLOR][/SIZE]) = Marche Then
            .ListItems.Add = Plg(L, 4) '1ère colonne
            For C = 1 To UBound(Plg, 2) 'colonnes suivantes
                .ListItems(.ListItems.Count).ListSubItems.Add , , Plg(L, 5)
            Next C
        End If
    Next L
End With

Au lieu de 1...
Cordialement

 

[Spitnolan08]

Re : Alimenter listview par combox multi colonnes

Re,
Juste un ptit truc que j'ai oublié et sans rapport avec ta question. Je te propose de remplacer ton bout de code concernant l'initialisation de ton Combobox1 par :

'init ComboBox1

With Me.ComboBox1
.ColumnCount = 3
.ColumnWidths = "60;0;300"
.BoundColumn = 1
End With

With Sheets("Synthèse")
    ComboBox1.List = .Range("B2:D" & .Range("B65536").End(xlUp).Row).Value
End With

Ce qui revient au même, mais est un poil plus court.😀
Cordialement

 

[JC17]

Re : Alimenter listview par combox multi colonnes

Re bonjour Spitnolan,
Merci pour ton aide...
J'avoue que ton code d'init du combobox1 est plus court ainsi 😀
Pour le reste, j'ai réussi en trifouillant une combo masquée...
Je préfère pas trop rentrer dans les détails parce que les puristes risquent de défaillir devant "l'affrosité" de mon code.😛 En tout cas, merci beaucoup Spitnolan
Bonne fin de journée
Cordialement,
JC

 

[Spitnolan08]

Re : Alimenter listview par combox multi colonnes

Re,

Pour le reste, j'ai réussi en trifouillant une combo masquée...

Ce que je t'ai indiqué plus haut ne fonctionne pas ??? Bizarre, vous avez dit ...bizarre! Chez moi , c'est OK.
Cordialement

 

[Bebere]

Re : Alimenter listview par combox multi colonnes

bonjour Jc,Spinolan
remplace cette ligne
Marche = Me.ComboBox1
par celle-çi
Marche = Me.ComboBox1.list( Me.ComboBox1.listindex,0)
o index 1ère colonne,1 index 2ème colonne

 

[Spitnolan08]

Re : Alimenter listview par combox multi colonnes

Re,
Salut Bebere🙂

 Marche = Me.ComboBox1.list( Me.ComboBox1.listindex,0)

C'est une alternative à ce que j'ai proposé plus haut qui revient au même. Utiliser la position du curseur dans la liste au lieu de la valeur du combo.

Par conséquent, Tu confirmes implicitement que ma proposition fonctionne...😛

Cordialement

 

[JC17]

Re : Alimenter listview par combox multi colonnes

Re Spitnolan, Bebere,
Si ça marche Spit.. Ce sera toujours plus joli que le truc bizarre que j'avais fait, merci!!
Donc Bebebere, merci pour le coup de main mais c'est réglé. Merci quand même.
Bonne journée à vous
Cordialement,
JC