Problème de filtrage dans une macro

Version imprimable

07/11/2013, 07h49
imane_lam

Problème de filtrage dans une macro

Bonjour à tous,

J'ai un problème au niveau de l'enregistrement de ma macro.
Le principe de ma macro consiste à filtrer par rapport a la valeur de la cellule "B62" et donc faire la somme des valeurs de la colomne M correspondant au filtre.
Le probleme est dans la somme.
une fois ma macro lancée, le filre s'effecue correctement mais on me donne toujours la somme que j'ai enregistrer avec ma macro et non celle correspondante au filtre.
Je doute que le probleme soit dans cette ligne :

Code:

ActiveCell.FormulaR1C1 = "=SUM(R[-83]C[10]:R[-31]C[10])"

Votre aide est précieuse. :)
07/11/2013, 08h06
casefayere

Bonjour,
et pourquoi pas

Code:

activecell = worksheetfunction.SumIf("ta_plage","toncritère") 'et plus besoin de filtre

Dans mon programme il est necessaire de faire le filre.
Je vous montre un peu le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
Range("C85").Select
    Selection.Copy
    Range("B62").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$4:$M$63").AutoFilter Field:=2, Criteria1:="=" & Range("B62").Value
    Range("C92").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-83]C[10]:R[-31]C[10])"
    Rows("62:62").Select
    Selection.EntireRow.Hidden = True

Effectivement, le code tel que donné dans ton post calcule la somme des valeurs des cellules M9 à M61, indépendamment du fait qu'elles soient filtrées ou non par ton critère.

Est-ce que cette solution te convient ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    Range("C85").Select
    Selection.Copy
    Range("B62").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$4:$M$63").AutoFilter Field:=2, Criteria1:="=" & Range("B62").Value
    Range("C92").Select
 
    Dim somme As Long
    somme = 0
    For Each cel In Range("M9:M61")
        If cel.EntireRow.Hidden = False Then
            somme = somme + cel.Value
        End If
    Next cel
    Range("C92").Value = somme
 
    Rows("62:62").Select
    Selection.EntireRow.Hidden = True

07/11/2013, 10h08
imane_lam

parfait !! :) Merci
Mnt je voudrai savoir si cest possible d'associer un graphe au meme filtre aussi .Cad, Selon le resultat du filtre on obtient un graphe précis !!!!!!

Changes cette partie, c'est moche
Code:

1 2 3 4 5 6 Range("C85").Select Selection.Copy Range("B62").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False
en, tout simplement

Code:

Range("B62").value = Range("C85").value

07/11/2013, 14h19
d0n32

Quel est ton problème ?
Quand je trace initialement un graphe avec X lignes de données, et qu'en filtre 10, j'obtiens bien un graphe avec X-10 données tracées.
07/11/2013, 14h32
imane_lam

oui mais le filtre s'effectue selon ma macro donc le graphe sera inclu dans ma macro