XL 2016 VBA ListView UserForm - Help !

  • Initiateur de la discussion Initiateur de la discussion Dudu2
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Dudu2

XLDnaute Barbatruc
Bonjour,

Je suis paumé avec les ListView.
Je voudrais 1 colonne et j'en ai 2 !
VB:
    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

1756460499268.png
 
Solution
Je vais te dire ce que j'ai appris grâce aux colistiers.
  • A l'initialisation, il semble que la ListView ait 2 colonnes par défaut, alors voilà comment je l'initialise pour une colonne unique sans titres de colonnes et pour avoir les Scroll Bars (H & V) automatiquement si ça déborde ( .FlatScrollBar = False):
    VB:
       With Me.ListView        .FullRowSelect = True
            .Gridlines = False
            .ColumnHeaders.Add , , "Colonne", .Width - 4
            .HideColumnHeaders = True
            .View = lvwReport
            .MultiSelect = True
            .FlatScrollBar = False
        End With

  • Au chargement initial, le 1er item est sélectioné par défaut, alors il faut ajouter:
    Code:
    ListView.ListItems(1).Selected = False

  • Pour sélectionner...
Bonjour,
Pour masquer la première colonne :
VB:
.ColumnWidths="4 cm;0 cm"
Pour masquer la deuxième colonne :
Code:
.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,
 
Bonjour le Fil
pour faire avancer le schimilimblick Lol (un exemple)
VB:
  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
 
Merci @nullosse , @ChTi160,

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

Quand je mets ça, plantage !
VB:
.ListView.ListItems(1).Selected = False
Edit: normal que ça plante, ListView n'a pas à être préfixé d'un point !
 

Pièces jointes

  • 1756464855226.png
    1756464855226.png
    5.4 KB · Affichages: 32
Dernière édition:
Re
Avec ces deux Lignes placées après chargement des données dans la ListView (ListView1 pour l'exemple)
VB:
Set LIstView1.SelectedItem = Nothing
    ListView1.ListItems(1).Selected = False
alors que
Code:
 .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
 
Je n'arrive pas à sélectionner des items en VBA ! Enervant !
VB:
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
234
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
360
Réponses
10
Affichages
281
Réponses
8
Affichages
233
Réponses
2
Affichages
200
Réponses
8
Affichages
466
Retour