Author: Daniel.CDaniel.C Date: Apr 4, 2008 07:52
Bonjour.
En A2, tes mots en vrac ils ont un séparateur, sinon, on est mal ? Et si il
y trop de mots, par rapport au nombre de séparateurs ?
Essaie (j'ai supposé que les séparateurs de A2 étaient des espaces) :
Sub test()
Dim Tablo, Chaine As String, i As Integer
[A1] = "*" & [A1]
Tablo = Split([A2])
For i = 0 To UBound(Tablo)
Chaine = Chaine & Mid([A1], i + 1, 1) & Tablo(i)
Next i
[A2] = Right(Chaine, Len(Chaine) - 1)
[A1] = Right([A1], Len([A1]) - 1)
End Sub
|