Comment puis-je séparer ensemble des chiffres par des espaces

benachirabderrahman Messages postés 46 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,

Aidez moi SVP de trouver un moyen pour séparer un ensemble des chiffres comme ceci "FR7616275500000401072154396" a fin d'avoir une résultat comme ceci "FR76 1627 5500 0004 0107 2154 396" (4 chiffres+Espace+4 chiffres+Espace+.....+3chiffres)

Merci

1 réponse

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Il doit y avoir mieux!

    B1=STXT(A1;1;4) & " " & STXT(A1;5;4) & " " & STXT(A1;9;4) & " " & STXT(A1;13;4) & " " & STXT(A1;17;4) & " " & STXT(A1;21;4) & " " & STXT(A1;25;34)

    sinon une petite fonction vba (qui découpe s en tranches de n séparées par un espace) à mettre dans un module (Alt-F11 puis insertion/module)
    Public Function decoupe(s As String, n As Long) As String
    If Len(s) <= n Then
    decoupe = s
    Else
    decoupe = Left(s, n) & " " & decoupe(Right(s, Len(s) - n), n)
    End If
    End Function
    à utiliser dans la feuille comme une fonction excel
    exemple B2=decoupe(A2;4;" ")

    Cdlmnt
    0