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
| Sub Split_Report()
'---Makro erstelt von MEGEL Vincent am 29.06.2009---
Dim a As Variant
Max = Sheets("Feuille1").UsedRange.Rows.Count
For l = 2 To Max '--- compteur pour la boucle
Sheets("Feuille1").Select
If Cells(l, 1) = "" Or Cells(l, 1) = " " Then '---si la cellule est vide. Ceci m'evite les erreurs
Else
Sheets("Feuille1").Select
a = split(Cells(l, 1).Text, ",""") ' j'utilise le ," comme separateur, car j'ai des chiffres contenant des virgules qu'il ne faut pas splité
For I = 0 To UBound(a)
MsgBox a(I)
Next I
'On selectionne la bonne feuille
Sheets("Feuille2").Select
insertion dans les bonne cellule Cells(l, 1) = a(0) ' Cellule A,1...
Cells(l, 2) = a(1) ' Cellule A,2 etc...
Cells(l, 3) = a(2)
Cells(l, 4) = a(3)
Cells(l, 5) = a(4)
Cells(l, 6) = a(5)
Cells(l, 7) = a(6)
Cells(l, 8) = a(7)
Cells(l, 9) = a(8)
Cells(l, 10) = a(9)
Cells(l, 11) = a(10)
Cells(l, 12) = a(11)
Cells(l, 13) = a(12)
Cells(l, 14) = a(13)
Cells(l, 15) = a(14)
Cells(l, 16) = a(15)
Cells(l, 17) = a(16)
Cells(l, 18) = a(17)
Cells(l, 19) = a(18)
Cells(l, 20) = a(19)
Cells(l, 21) = a(20)
Cells(l, 22) = a(21)
Cells(l, 23) = a(22)
Cells(l, 24) = a(23)
End If
Next l
End Sub |
