Comment puis-je séparer ensemble des chiffres par des espaces
benachirabderrahman
Messages postés
30
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Comment puis-je séparer ensemble des chiffres par des espaces
- Espaces insécables - Guide
- Excel trier par ordre croissant chiffre - Guide
- Séparer pdf - Guide
- Comment activer les chiffres du clavier - Guide
- Affichez l'ensemble des diapositives à l'écran avec 5 diapositives par ligne. ✓ - Forum Powerpoint
1 réponse
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)
exemple B2=decoupe(A2;4;" ")
Cdlmnt
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à utiliser dans la feuille comme une fonction excel
If Len(s) <= n Then
decoupe = s
Else
decoupe = Left(s, n) & " " & decoupe(Right(s, Len(s) - n), n)
End If
End Function
exemple B2=decoupe(A2;4;" ")
Cdlmnt
