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