Bonjour à tous,


Classique de chez classique, j'essaie de remplir le ListView d'un formulaire, à son ouverture, sur base d'une plage nommée. Le ListView se rempli bel et bien mais ... "n'importe comment", l'un à coté des autres. J'aimerais que les éléments s'ajoute l'un en dessous de l'autre.

Deuxième remarque, le titre de ma colonne ne s'affiche pas. Pourquoi ?

Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub UserForm_Initialize()
 
    Dim cel As Range
    Dim i As Integer
 
 
With ListViewActivites
 
    With .ColumnHeaders
 
        .Clear
        .Add , , "Activités"
 
    End With
 
    For Each cel In Range("Activités")
 
        .ListItems.Add , , cel.Text
 
    Next cel
 
End With
End Sub
Merci d'avance du coup de patte !