Comment séparer une chaine de caractère mot par mot ?

[bonzom]

Bonjour à tous,

Actuellement, je travaille sur une macro. Je cherche à séparer un message texte mot par mot dans de nouvelles cellules.

exemple (voir les données surligner en jaune dans la pièce jointe) :

• Une cellule en B1 = "Désignation article"
• Mon but est alors de réussir à récupérer cette chaine pour recopier en C1 le mot "Désignation" et en D1 le mot "article". Dans mon utilisation la chaine de caractère peut comporter deux mots comme six mots, un espace sépare chaque mot.
• Soit obtenir en B1= "Désignation article" / C1 = "Désignation" / D1 = "article"

J'ai entendu parler de la fonction split() mais je n'ai jamais réussi à m'en servir...

Je vous remercie d'avance, en espérant que vous avez réussi à comprendre ma demande.

 

[phlaurent55]

Bonjour bonzom,

Sélectionner la(les) cellule(s)
Onglet "Données"
Cliquer sur "Convertir" .................. séparateur espace

à+
Philippe

 

[bonzom]

Merci laurent pour ta réponse, j'ai réussi à utiliser la fonction convertir mais une fois avoir séparer le premier mot je n'arrive plus à enchainer la fonction...
Par hasard connais-tu l'équivalent de cette fonction en code VBA ?

 

[pierrejean]

Bonjour bonzom
Salut Philippe

Macro a tester:

Sub test()
For n = 2 To Range("A" & Rows.Count).End(xlUp).Row
x = Split(Trim(Range("A" & n)))
For m = LBound(x) To UBound(x)
   Cells(n, m + 2) = x(m)
Next
Next
End Sub

 

[bonzom]

Bonjour pierre jean,

C'est parfait, cela marche nickel !!

merci pour ton aide