Fractionner un texte en colonne sur VBA

Bonjour,

je suis débutant sur VBA.

J'aimerai fractionner un texte dans une cellule en collonne.
exemple :
3623902074 P 136.54 16.5 01/08/2017 MRS TNR EXB C.B. LOCAMAT TAMATAVE
3061178610 P 267.61 42.5 27/07/2017 MRS TNR EXB C.B. LOCAMAT TAMATAVE
3061427460 P 584.01 87.0 27/07/2017 ORE TNR EXB C.B. LOCAMAT TAMATAVE

la séparation ici c'est un espace et j'aimerai de fractionner en 10 colonnes

Merci pour votre soutien

Bonjour et bienvenue au forum,
Si le nombre de caractères entre les espaces est toujours le même, tu peux passer par la fonction STXT sans passer par VBA :
Pièce jointe 302881
Sinon, en VBA, il faut travailler avec Split.

Code:

---

1 2	MsgBox Split("la maison", " ")(0) 'renvoie "la" MsgBox Split("la maison", " ")(1) 'renvoie "maison"

---

Un tuto intéressant : http://silkyroad.developpez.com/VBA/...nesCaracteres/

bonjour, Riaolle

merci pour ta réponse

pour plus d'info

le nombre de caractère est variable dans une colonne, seul le séparateur "espace" qui définit

en attendant votre réponse

merci

Salut,

tu as la possibilite de faire du TextToColumns avec ton range
https://www.developpez.net/forums/d8...columns-macro/

salut jean philippe,

je ne comprends pas ce que me propose

pouvez-vous répondre à ma question sur la fraction du texte en colonne
NB: ce texte est coller dans une cellule, et j'aimerai de fractionner en colonne

merci

Jean-Philippe André te propose d'utiliser la fonction TextTocolumns :

Code:

---

1 2 3

Sub test() Range("A1:A2").TextToColumns destination:=Range("C1") End Sub

---

Pièce jointe 302910

grand merci riaolle et jean philippe

ça marche bien sur VBA

j'en profite encore, si on utilise des fonctions???

veuillez me guider

NB nombre caractère variable mais c'est le séparateur "espace" qui définit

merci

Toutes les explications sur la méthode TextToColumns : https://msdn.microsoft.com/fr-fr/lib.../ff193593.aspx
Avec description, syntaxe, paramètres et exemple.

merci Menhir,

ça peut m'enrichir mais je demande de résoudre sur fonction,
quelqu'un peut m'aider

Salut,

excuse nous, mais vu que le titre de ton message est "sur VBA" et non "sur formule", on est un peu perdu...

Sans VBA ?
Une idée... il y a peut-être plus simple :
Pièce jointe 302930

Code:

---

=STXT(A1;1;CHERCHE(" ";A1))

---

Code:

---

=STXT($A1;NBCAR(CONCAT($B1:B1))+1;SIERREUR(CHERCHE(" ";$A1;NBCAR(CONCAT($B1:B1))+1);NBCAR($A1))-NBCAR(CONCAT($B1:B1)))

---

Citation:

---

Envoyé par Jean-Philippe André

excuse nous, mais vu que le titre de ton message est "sur VBA" et non "sur formule", on est un peu perdu...

---

Sans compter que la demande elle-même est placée dans le forum Macro et VBA Excel. :koi:

Bonjour à tous,

d'après les fonctions données par Riaolle, j'ai essayé mais je n'arrive plus.
En attache le fichier

quelqu'un peut m'aider

merci d'avance

Si tu veux le faire sans VBA, tu sélectionnes tes données > Ruban Données > Icône Convertir > Type de données "Délimité" > Séparateur : cocher "Espace" et décocher "Tabulation" > Terminer

Bonjour Menhir,

Merci pour ta réponse

Je connais cette méthode mais pour approfondir mes connaissances, j'aimerai de résoudre mes problèmes par fonction.
Mon objectif c'est d'avoir 3 moyens pour résoudre ce contexte :
1- par menu excel
2- par fonction
3- par VBA

j'attends votre réponse mes chers amis pro.

Merci

On t'a donne les 3 solutions deja
- post 6
- post 11
- post 14

On ne peut rien faire de plus pour toi :D

Rebonjour, Jean Philippe

pouvez-vous me donner sous fichier excel svp

merci

Citation:

---

pouvez-vous me donner sous fichier excel svp

---

Tu ne veux pas aussi qu'on te serve le café avec ? :roll:
Je ne sais pas si tu as bien compris que ce forum est là pour fournir des informations, pas pour faire ton travail à ta place. :cfou:
:moinsser:

j'ai fait beaucoup d'effort mais je n'arrive plus (ci-joint la preuve)

Passe par le menu, tu devrais pouvoir t'en contenter a mon avis :)