XL 2016 VBA ListView UserForm - Help !

[Dudu2]

Bonjour,

Je suis paumé avec les ListView.
Je voudrais 1 colonne et j'en ai 2 !

    With ListView
        .ListItems.Clear
        .FullRowSelect = True
        .Gridlines = True
        .HideColumnHeaders = True
        For i = LBound(TabValues) To UBound(TabValues)
            .ListItems.Add i, , TabValues(i)
        Next i
    End With

 

[Gégé-45550]

Bonjour,

Je suis paumé avec les ListView.
Je voudrais 1 colonne et j'en ai 2 !

    With ListView
        .ListItems.Clear
        .FullRowSelect = True
        .Gridlines = True
        .HideColumnHeaders = True
        For i = LBound(TabValues) To UBound(TabValues)
            .ListItems.Add i, , TabValues(i)
        Next i
    End With

Regarde la pièce jointe 1221805

 

[Gégé-45550]

Bonjour,
Pour masquer la première colonne :

.ColumnWidths="4 cm;0 cm"

Pour masquer la deuxième colonne :

.ColumnWidths="0 cm;4 cm"

Notez que j'ai indiqué arbitrairement 4 cm pour la largeur de colonne, à vous de définir la bonne largeur.
Ce qui est important, c'est de définir la largeur à 0 pour la (ou les) colonne(s) qu'on veut masquer.
Cordialement,

 

[Dudu2]

Merci @Gégé-45550,
Les ListView ont toujours 2 colonnes par défaut ?
On ne peut pas indiquer le Columns Count ?

 

[nullosse]

Salut,
il faut mettre .View à lvwReport pour utiliser en colonnes et même si on les cache il faut définir les en-têtes de colonnes pour savoir combien on en utilise et la largeur :

   .View = lvwReport
   .ColumnHeaders.Add , , "MaColonne", 100

Nullosse

 

[ChTi160]

Bonjour le Fil
pour faire avancer le schimilimblick Lol (un exemple)

  With .LstV_Liste
      With .ColumnHeaders
            .Clear                     'On supprime les Colonnes
            .Add , , "Date", 60, lvwColumnLeft 'Ici Visible  60
            .Add , , "Lieux", 0, lvwColumnLeft  'Ici Masquée  0      
      End With
            .Gridlines = True
            .FullRowSelect = True
            .LabelEdit = lvwManual
            .BorderStyle = ccFixedSingle
            .View = lvwReport
  End With

Bonne Journée
Jean marie

 

[Dudu2]

Merci @nullosse , @ChTi160,

Autre question...
L'item 1 est sélectionné par défaut ! Comment le désélectionner ?

Quand je mets ça, plantage !

.ListView.ListItems(1).Selected = False

Edit: normal que ça plante, ListView n'a pas à être préfixé d'un point !

 

[ChTi160]

Re
Avec ces deux Lignes placées après chargement des données dans la ListView (ListView1 pour l'exemple)

Set LIstView1.SelectedItem = Nothing
    ListView1.ListItems(1).Selected = False

alors que

 .ListItems(1).Selected = True

Sélectionne la première Ligne ou la seule Ligne si Ligne Unique !
à voir ! n'hésite pas si besion
Jean marie

 

[Dudu2]

Comment adresse-t-on un item de la ListView pour en récupérer la valeur ?
ListView.List(i) ?
ListView..ListItems(i).Text ?

 

[Dudu2]

Je n'arrive pas à sélectionner des items en VBA ! Enervant !

ListView.ListItems(i).Selected = True

 

[ChTi160]

Re
Tu as en tête de ligne le .ListItems(X).Text et pour les colonnes .ListItems(X).ListSubItems(Y).Text.
Avec le multiSelect a true si plusieurs lignes à sélectionner.
Depuis mon téléphone
Jean marie

 

[Gégé-45550]

Comment adresse-t-on un item de la ListView pour en récupérer la valeur ?
ListView.List(i) ?
ListView..ListItems(i).Text ?

Pour adresser un item dont l'index est i :

ListView1.List(i)

et pour adresser l'item sélectionné

ListView1.List(ListView1.ListIndex)

Cdlt

 

[ChTi160]

Re
Je ne connais pas cette façon de faire pour une ListView ,(non testé)

ListView1.List(i)
ListView1.List(ListView1.ListIndex)

mais je connais pour la listbox
Jean marie

 

[nullosse]

Je n'arrive pas à sélectionner des items en VBA ! Enervant !

ListView.ListItems(i).Selected = True

A mon avis la sélection fonctionne mais c'est l'affichage de ou des éléments sélectionnés qui ne fonctionne pas. Il semblerait que la propriété HideSelection pose des problèmes. Essayer ce code après sélection :

ListView.HideSelection = False

car même si la propriété est déjà à Faux avant , chez moi cela me remet l'affichage des sélections.

 

[Gégé-45550]

Re
Je ne connais pas cette façon de faire pour une ListView ,(non testé)

ListView1.List(i)
ListView1.List(ListView1.ListIndex)

mais je connais pour la listbox
Jean marie

Oups !!!
J'ai répondu trop vite, ça ne fonctionne effectivement que pour les Listbox.
Mille excuses