Discussion :

[mouftie]

Bonjour,
j'ai un TCD "TcdAgts" qui reprend l'ensemble de mes fournisseurs. J'ai fait une mise en forme conditionnel selon un pourcentage (allant de 1 à 100%)
J'ai créé un combobox "CbxBadTop" allant de 1 à 100 par tranche de 10
J'ai créé un bouton "BadTop" qui est sensé trier mon TCD et ne faire apparaître que les fournisseurs ayant un % égale ou supérieur à mon combobox

Au départ, j'avais prévu de faire remonter un Nb de lignes, cela fonctionne bien, mais je ne sais pas comment modifier mon code pour réaliser mon nouvel objectif

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub BadTop()
Dim NbBad As Byte
NbBad = CbxBadTop.Value
With Sheets("Agents")
'    .CbxBadTop.ListFillRange = Sheets("Mod'Op").Range("TbBad[BadTop]").Address(External:=True)
    .PivotTables("TcdAgts").PivotFields("[export].[Technicien].[Technicien]").ClearValueFilters
    .PivotTables("TcdAgts").PivotFields("[export].[Technicien].[Technicien]") _
        .PivotFilters.Add2 Type:=xlTopCount, DataField:=ActiveSheet _
        .PivotTables("TcdAgts").CubeFields("[Measures].[Tx Ko]"), Value1:=NbBad
    .PivotTables("TcdAgts").PivotFields("[export].[Technicien].[Technicien]") _
        .AutoSort xlDescending, "[Measures].[Tx Ko]"
    .Range("H5").Select
End With
End Sub

Merci pour votre aide

[Franc]

Salut, essaie en remplaçant xlTopCount par xlValueIsGreaterThanOrEqualTo

[mouftie]

Bonsoir Franck,
Merci pour ta réponse
cela fonctionne très bien, un grand merci (j'ai un peu galéré car j'avais oublié de changer le type de variable Byte par Double )
Super

j'ai un petit souci esthétique, quand je sélectionne ma combobox, j'ai bien mes pourcentages qui apparaissent 10% ou 50% ; une fois que je clique sur ma sélection, je me retrouve avec 0,1 et non plus 10%
sais-tu comment faire ou dois-je faire un nouveau post ?
Merci

[Franc]

Bonsoir Franck,
Merci pour ta réponse
cela fonctionne très bien, un grand merci (j'ai un peu galéré car j'avais oublié de changer le type de variable Byte par Double )
Super

j'ai un petit souci esthétique, quand je sélectionne ma combobox, j'ai bien mes pourcentages qui apparaissent 10% ou 50% ; une fois que je clique sur ma sélection, je me retrouve avec 0,1 et non plus 10%
sais-tu comment faire ou dois-je faire un nouveau post ?
Merci

peut-être avec NbBad = CbxBadTop.Value * 100

[mouftie]

Bonjour Franc (désolée pour la faute d'orthographe précédemment)

peut-être avec NbBad = CbxBadTop.Value * 100

Non cela ne change pas le combobox et cela rend le calcul erroné.
Merci pour ton aide, je vais faire une nouvelle demande