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