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
cordialement
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
Pascal
Partager