conversion code listbox pour une listview

Version imprimable

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:

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:

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

bonsoir a vous tous
j'ai trouvé une réponse a ma question mais elle ne fait pas tout ce qu'il faut

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub UserForm_Initialize()
Dim Li As Long
Dim ws As Worksheet
Dim Col As Byte
Dim Lig As Long
 Listclient.ListItems.Clear
 Listclient.ColumnHeaders.Clear 'nettoyage des colonnes de la listview
 
  With Listclient
    .View = 3
    .Gridlines = True
    .FullRowSelect = True
    .Sorted = True
    With .ColumnHeaders
        .Add , , "civilité", 40
        .Add , , "nom", 80
        .Add , , "Prénom", 80
        .Add , , "Adresse", 80
        .Add , , "Complément", 80
        .Add , , "C.P", 50
        .Add , , "Ville", 80
        .Add , , "Téléphone", 50
       .Add , , "Mail", 50
 
    End With
 
    End With
 
select_cli.Caption = "Sélection d'un client"
 
With Listclient
 
    'Lignes de la 1ere colonne
    With .ListItems
        For Lig = 2 To 8
           .Add , , Sheets("client").Cells(Lig, 1).Value
        Next
    End With
 
    'Remplissage des lignes autres colonnes
    For Lig = 1 To 7
        For Col = 2 To 10
            .ListItems(Lig).ListSubItems.Add , , Sheets("client").Cells(Lig + 1, Col).Value
        Next Col
    Next Lig
End With
'Listclient.View = lvwReport
End Sub

Pascal

bonjour a vous tous

le dernier code que j'ai poster est bon sous condition de réorganiser la feuille, mais il ne prends qu'un maximum de 9 lignes hors j'en ai 25 et plus par la suite

cordialement

Pascal

03/02/2012, 17h39
grisan29

bonjour a vous

le clic sur résolu est une erreur de ma part:cry:
comme personne n'est motivé pour me donner une réponse je joint le fichier qui sera plus compréhensible peut etre?
Pascal
05/02/2012, 04h41
AlainTech

Pour finir, résolu ou pas?

bonsoir Alaintech
merci de me rappeler de cliquer sur résolu si c'est le cas:ccool:
Code:

1 2 3 4 5 6 7 8 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
voila la partie du code qui remplace celle mis dans les post précédent

bonne soirée

Pascal