Discussion :

[Pierre67]

Bonjour à tous

j'ai un petit souci avec mon userforme qui comporte 2 listview

la listvieww1 affiche bien les checkboxes apr contre la seconde refuse de les afficher malgré la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Listview2.chekboxes=true

quelq'un à une idée du pourquoi ?
bien à vous

[joe.levrai]

Bonjour,

peux-tu nous montrer le code d'initialisation du formulaire, contenant l'initialisation du listview ?

[Sebphyto]

bonjour,

n'y aurait-il pas une erreur d'ortho à checkbox?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Listview2.chekboxes=true

Seb

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
ListView1.CheckBoxes = True
For i = 65 To 90
Me.ListView1.ListItems.Add = Chr(i)
If i Mod 2 = 0 Then ListView1.ListItems(i - 64).Checked = True
Next
End Sub

[Pierre67]

bonsoir

effectivement une erreur de frappe dans mon mail.

voici mon code

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Sub UserForm_Initialize()
     Dim Cell As Range
     Dim X As Integer
     Dim k As Integer
     Dim lig As Integer ' variable ligne
     Dim derprix As Integer ' nombre de prix dans le tableau
     Dim sh As Worksheet
Set sh = Sheets("Basecombo")
Application.ScreenUpdating = False
derl = Sheets("BPU").Range("A65536").End(xlUp).Row
Sheets("BPU").Select
     Tbl = Range("A2:G" & derl)
 
Set mondico = New Dictionary
For i = 1 To UBound(Tbl, 1)
mondico(Tbl(i, 4)) = Tbl(i, 4)
Next i
'définition du tableau
 
    'Les données sont dans la feuille BPU.
    'La premiere ligne, de la colonne A à G contient les entêtes.
 
With ListView1
          With .ColumnHeaders
               ' Vider le listview
               .Clear
 
               'Ajouter les colonnes avec mise en forme
                    .Add , , "Chapitre", 80 ' colonne A
                    .Add , , "Série", 40, lvwColumnCenter ' colonne B
                    .Add , , "N° Prix", 40, lvwColumnCenter ' colonne C
                    .Add , , "Libellé", 400, lvwColumnLeft  ' colonne E
                    .Add , , "Unité", 50, lvwColumnCenter ' colonne F
                    .Add , , "P.U.", 50, lvwColumnCenter 'colonne G
               ' remplissages des colonnes
 
            For lig = 2 To derl
               ' première colonne
               ListView1.ListItems.Add , , Cells(lig, 1)
               ' remplissage des colonnes B à G
               ListView1.ListItems(n + 1).ListSubItems.Add , , Cells(lig, 2)
               ListView1.ListItems(n + 1).ListSubItems.Add , , Cells(lig, 3)
               ListView1.ListItems(n + 1).ListSubItems.Add , , Cells(lig, 4)
               ListView1.ListItems(n + 1).ListSubItems.Add , , Cells(lig, 5)
               ListView1.ListItems(n + 1).ListSubItems.Add , , Cells(lig, 6)
               ListView1.ListItems(n + 1).ListSubItems.Add , , Cells(lig, 7)
               n = n + 1
            Next lig
            End With
 
 
        ListView1.View = 3                   ' type Report
        ListView1.Gridlines = True           ' affichage de lignes
        ListView1.FullRowSelect = True       ' sélection complète de la ligne
        ListView1.HideColumnHeaders = False  ' afficher les en-têtes de colonnes
        ListView1.LabelEdit = 1              ' ne pas autoriser la saisie
        ListView1.CheckBoxes = True
    End With
    'Spécifie l'affichage en mode "Détails"
 
     Me.txtnombre = ListView1.ListItems.Count
     ListView1.ListItems(1).Selected = False
  With ListView2
          With .ColumnHeaders
               ' Vider le listview
               .Clear
 
               'Ajouter les colonnes avec mise en forme
                    .Add , , "N° Prix", 0, lvwColumnLeft ' colonne C
                    .Add , , "N° Prix", 40, lvwColumnLeft ' colonne C
                    .Add , , "Libellé", 400, lvwColumnLeft  ' colonne E
                    .Add , , "Unité", 50, lvwColumnCenter ' colonne F
                    .Add , , "P.U.", 50, lvwColumnCenter 'colonne G
                     .Add , , "Quant.", 50, lvwColumnCenter 'colonne
                     .Add , , "Total", 50, lvwColumnCenter 'colonne
 
 
   End With
          ListView2.View = 3                   ' type Report
          ListView2.Gridlines = True           ' affichage de lignes
          ListView2.FullRowSelect = True       ' sélection complète de la ligne
          ListView2.HideColumnHeaders = False  ' afficher les en-têtes de colonnes
          ListView2.LabelEdit = 1              ' ne pas autoriser la saisie
          Me.ListView2.CheckBoxes = True
 
   End With
' alimentation des listes déroulantes
Combo_chapitre
Combo_famille
'Combo_Type
End Sub