Discussion :

[imane_lam]

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 :

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

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

Votre aide est précieuse.

[casefayere]

Bonjour,
et pourquoi pas

Code :

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

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

[imane_lam]

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

Code :

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

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

[d0n32]

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 :

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

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

[casefayere]

Changes cette partie, c'est moche

Code :

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

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 :

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

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