Couper une chaine à chaque espace

[sebkernoise]

Bonjour,

j'ai un ptit problème de macro VBA.

J'aimerai couper une chaîne de caractères pour en faire plusieurs.

Par exemple :

*dans la cellule A1, j'ai des chiffres séparés par un espace tel que ceci :
123 456 789 147 258 369 321 654 987 741 852 963

*comment faire pour que le résultat que j'aimerai avoir soit :

dans cellule A2 : 123
dans cellule A3 : 456
dans cellule A4 : 789
...
dans cellule A13 : 963
...

Merci à celle ou celui qui pourra me mettre sur la voie.

 

[Hervé]

bonjour

une piste à tavers ce code (non compatible XL97) :

Dim tablo

tablo = Split(Range('a1'), ' ')
Range('a2').Resize(UBound(tablo) + 1, 1) = Application.Transpose(tablo)

salut

 

[pierrejean]

bonjour sebkernoise

Salut Hervé (et bravo comme d'hab.)

ma version [file name=sebkernoise.zip size=9538]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/sebkernoise.zip[/file]

 

[sebkernoise]

Merci pour votre réactivité Hervé et Pierrejean.
C'est exactement ça que je recherchais.

Bravo à vous deux

 

[Hervé]

re seb, salut pierrejean

joli boucle pierrejean

meme resultat en 1 ligne :

Range('a2').Resize(UBound(Split(Range('a1'), ' ')) + 1, 1) = Application.Transpose(Split(Range('a1'), ' '))

mais moins lisible

salut

 

[Tibo]

Bonjour à tous,

Une solution par formule :

en A2 et à recopier vers le bas :

=STXT($A$1;(ENT((LIGNE()-2)*4))+1;3)


@+

 

[shiby87]

Re : Re:Couper une chaine à chaque espace

Bonjour, la formule fonctionne très bien pour une cellule (A1) mais est-il possible de pouvoir faire le même résultat pour plusieurs cellule?

Par exemple, j'aimerais coller tout mes séries de nombres séparés par des espaces dans A1,B1, C1, D1... et que dans chacune des lignes, je puisse décortiquer mes nombres.

Merci

 

[BOISGONTIER]

Re : Couper une chaine à chaque espace

Bonjour,

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionDecoupe2.xls

JB

 

[mutzik]

Re : Couper une chaine à chaque espace

bonjour,

ce ne sont que des nombres à trois chiffres ?
dans le premier message tu parlais de A1, A2, A3 ...
maintenant c'est A1, B1, C1 ...

et 'je puisse décortiquer mes nombres' ???
un petit fichier avec le résultat souhaité serait un plus