bonjour

avec le codes ci dessous
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Sub extraction _ somme()
 
Dim X As Integer
Dim y As Integer
Dim n As Integer
Dim p As Integer
Dim l As Integer
Dim b As Integer
Dim k As Integer
Dim q As Integer
Dim i As Integer
Dim j As Integer
Dim f As Integer
Dim h As Integer
 
 
 
 
 
 
 Windows("TDB 2013 2014.xlsm").Activate
 Workbooks("TDB 2013 2014.xlsm").Sheets.Add
  ActiveSheet.Name = "temporaire3"
 
 Sheets("temporaire").Select
 
 
 
         For X = 9 To 186 Step 15
 
        y = y + 1
        Range("B" & X & ":C" & X).Copy Sheets("temporaire3").Range("A" & y)
 
        Next X
 
    Sheets("temporaire").Select
 
         For n = 11 To 186 Step 15
 
        p = p + 1
        Range("B" & n & ":C" & n).Copy Sheets("temporaire3").Range("C" & p)
 
        Next n
 
 
 
     Sheets("temporaire").Select
 
         For l = 12 To 186 Step 15
 
        b = b + 1
        Range("B" & l & ":C" & l).Copy Sheets("temporaire3").Range("E" & b)
 
        Next l
 
 
        Sheets("temporaire").Select
 
         For k = 8 To 186 Step 12
 
        q = q + 1
        Range("J" & k & ":K" & k).Copy Sheets("temporaire3").Range("G" & q)
 
        Next k
 
 
        Sheets("temporaire").Select
 
 
         For i = 10 To 186 Step 12
 
        j = j + 1
        Range("j" & i & ":K" & i).Copy Sheets("temporaire3").Range("I" & j)
 
        Next i
 
 
        Sheets("temporaire").Select
 
         For f = 11 To 186 Step 12
 
        h = h + 1
        Range("j" & f & ":K" & f).Copy Sheets("temporaire3").Range("K" & h)
 
        Next f
 
 
end sub
n’étant pas un pro des structures en boucle j'ai du déclarer plusieurs variables
j'arrives à extraire les données sur des feuilles excel
il se range d'après le code en colonne A B C D E F G H I J K L
Ce qui m'interesse à la fin c'est de faire la somme des colonnes toujours selon le rang des lignes des colonnes
A+C+E+G+I+K ensuite B+D+F+H+J+L

c'est à dire A1+C1+E1+G1.....A2+C2+E2+G2+I2.....

Donc une dernière boucle à faire pour cette somme
qui doit se loger dans les colonne suivante M et N ensuite je les transpose ( à ce niveau je peux me débrouiller avec l'editeur)