Discussion :

[pimpom81]

Bonjour à tous

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

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

Code :

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

.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 :

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
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

[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" ?

[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

[pimpom81]

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?

[Daniel.C]

Bonjour,

Code :

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

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

[pimpom81]

Re Daniel,

Je viens de tester ton code de format et ça donne toujours la même chose 1 ou 0,75 etc. ...