Discussion :

[muisca]

Bonjour
Je suis en ce moment stagiaire et je dois analyser des centaines de fichier excel.Ces fichier excel contiennent plusieurs mesures dont je dois faire la moyenne.Le macro que j'ai fait pour un fichier donne ça:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub Macro1()
'
   Application.Left = 328
    Application.Top = 220
    Columns("A:A").Select
    Application.Left = 178.75
    Application.Top = 52.75
    Application.WindowState = xlMaximized
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1)) _
        , TrailingMinusNumbers:=True
 
    ActiveWindow.SmallScroll Down:=2
    Range("C114").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(R[-110]C:R[-1]C)"
    Selection.AutoFill Destination:=Range("C114:Y114"), Type:=xlFillDefault
    Range("C114:Y114").Select
 
    Range("C116").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(R[-2]C,R[-2]C[6],R[-2]C[12])"
    Selection.AutoFill Destination:=Range("C116:H116"), Type:=xlFillDefault
    Range("C116:H116").Select
 
    Range("C116:F116").Select
    Selection.Copy
    Windows("Macr.xls").Activate
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows(".CSV").Activate
 
    Range("B1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Macr.xls").Activate
    Range("B2").Select
    ActiveSheet.Paste
    Windows(".CSV").Activate
    Range("F1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Macr.xls").Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows(".CSV").Activate
 
    Range("H116").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Macr.xls").Activate
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown
    Range("A1:A8").Select
    Range("A8").Activate
End Sub

Je precise que les noms de fichier change.
merci d'avoir lu mon message et j'ai vraiment besoin d'aide car franchement j'ai pas d'idée.

[Daranc]

remet ton code dans les balises idoine c'est le # qu'il faut cliquer. Soit tu le fait avant de coller le code , soit tu sélectionnes ton code posé et tu cliques