bonjour
avec le codes ci dessous
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)
avec le codes ci dessous
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
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
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)
Aucun commentaire:
Enregistrer un commentaire