récupérer txt d1 C lule

[yvahnof]

bonjour,

J'ai un problème, j'ai un tableau a mettre a jour !!!!



Dans la première colone j'ai 2 à 3 mots et je voudrai que le 1er mot soit mis dans la 1ere colone et le reste de la cellule dans une deusième
ex:

| PROUST MARCEL RUE | --->> | PROUTS | MARCEL RUE |

la seule méthode que je connaisse est le copier coller ou refaire un tableau

Merci d'avance

 

[andré]

Salut,

Ton texte en A1

En B1 : =GAUCHE(A1;CHERCHE(" ";A1;1)-1)
En C1 : =DROITE(A1;NBCAR(A1)-NBCAR(B1)-1)

Les -1 à la fin des formules servent à supprimer l'espace entre le premier et le deuxième mot.

Ândré.

 

[Lord Nelson]

Salut Yvanhof et André,

La version macro donnerait ceci :

Sub Séparer_les_mots()
Dim CL As Range, P As Integer
For Each CL In Selection
P = InStr(CL.Text, " ")
If P > 0 Then
CL.Offset(0, 1) = Right(CL.Text, Len(CL.Text) - P)
CL = Left(CL.Text, P - 1)
End If
Next
End Sub

Avantage : il n'est pas nécessaire de créer une nouvelle colonne.

A+
Horatio

 

[andré]

Salut Horacio,

Il y a à nouveau le choix pour la sauce (lol).

Par contre, ta macro a deux avantages :

Je n'avais pas vu que le premier mot devait rester dans la colonne A.
On peut toujours supprimer la colonne A après coup, mais cela fait "négligé".

J'ai oublié de tester s'il y avait bien un espace, faute de quoi il y aura un message d'erreur (#VALEUR!).

Ândré.

 

[yvahnof]

Merci a vous de m'avoir évité de retaper 4000 cellules