Séparer chaines de caractéres

[gimx]

Bonjour,

J'ai une chaine de cractéres, par exemple : 1 2 3A 4A 5 6A
Je voudrais séparer la chaine dans deux cellules, une cellule avec les caractéres uniques, une autre avec les caractéres doubles.
Ce qui me donnerait : 1 2 5 et 3A 4A 6A.

Le souci que j'ai, c'est que les caractéres doubles ne sont pas à la même place suivant les cellules, je peux avoir 1 2 3A 4A 5 6A comme 1A 2 3 4A 5A 6 à la suivante, etc, etc.

Alors pour enlever les caractéres doubles, pas de problême avec les substitue etc, mais c'est l'inverse ou je cale.

Merci 🙂

 

[dixit]

Re : Séparer chaines de caractéres

bonjour,
voir proposition ci-jointe avec macro (la présentation de la macro n'est pas très "élégante" mais je n'ai pas le temps de la revoir ce soir ...)

 

[gimx]

Re : Séparer chaines de caractéres

Pas mal 🙂
Mais avec des formules, ça donne quoi ?
Ne le refait pas en formule si tu n'as pas le temps, pas grave 🙂
Juste tu me donnes la démarche et j'essaye de le refaire en formule.
Merci à toi 😉

 

[Compte Supprimé 979]

Re : Séparer chaines de caractéres

Salut Gimx, salut Dixit

Voilà un exemple avec une fonction crée pour ton exemple.

La fonction est : =SeparationCar(RefCellule;NombreDeCaractereASéparer)

Voilà 😉

 

[gimx]

Re : Séparer chaines de caractéres

C'est excellent ça, merci 🙂
Mais où est la macro ? Je ne la vois pas dans Outils/Macros.

 

[chris]

Re : Séparer chaines de caractéres

Bonjour
J'étais partie sur la même logique que Bruno mais j'ai fait plus court !
La fonction
Function Decoupe(x As Range, y As Integer)
t = Split(x, " ")
For I = 0 To UBound(t)
If Len(t(I)) = y Then Decoupe = Decoupe & t(I) & " "
Next I
Decoupe = Trim(Decoupe)
End Function

Permet de découper à l'endroit des espaces et de préciser le nombre de caractères à récupérer.
Donc mettre
=decoupe(A1;1) dans une colonne
=decoupe(A1;2) dans l'autre

Il faut utiliser Alt F11, séléctionner ton classeur dans le volet gauche et utiliser Insertion, Module.
Tu colles le code de la fonction dans le module 1 (double clic sur module1 puis copie dans le volet droit).

Cette fonction fait alors partie des fonctions Excel catégorie Personnalisés.

 

[marmotte18]

Re : Séparer chaines de caractéres

Bonjour,

Il n'y a pas de raison que je ne donne pas aussi ma solution.

 

[gimx]

Re : Séparer chaines de caractéres

😱
Vous êtes bons les gars, quel que soit la solution, tout fonctionne.
Merci 🙂