PASCAL84810
XLDnaute Junior
bonjour,
je dois filtrer à tour de rôle des colonnes de droite à gauche et relever le nombre sous total de la colonne filtrée et la somme sous total de la 4 ème colonnes.
je voudrais simplifier avec une boucle style colonne -1 jusqu'a colonne 7, mais je ne sais pas faire.
je joins également un fichier
merci pour votre aide,
pascal
l'enregistreur donne pour les deux premières colonnes:
Macro5 Macro
'
'
ActiveSheet.Range("$A$1:$AS$1248").AutoFilter Field:=44, Criteria1:=">-24" _
, Operator:=xlAnd
Range("ci2").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(3,C[-43])-1"
Range("ci3").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,C[-82])"
Range("ci2:ci3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$AS$1248").AutoFilter Field:=43, Criteria1:=">-24" _
, Operator:=xlAnd
Range("ch2").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(3,C[-42])-1"
Range("ch3").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,C[-81])"
Range("ch2:ch3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
je dois filtrer à tour de rôle des colonnes de droite à gauche et relever le nombre sous total de la colonne filtrée et la somme sous total de la 4 ème colonnes.
je voudrais simplifier avec une boucle style colonne -1 jusqu'a colonne 7, mais je ne sais pas faire.
je joins également un fichier
merci pour votre aide,
pascal
l'enregistreur donne pour les deux premières colonnes:
Macro5 Macro
'
'
ActiveSheet.Range("$A$1:$AS$1248").AutoFilter Field:=44, Criteria1:=">-24" _
, Operator:=xlAnd
Range("ci2").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(3,C[-43])-1"
Range("ci3").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,C[-82])"
Range("ci2:ci3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$AS$1248").AutoFilter Field:=43, Criteria1:=">-24" _
, Operator:=xlAnd
Range("ch2").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(3,C[-42])-1"
Range("ch3").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,C[-81])"
Range("ch2:ch3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub