Ordre affichage dans listview

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

Bonjour

A première vue le code semble correct

Mais comme d'habitude

Pas besoin d'un fichier énorme, juste la partie avec le défaut

bonjour banzai64

c'est ce qu'il me semblait le code a l'air bon, je te joint le fichier pour voir de quoi cela peux venir

Pascal

Bonjour

Je ne sais pas pourquoi mais ... j'ai supprimé ta ListView, j'en ai recréé une autre avec les mêmes caractéristiques et cela fonctionne

bonjour BrunoM45

j'ai vu ta réponse et j'ai refait la même manipulation pour voir et c'est bien, peut est ce du a ce qu'il est sorti de son environnement qui a fait ce phénomène quoi qu'il en soit je te remercie de ton implication

Merci beaucoup

Pascal

Bonjour

grisan29 a écrit :

bonjour BrunoM45

Ce n'est pas la première fois, ça commence à m’agacer

Il y a gène pour moi et je préjuge pas de l'état d'esprit de BrunoM45 (que je salue)

Surtout que tu ne fais aucune correction quand je te le fais remarquer

Les plaisanteries les plus courtes sont les meilleures

Amicalement

re banzai64

mes plus plates excuses je ne sais pas pourquoi je n'ai pas contrôler avant de valider

Pascal