bonjour a tous et toutes
dans mon classeur client j'ai un souci d'affichage dans la listview qui me mets le contenu de la colonne C a l'horizontal au lieu du vertical, voici le code de l'initialisation
Private Sub UserForm_Initialize()
Sheets("feuil1").Range("j5:j11").Value = ""
With Listclient
.ListItems.Clear
.View = lvwReport: .FullRowSelect = True: .Gridlines = True
With .ColumnHeaders
.Add , , "civilité", 40
.Add , , "nom", 80
.Add , , "Prénom", 80
.Add , , "attention", 80
.Add , , "Adresse", 120
.Add , , "Complément", 80
.Add , , "C.P", 50
.Add , , "Ville", 80
.Add , , "Téléphone", 80
.Add , , "portable", 50
.Add , , "Mail", 50
End With: End With
With Sheets("client")
For Each C In .Range("C2", .Cells(Rows.Count, "C").End(xlUp))
X = X + 1
Listclient.ListItems.Add , , C
For J = 1 To 10
Listclient.ListItems(X).ListSubItems.Add , , C.Offset(0, J)
Next J: Next C
End With
End Sub
Pascal