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

Efgé

XLDnaute Barbatruc

• 2 Octobre 2012

• #2

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

Bonjour Sinistrus , Peut être avec

VB:

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

Cordialement

 

Vote positif 0 Vote négatif

mikachu

XLDnaute Occasionnel

• 2 Octobre 2012

• #3

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

bonjour,

ou encore

VB:

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

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 2 Octobre 2012

• #4

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

Bonjour,
à tester :

Code:

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

A+

 

Vote positif 0 Vote négatif

S

Sinistrus

XLDnaute Junior

• 2 Octobre 2012

• #5

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

Merci à tous ! Tous les codes fonctionnent parfaitement ^^

Merci encore

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 2 Octobre 2012

• #6

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

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

 

Pièces jointes

• Classeur1.xls

  21.5 KB · Affichages: 56
• Classeur1.xls

  21.5 KB · Affichages: 61
• Classeur1.xls

  21.5 KB · Affichages: 58

Vote positif 0 Vote négatif

mikachu

XLDnaute Occasionnel

• 2 Octobre 2012

• #7

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

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

VB:

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

 

Vote positif 0 Vote négatif