programmation autofiltre excel
Bonjour,
très peu expérimentée dans ce domaine, je rencontre des difficultés avec vba, voici le programme que j'ai écrit :
Code:
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
| Sub essaiencore1()
'
' essaiencore1 Macro
' Macro enregistrée le 31/01/2012 par legrand
'
Fname1 = "P23-4-segmentedP23-4_0"
Fname3 = "_Parms.xls"
For k% = 0 To 74
FnameVal2 = 199 + 20 * k%
Fname2 = Str(FnameVal2)
If FnameVal2 < 1000 Then Fname2 = "0" + Mid$(Fname2, 2, 3)
If FnameVal2 > 1000 Then Fname2 = Mid$(Fname2, 2, 4)
Fname = Fname1 + Fname2 + Fname3
Workbooks.Open Filename:=Fname
Range("A5:C5").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="<=5", Operator:=xlAnd
Range("H2").Select
MsgBox Application.WorksheetFunction.Subtotal(5000, Columns(3))
Range("H2").Select
Selection.Copy
Windows("distri.xls").Activate
Range("A2").Select
ActiveSheet.Paste
ActiveSheet.Paste Link:=True
Cells(3 + k%, 2) = Elise
Range("A4").Select
Workbooks(Fname).Close SaveChanges:=True |
Mais je rencontre un souci, en effet je voudrais faire la somme de la colonne C6 jusqu'à C5000 mais sur les données filtrées?? Comment faire?
Par ailleurs je veux que cette somme soit copier coller dans un autre fichier : 'distri' mais il m'affiche les valeurs dans A2 alors que je voudrais qu'il me les mettent les unes à la suite des autres dans la colonne A.
Je ne sais pas si c'est très clair mais si vous avez une idée, n'hésitez pas!
merci d'avance
