Affichage des titres de colonnes dans Listview

Bonjour,

dans un formulaire, afin de faciliter l'affichage des titres des colonnes, j'essaie d'utiliser Listview au lieu de Listbox.

J'utilise le code suivant:

Private Sub UserForm_Initialize()

 With ListView1.ColumnHeaders

 .Clear

 .Add , , "Num", 10

 .Add , , "Nom", 110

 .Add , , "Prénom", 100

 End With

 End Sub

Aucun titre ne s'affiche dans la listview.

Un fichier test est joint au message

Que faut-il rajouter au code pour que les titres s'affichent dans la listview?

Merci pour votre aide,

Cdt

JMV

Bonjour,

Comme ceci, peut-être?

Private Sub UserForm_Initialize()
With Me.ListView1
    With .ColumnHeaders
        .Clear
        .Add , , "Num", 10
        .Add , , "Nom", 110
        .Add , , "Prénom", 100
    End With
    .Gridlines = True 'Affichage du quadrillage
    .View = lvwReport 'Affichage en mode détail
End With
End Sub

Pour une aide + complète, regarde ici

Bon courage

Bonsoir,

un grand merci pour la réponse.

Cela fonctionne correctement.

Cdt

JMV

Bonsoir,

en reportant le code proposé dans mon fichier d'essai, cela fonctionne correctement/ les titres de la listview s'affichent.

Lorsque je reporte ce même code dans mon application, je reçois un message d'erreur., voir image.

Si je déclare la variable LvwReport avec dim LvwReport, je n'ai plus l'erreur, mais les titres ne s'affichent plus!

A quoi correspond cette variable? Que faut-il faire?

Merci pour votre aide.

Cdt,

JMV

Bonsoir,

j'ai réécrit la ligne de code .view=...

Le VBA m'a alors donné la possibilité de choisir des options dans une liste déroulante.

J'ai choisi une option autre que LvwReport.

VBA m'a indiqué qu'il fallait charger une librairie manquante.

J'ai cliqué sur OK et la librairie s'est chargée.

Ensuite, je suis revenu sur cette ligne de code pour remettre l'option LvwReport .

Résultat: le code fonctionne , les titres de la listview s'affichent.

Cdt

JMv