bonjour a vous tous
j'ai un usf client qui fonctionne bien avec une listbox
voici donc mon fichier qui ne veux pas afficher dans sa listview la liste des clients
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
24
25
26
27
Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
With ListView1
    With .ColumnHeaders 'Mise en page des en-têtes
        .Clear
        .Add , , "civilité", 40
        .Add , , "Nom", 120
        .Add , , "Prénom", 210
        .Add , , "Adresse", 40
        .Add , , "Complément", 60
        .Add , , "C.P", 50
        .Add , , "Ville", 60
        .Add , , "Télephone", 60
        .Add , , "Portable", 60
        .Add , , "Mail", 60
        End With
 
    .View = 3                   ' type Report
    .Gridlines = True           ' affichage de lignes
    .FullRowSelect = True       ' sélection complète de la ligne
    .HideColumnHeaders = False  ' afficher les en-têtes de colonnes
    .LabelEdit = 1              ' ne pas autoriser la saisie
    .BackColor = RGB(255, 255, 255)
    .ForeColor = RGB(0, 0, 0)
    .Font.Size = 11
    .FlatScrollBar = False
End With
End Sub



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
24
25
Private Sub UserForm_activate()
With Listclient
With .ColumnHeaders 'Mise en page des en-têtes
        .Clear
        .Add , , "civilité", 40
        .Add , , "Nom", 120
        .Add , , "Prénom", 210
        .Add , , "Adresse", 40
        .Add , , "Complément", 60
        .Add , , "C.P", 50
        .Add , , "Ville", 60
        .Add , , "Télephone", 60
        .Add , , "Portable", 60
        .Add , , "Mail", 60
        End With
'Dim tableau As Variant
'Listclient.ColumnHeaders.Count = 8
'tableau = Sheets("client").Range("C2:L" & Sheets("client").Range("d65530").End(xlUp).Row)
'Listclient.ListItems.Add = tableau
 
'ListBox1.ColumnHeads = True
 
   End With
select_cli.Caption = "Sélection d'un client"
End Sub
cordialement

Pascal