1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Dim Text, Tableau() As String
Dim pl, dl, n As Long
Dim c, cc As Byte
'Remplacer 2 par la première ligne de données le cas échéant
pl = 1
'Remplacer 100 par la dernière ligne de données le cas échéant
dl = 100
'Remplacer 1 par le numéro de colonne contenant les données le cas échéant
c = 1
For n = pl To dl
Worksheets(1).Rows(n).NumberFormat = "@"
'Remplacer 1 le cas échéant, par le numéro de la colonne qui va contenir la 1ère partie du texte
cc = 1
Text = Worksheets(1).Cells(n, c)
Tableau = Split(Text, ";")
For i = 0 To UBound(Tableau)
Worksheets(1).Cells(n, cc) = Tableau(i)
cc = cc + 1
Next i
Next n |
Partager