Discussion :

[odilolo11]

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

[riaolle]

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 :

Sinon, en VBA, il faut travailler avec Split.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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/

[odilolo11]

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

[Jean-Philippe André]

Salut,

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

[odilolo11]

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

[riaolle]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[odilolo11]

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

[Menhir]

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

[odilolo11]

merci Menhir,

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

[Jean-Philippe André]

Salut,

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

[riaolle]

Sans VBA ?
Une idée... il y a peut-être plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

[odilolo11]

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

[Menhir]

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

[odilolo11]

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

[Jean-Philippe André]

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

On ne peut rien faire de plus pour toi

[odilolo11]

Rebonjour, Jean Philippe

pouvez-vous me donner sous fichier excel svp

merci

[Menhir]

pouvez-vous me donner sous fichier excel svp

Tu ne veux pas aussi qu'on te serve le café avec ?
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.

[odilolo11]

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

[Jean-Philippe André]

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