Listview a géométrie variable: Question

[Byfranck]

Bonjour à tous,

Voila j'ai une base de données de plusieurs milliers de lignes et 250 colonnes.
Pour l'exploiter, j'ai créé une batterie de listview.
Chacune me présente mes données en fonction des colonnes que j'ai figé.
Pour plus de souplesse, je me demande s'il n'est pas possible d'avoir des listview "dynamiques":
Avec des combobox ou listbox, je pourrais sélectionnner les titres de colonnes (de ma feuille) dont j'ai besoin et lancer l'ouverture d'un listview qui m'afficherait alors les colonnes sélectionnées.
Il y a un moment que je tourne et vire sur le forum, je ne trouve pas d'exemple qui fonctionnerait comme cela.
Est-ce possible?
Si oui y a-t-il quelque part un exemple dont je pourrais m'inspirer?

Merci d'avance pour vos réponses
Cordialement
Franck

 

[skoobi]

Re : Listview a géométrie variable: Question

Bonjour Franck,

Oui c'est possible. Par contre, de là à trouver un exemple sur le forum...
Les sujets sont rarement identiques (enfin presque...).
Parfois il vaut mieux partir de zéro plutôt que de modifier le code de quelqu'un d'autre dont l'approche peut être différente de la tienne (on passe parfois plus de temps à vouloir modifier le code d'untel alors que l'on aurait fini le notre).
Alors, retrousse tes manches et en avant 😉.
Et quand tu bloques, de l'aide tu en trouveras toujours ici 😉.

 

[tototiti2008]

Re : Listview a géométrie variable: Question

Bonjour ByFranck,

Je pense que c'est possible
un essai à adapter :

Edit : Bonjour Skoobi 🙂

 

[Byfranck]

Re : Listview a géométrie variable: Question

Bonjour Skoobi et Tottotiti,

Merci Tototiti pour cet exemple.
C'est exactement le type de fonctionnalité qui devarait me simplifier la vie (et diminuer le nombre d'Usf avec listview que je génère)!
Je vais essayer de voir comment je pourais selectionner les têtes de colonne au travers d'un textbox dans l'Usf.

Merci encore
Franck

 

[Byfranck]

Re : Listview a géométrie variable: Question

Re-Bonjour,

Bon vous allez voir je n'ai pas beaucoup avancé ...
Je tourne en rond car je n'arrive pas a activer les colonnes que je sélectionne par le listBox.
J'ai joint le peu que j'ai réussi à faire tourner.
la 1ere colonne est activé d'office pour que ça ne plante pas.


Si une âme charitable pouvait se pencher sur l'exemple moi je craque! 😡

Cordialement

 

[Byfranck]

Re : Listview a géométrie variable: Question

Bonsoir,
Le moral remonte: j'avance un peu.
Maintenant je fais afficher la colonne que je veux. 🙂

Par contre je n'arrive pas à faire qu'une selection multiple affiche les colonnes sélectionnées. 🙁

Quelqu'un à une idée?

Cordialement

 

[bqtr]

Re : Listview a géométrie variable: Question

Bonsoir Byfranck, Skoobi, tototiti

Un essai :

Code du bouton.

Private Sub CommandButton3_Click()
Dim DerLigne As Long, i As Long, j As Long, x As Integer
Dim Tablo(), k As Integer, m As Long, y As Long
 
If ListBox1.ListIndex = -1 Then
   MsgBox "pas bon"
   Exit Sub
End If
 
m = 1
DerLigne = ActiveSheet.Range("A65536").End(xlUp).Row
 
For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) = True Then
    ReDim Preserve Tablo(j)
    Tablo(j) = i + 1
    j = j + 1
  End If
Next
With ListView1
   .ListItems.Clear
   .View = lvwReport
   .ColumnHeaders.Clear
     For k = 0 To UBound(Tablo)
         .ColumnHeaders.Add Text:=Cells(1, Tablo(k)).Text
     Next k
       For y = 2 To DerLigne
           .ListItems.Add Text:=Cells(y, Tablo(0)).Value
         For x = 1 To UBound(Tablo)
             .ListItems(m).ListSubItems.Add Text:=Cells(y, Tablo(x)).Value
         Next
         m = m + 1
       Next
End With
 
End Sub

Code pour l'initialisation du USF.

Private Sub UserForm_Initialize()
 
Dim Temp As Variant
Temp = Sheets("Feuil1").Range("A1:IV1")
With ListBox1
  .List = Application.Transpose(Temp)
  .MultiSelect = fmMultiSelectMulti
  .ListIndex = -1
End With
 
End Sub

On récupère les n° de colonne dans un tableau en bouclant sur les éléments de la listbox qui sont sélectionnés.

Pour les en-têtes de la listview on boucle sur le tableau.

Bonne soirée

A+

 

[skoobi]

Re : Listview a géométrie variable: Question

Re,

bonsoir Pierre Olivier 🙂,

arfff j'allais mettre mon code et je vois que Pierre Olivier a fait un code très similaire au mien, pas la peine donc que je le mette 😉.

 

[Byfranck]

Re : Listview a géométrie variable: Question

Bonsoir bqtr et skoobi,

copier/coller et ça marche ...
brrrr j'étais pas loin! 🙄
En fait si assez loin quand même!

Merci pour votre aide !

Cordialement votre
Franck