[XL-2007] conversion code listbox pour une listview [Résolu]

[grisan29]

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

[grisan29]

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

[grisan29]

bonjour a vous

le clic sur résolu est une erreur de ma part
comme personne n'est motivé pour me donner une réponse je joint le fichier qui sera plus compréhensible peut etre?
Pascal

[AlainTech]

Pour finir, résolu ou pas?

[grisan29]

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

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