comme si : azerty = aze rty pour ensuite manipuler chaque bloc
toto = "je suis dans un forum"
toto = Replace(toto, " ", "") ' ===>> on ote les " ", puisqu'il les déplace
titi = Split(StrConv(toto, vbUnicode), Chr(0))
For i = 2 To UBound(titi) - 1 Step 3
titi(i) = titi(i) & " "
Next
toto = Join(titi, "")
toto = "je suis dans un forum"
toto = Replace(toto, " ", "")
r = Len(toto) Mod 3
For i = 0 To Len(toto) \ 3 ' attention : \ et non /
flt = flt & "@@@ "
Next
flt = flt & String(r, "@")
toto = Format(toto, flt)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiontoto = "je suis dans un forum"
titi = StrConv(Replace(toto, " ", ""), vbUnicode)
For i = 6 To Len(titi) Step 6
Mid(titi, i, 1) = " "
Next
toto = Replace(titi, Chr(0), "")