[Résolu] Séparer une chaîne de caractère

[Sinistrus]

Bonjour à tous !

Alors voilà, j'ai une chaine de caractère composée de 25 caractères alpha-numérique que je souhaite séparer en tranche de 5 le tout séparé par un tiret "-"

Ex:

(Colonne A)
04A2JK4RF0D9VT1DUZB3O36BO
donnera
(Colonne B)
04A2J-K4RF0-D9VT1-DUZB3-O36BO

Avez-vous une idée svp ?

 

[Efgé]

Re : Séparer une chaîne de caractère

Bonjour Sinistrus , Peut être avec

=CONCATENER(GAUCHE(A1;5);"-";STXT(A1;6;5);"-";STXT(A1;11;5);"-";STXT(A1;16;5);"-";DROITE(A1;5))

Cordialement

 

[mikachu]

Re : Séparer une chaîne de caractère

bonjour,

ou encore

=STXT(A1;1;5)&"-"&STXT(A1;6;5)&"-"&STXT(A1;11;5)&"-"&STXT(A1;16;5)&"-"&STXT(A1;21;5)

 

[david84]

Re : Séparer une chaîne de caractère

Bonjour,
à tester :

=GAUCHE(A1;5)&"-"&STXT(A1;6;5)&"-"&STXT(A1;11;5)&"-"&STXT(A1;16;5)&"-"&DROITE(A1;5)

A+

 

[Sinistrus]

Re : Séparer une chaîne de caractère

Merci à tous ! Tous les codes fonctionnent parfaitement ^^

Merci encore

 

[Efgé]

Re : Séparer une chaîne de caractère

Re, Bonjour mikachu, Salut david84, La même en macro. Cordialement

 

[mikachu]

Re : [Résolu] Séparer une chaîne de caractère

Je me suis "amusé" à le retranscrire en fonction personnalisée

Function separer(cellule As Range, nb_car As Integer, sep As Variant)

X = Left(cellule, nb_car)
For N = 1 + nb_car To Len(cellule) Step nb_car
X = X & sep & Mid(cellule, N, nb_car)
Next N

separer = X

End Function