Récupération dans listview incohérente

Version imprimable

Bonjour à tous

J'ai créé un USF dans lequel s'affiche une Listview

L'affiche suivant les conditions fonctionne excepté la ligne suivante

Code:

.ListSubItems.Add , , c.Offset(, 9).Value

Au lieu d'afficher le contenu de la cellule source, il affiche le contenu d'une autre

A savoir que le contenu de la cellule est une formule : "=SI(GAUCHE(J381;2)="QS";"Sécurité";SI(GAUCHE(J381;2)="QE";"Environnement";SI(GAUCHE(J381;2)="QC";"Connaissances";SI(GAUCHE(J381;2)="QR";"Respect Consignes";""))))"

Le problème ne viendrait il pas de ce contenu?

Ci dessous l'ensemble du code

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
49
50
51
52
53
54
55
56
57
58
Sub Lvw1()
    Dim Plage As Range, c As Range, i As Integer

'positionnement du premier filtre
    With Sheets("Rapport")
        Set Plage = .Range(.[A26], .Cells(.Rows.Count, 15).End(xlUp))
        .AutoFilterMode = False
        Plage.AutoFilter 6, Criteria1:=ComboBox3.Value, Operator:=xlFilterValues
        Plage.AutoFilter 15
        With .AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
    'remplissage de la listview
    With ListView1
        Set Plage = Sheets(3).AutoFilter.Range.Offset(1)
        Set Plage = Plage.Resize(Plage.Rows.Count - 1, 1)
        Set Plage = Plage.SpecialCells(xlCellTypeVisible)
        With .ColumnHeaders
        'suppression des entêtes de colonne
        .Clear

        'détermination de l'intitulé et de la largeur des colonnes
        .Add , , "Date", 50
        .Add , , "Thème", 50
        .Add , , "N°", 30
        .Add , , "Déscription des écarts", 250
        .Add , , "Actions correctives", 250
        .Add , , "Pilote", 50
        .Add , , "Délai", 50
        .Add , , "Avct", 30
        End With
        'on affiche les entêtes de colonne
        .HideColumnHeaders = False
        'alimentation de la listview pour chaque ligne de la zone filtrée
        For Each c In Plage
            'ajout d'une ligne et de la valeur de la première colonne
            .ListItems.Add , , c.Value
            With .ListItems(.ListItems.Count)
                'ajout de la valeur de la deuxième colonne
                .ListSubItems.Add , , c.Offset(, 1).Value
                .ListSubItems.Add , , c.Offset(, 9).Value                .ListSubItems.Add , , c.Offset(, 10).Value
                .ListSubItems.Add , , c.Offset(, 11).Value
                .ListSubItems.Add , , c.Offset(, 12).Value
                .ListSubItems.Add , , c.Offset(, 13).Value
                .ListSubItems.Add , , c.Offset(, 14).Value
                .ListSubItems.Add , , c.Offset(, 15).Value
            End With
        Next c
    End With
    'Spécifie l'affichage en mode "Détails"
    ListView1.View = lvwReport
    Exit Sub
End Sub

Cdt

08/08/2012, 21h40
Daniel.C

Bonsoir,

La ligne 46 doit provoquer une erreur (2 commandes sur la même ligne). Erreur de recopie ? Le fait qu'il y ait une formule ne gêne pas. C'est la valeur qui est prise en compte. Quelle est la cellule prise en compte (en décalage par rapport à "c" ?
09/08/2012, 09h03
pimpom81

Salut Daniel,

Sur la ligne 46 c'est un erreur de copie de mon code sur le forum.

L'erreur provient du mauvais décalage par rapport à "c". En effet la valeur de la ligne 46 est correct, l'origine du problème provient de la ligne 45, puisque je prenais en compte la cellule de la colonne B et non comme je pensais celui de la cellule A.

Merci pour ta question qui m'a ouvert l'esprit sur l'oigine de mon problème.

Au plaisir de te relire sur un autre des post que j'écrirai ici.

Cordialement
09/08/2012, 09h10
pimpom81

autre question du même ordre

Sur la ligne 51, la valeur que je souhaite affiche est exprimée en % , or lorsque que je lance le programme elle s'affiche à 0 pour 0% et 1 pour 100%.

Ne faudrait-il pas paramètrer le format d'écriture dans le code pour cette colonne spécifique?
09/08/2012, 10h48
Daniel.C

Bonjour,

Code:

.ListSubItems.Add , , Format(c.Offset(, 15).Value, "#%00")
09/08/2012, 12h06
pimpom81

Re Daniel,

Je viens de tester ton code de format et ça donne toujours la même chose 1 ou 0,75 etc. ...
09/08/2012, 13h57
Daniel.C

Désolé :

Code:

.ListSubItems.Add , , Format(Cells(1, 1), "0.00%")
09/08/2012, 14h31
pimpom81

En essayant plusieurs combinaisons j'obtiens toujours rien
exemples :

Code:

.ListSubItems.Add , , Format(c.Offset(, 15).Value, "0.00%")

ou

Code:

.ListSubItems.Add , , Format(c.Offset(, 15), "0.00%"), , c.Offset(, 15).Value

Code:

.ListSubItems.Add , , Format(Cells(1, 15), "0.00%")

ou

Code:

.ListSubItems.Add , , Format(Cells(, 15), "0.00%"), , c.Offset(, 15).Value

ou

Code:

.ListSubItems.Add , , Format(c.Cells(, 15), "0.00%"), , c.Offset(, 15).Value

:cry:
09/08/2012, 14h52
Daniel.C

1 pièce(s) jointe(s)

Regarde le classeur en pièce jointe. Il affiche seulement la cellule A1 au format pourcentage.

Je pense avoir un bout de solution, mais je demande confirmation.

Dans la cellule contenant la valeur à afficher en %, est déjà au format 100% ou autre.
Il faudrait à ce moment que je créé une colonne supplémentaire dans la base pour afficher la valeur en décimale????8O

Car si je suis ton raisonnement précédent ce qui doit être afficher c'est la valeur contenu dans la cellule! N'est ce pas? Donc logiquement je ne devrais même pas a formater le contenu de la listview.

Cordialement

Daniel,

Je te remets l'intégralité du code, peut-être qu'il me manque une partie dedans qui permettrai d'adapter ton code.

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
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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
Option Explicit
 
Private Const Graph9 As String = "\\Eur-tou-srv\teams\TOU_Public\TOU-EHS\Observations EHS\\ImageTemp9.gif"
Private Const Graph10 As String = "\\Eur-tou-srv\teams\TOU_Public\TOU-EHS\Observations EHS\\ImageTemp10.gif"
 
Private Sub UserForm_Initialize()
Dim nom_opérateur As Variant
 
'Récupération des données "combobox1 et 2" de l'USF "Indic_suivi_opérateurs"
    Label6.Caption = Indic_suivi_opérateurs.ComboBox2.Value
    Label7.Caption = Indic_suivi_opérateurs.ComboBox1.Value
    nom_opérateur = Range("Liste!F2").End(xlDown).Address
    ComboBox3.RowSource = "Liste!F2:" & nom_opérateur
    ComboBox3.ListIndex = 0
 
' Activation de la fenêtre "Graph Machines"
    Worksheets("Graph Opérateurs").Activate
    Worksheets("Graph Opérateurs").Visible = False
 
'Supprime l'image temportaire si elle existe
    If Dir(Graph9) <> "" Then Kill Graph9
    If Dir(Graph10) <> "" Then Kill Graph10
 
End Sub
 
Private Sub Afficher_graph_Click()
Lvw_opérateur
    Application.ScreenUpdating = False
    ActiveWorkbook.RefreshAll
 
' Activation de la fenêtre "Indicateurs Machines"
    Worksheets("Indicateurs Opérateurs").Activate
 
    On Error Resume Next
'Activation des champs des filtres du "TCD16"
    ActiveSheet.PivotTables("TCD16").PivotFields("ANNEE").ClearAllFilters
    ActiveSheet.PivotTables("TCD16").PivotFields("ANNEE").CurrentPage = Label6.Caption
    ActiveSheet.PivotTables("TCD16").PivotFields("SECTION").ClearAllFilters
    ActiveSheet.PivotTables("TCD16").PivotFields("SECTION").CurrentPage = Label7.Caption
    ActiveSheet.PivotTables("TCD16").PivotFields("OPERATEUR").ClearAllFilters
    ActiveSheet.PivotTables("TCD16").PivotFields("OPERATEUR").CurrentPage = Indic_détails_opérateur.ComboBox3.Value
 
    On Error Resume Next
'Activation des champs des filtres du "TCD17"
    ActiveSheet.PivotTables("TCD17").PivotFields("ANNEE").ClearAllFilters
    ActiveSheet.PivotTables("TCD17").PivotFields("ANNEE").CurrentPage = Label6.Caption
    ActiveSheet.PivotTables("TCD17").PivotFields("SECTION").ClearAllFilters
    ActiveSheet.PivotTables("TCD17").PivotFields("SECTION").CurrentPage = Label7.Caption
    ActiveSheet.PivotTables("TCD17").PivotFields("OPERATEUR").ClearAllFilters
    ActiveSheet.PivotTables("TCD17").PivotFields("OPERATEUR").CurrentPage = Indic_détails_opérateur.ComboBox3.Value
 
'Définit les 3 graphiques de la feuille "Graph Opérateurs"
    Worksheets("Graph Opérateurs").ChartObjects("Graphique 9").Chart.Export Filename:=Graph9, filtername:="GIF"
    Worksheets("Graph Opérateurs").ChartObjects("Graphique 10").Chart.Export Filename:=Graph10, filtername:="GIF"
 
'exporte le graphique au format image
'Affiche l'image dans l'UserForm
    Image9.Picture = LoadPicture(Graph9)
    Image10.Picture = LoadPicture(Graph10)
 
    Exit Sub
 
'Masque la feuille "Indicateurs Machines"
    Worksheets("Indicateurs Opérateurs").Visible = False
 
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Sub Lvw_opérateur()
    Dim Plage As Range, c As Range, i As Integer
 
'positionnement du premier filtre
    With Sheets("Rapport")
        Set Plage = .Range(.[A26], .Cells(.Rows.Count, 15).End(xlUp))
        .AutoFilterMode = False
        Plage.AutoFilter 6, Criteria1:=ComboBox3.Value, Operator:=xlFilterValues
        Plage.AutoFilter 15
        With .AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
    'remplissage de la listview
    With ListView1
        Set Plage = Sheets(6).AutoFilter.Range.Offset(1)
        Set Plage = Plage.Resize(Plage.Rows.Count - 1, 1)
        Set Plage = Plage.SpecialCells(xlCellTypeVisible)
        With .ColumnHeaders
        'suppression des entêtes de colonne
        .Clear
 
        'détermination de l'intitulé et de la largeur des colonnes
        .Add , , "Date", 50
        .Add , , "Thème", 50
        .Add , , "Rep", 30
        .Add , , "Déscription des écarts", 200
        .Add , , "Actions correctives", 200
        .Add , , "Pilote", 50
        .Add , , "Délai", 50
        .Add , , "Avct", 30
        End With
        'on affiche les entêtes de colonne
        .HideColumnHeaders = False
        'alimentation de la listview pour chaque ligne de la zone filtrée
        For Each c In Plage
            'ajout d'une ligne et de la valeur de la première colonne
            .ListItems.Add , , c.Value
            With .ListItems(.ListItems.Count)
                'ajout de la valeur de la deuxième colonne
                .ListSubItems.Add , , c.Offset(, 8).Value
                .ListSubItems.Add , , c.Offset(, 9).Value
                .ListSubItems.Add , , c.Offset(, 10).Value
                .ListSubItems.Add , , c.Offset(, 11).Value
                .ListSubItems.Add , , c.Offset(, 12).Value
                .ListSubItems.Add , , c.Offset(, 13).Value
                .ListSubItems.Add , , c.Offset(, 14).Value
                .ListSubItems.Add , , c.Offset(, 15).Value
            End With
        Next c
    End With
    'Spécifie l'affichage en mode "Détails"
    ListView1.View = lvwReport
    ListView1.Gridlines = True
    ListView1.FullRowSelect = True
 
    Exit Sub
End Sub
Private Sub Fermer_graph_Click()
 
'Supprime l'image temporaire si elle existe
   If Dir(Graph9) <> "" Then Kill Graph9
   If Dir(Graph10) <> "" Then Kill Graph10
 
    Unload Me
End Sub

Merci

09/08/2012, 16h08
Daniel.C

1 pièce(s) jointe(s)

Qu'est-e que tu veux que je dise ?

Citation:

Dans la cellule contenant la valeur à afficher en %, est déjà au format 100% ou autre.
Il faudrait à ce moment que je créé une colonne supplémentaire dans la base pour afficher la valeur en décimale???

Quel le format de la cellule ? du texte ? Sinon, le format n'a pas d'incidence. Si la cellule affiche "40%" et que son format soit "pourcentage", le contenu de la cellule est 0,4 de toutes façons. Je ne vois que le format "texte" qui puisse influer. Je te joins de nouveau mon classeur avec la cellule A1 en format pourcentage.
10/08/2012, 08h59
pimpom81

Salut Daniel,

La problématique est résolue.
J'ai modifié le format des cellules sources pourcentage par texte et ça a eu l'effet recherché.

Je te remercie beaucoup

Cordialement