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

bonzom · 29 Août 2018

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 · 29 Août 2018

Bonjour bonzom,

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

à+
Philippe

bonzom · 29 Août 2018

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 · 29 Août 2018

Bonjour bonzom
Salut Philippe

Macro a tester:

Code:

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 · 30 Août 2018

Bonjour pierre jean,

C'est parfait, cela marche nickel !!

merci pour ton aide

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

bonzom

XLDnaute Nouveau

Pièces jointes

phlaurent55

Nous a quittés en 2020

bonzom

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

bonzom

XLDnaute Nouveau

Discussions similaires