Insertion d'espaces

Euh, méprise

en fait je veux obtenir "to to"

mais je suis sur que vous aviez corrigé de vous même, ô mpfiens

Bonjour,

Je cherche le moyen, par macro ou autre, d'insérer un espace tous les 2
caractères dans une cellule.

Par exemple cellule A1 : la valeur est "toto", je veux obtenir "t o t o"

Merci pour votre aide.

Bonjour,

Cette procédure rajoute un espace tous les 2 caractères sur chaque cellule
de la selection :

Sub UnsurDeux()
For Each Macell In Selection
X = Macell
For i = 2 To (Len(Macell.Value) * 1.5) Step 3
X = Left(X, i) & " " & Right(X, Len(X) - i)
Next
Macell.Value = X
Next
End Sub


Celle-ci rajoute un espace tous les caractères sur chaque cellule de la
selection :

Sub UnSurUn()
For Each Macell In Selection
X = Macell
For i = 1 To (Len(Macell.Value) * 2) Step 2
X = Left(X, i) & " " & Right(X, Len(X) - i)
Next
Macell.Value = X
Next
End Sub

Bonjour

en fait je veux obtenir "to to"

Par macro:
'----------
Sub jj()
For i = 1 To Len([A1])
x = x & Mid([A1], i, 1)
If i Mod 2 = 0 Then x = x & " "
Next
[A1] = Left(x, Len(x) - Abs(Len(x) Mod 2 = 0))
End Sub
'----------
Par fonction perso:
'----------
Function decoupe(coupe As String)
For i = 1 To Len(coupe)
x = x & Mid(coupe, i, 1)
If i Mod 2 = 0 Then x = x & " "
Next
decoupe = Left(x, Len(x) - Abs(Len(x) Mod 2 = 0))
End Function
'-------------
Dans une cellule:
Þcoupe(A1)
--
Salutations
JJ

"Franck" <Franck@discussions.microsoft.com> a écrit dans le message de news:
2571CFCB-73C9-4700-8131-9CCC8BDEAF17@microsoft.com...

Euh, méprise

en fait je veux obtenir "to to"

mais je suis sur que vous aviez corrigé de vous même, ô mpfiens

Bonjour,

Je cherche le moyen, par macro ou autre, d'insérer un espace tous les 2
caractères dans une cellule.

Par exemple cellule A1 : la valeur est "toto", je veux obtenir "t o t
o"

Merci pour votre aide.