Inserer un espace tous les x caracteres [Résolu/Fermé]

- - Dernière réponse :  lapprenti2 - 9 déc. 2013 à 17:03
Bonjour,
je souhaiterais savoir si il est possible avec une macro d'inserer un espace tous les 4 caracteres dans une chaine de texte:

FR7613825002000877044273408

le résultat souhaité:
FR76 1382 5002 0008 7704 4273 408

pour toutes les cellules selectionées

merci d'avance



Afficher la suite 

3 réponses

0
Merci
=STXT(A1;1;4)&" "&STXT(A1;5;4)&" "&STXT(A1;9;4) etc.
Messages postés
9164
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
17 octobre 2019
1651
0
Merci
Bonjour

Et si tu veux une macro à tout prix

Public Function insespace(s As String, n As Long) As String
If n = 0 Or s = "" Then insespace = "erreur": Exit Function
If Len(s) <= n Then
insespace = s
Else
insespace = Left(s, n) & " " & insespace(Right(s, Len(s) - n), n)
End If
End Function

Cdlmnt
0
Merci
Bonjour et merci a tous

c'est super quand celà fontionne.....

bonne fin de journée