inserer un espace tous les x caracteres Résolu

Question

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



Configuration: Windows 7 / Internet Explorer 9.0

navigo · Accepted Answer

=STXT(A1;1;4)&" "&STXT(A1;5;4)&" "&STXT(A1;9;4) etc.

ccm81 · Answer

Bonjour

Et si tu veux une macro à tout prix

Public Function insespace(s As String, n As Long) As StringIf n = 0 Or s = "" Then insespace = "erreur": Exit FunctionIf Len(s) <= n Then  insespace = sElse  insespace = Left(s, n) & " " & insespace(Right(s, Len(s) - n), n)End IfEnd Function

Cdlmnt

lapprenti2 · Answer

Bonjour et merci a tous

c'est super quand celà fontionne.....

bonne fin de journée

Inserer un espace tous les x caracteres

3 réponses

Discussions similaires

Newsletters