[Résolu] extrait des mots dans un texte (séparateur ;)

[King_ghost]

bonsoir.
je me suis très expliqué dans la pièce jointe.
je veux simplement extrait des mots dans un texte utilisant comme séparateur le ";"
et merci d’avance.

 

[mapomme]

Re : extrait des mots dans un texte (séparateur

Bonsoir King_ghost,

Avec une fonctionv VBA: Nieme_mot(S As Range, N As Long) as string
où S est la cellule contenant le texte source
où N est le Nième mot à extraire.

Le code VBA de la fonction dans le module1:

Function Nieme_mot(S As Range, N As Long) As String
On Error Resume Next
Nieme_mot = Split(S(1, 1), ";")(N - 1)
End Function

 

[Staple1600]

Re : extrait des mots dans un texte (séparateur

Bonsoir à tous

King_ghost
Données/Convertir/Séparateur ";" fait cela très bien
Le savais-tu?

mapomme: un petit plus, si tu permets
Function Nieme_mot(S As Range, N&, Sep$) AsString
OnErrorResumeNext
Nieme_mot = Split(S(1, 1), Sep)(N - 1)
EndFunction

*Pour utiliser saisir dans B1 par exemple
=Nieme_mot(A1;2;";")

PS: * précision à destination de King_ghost

 

[mapomme]

Re : extrait des mots dans un texte (séparateur

Bonsoir Stapple1600 ,

mapomme: un petit plus, si tu permets

Non seulement je permets mais j'acquiesce à ce petit plus (ça me rappelle: voir ici - c'est pas tout jeune ça!) .

 

[King_ghost]

Re : extrait des mots dans un texte (séparateur

Bonsoir à tous,
Merci mapomme, j'ai pris beaucoup de chose dans ton poste.
Pour Staple1600, je te remercie aussi,j'ai pris l'exploitation de (Données/Convertir/Séparateur)
aussi cela "$" pour déclarer string aussi "&"....
------
Je comprends très bien si vous me dites (Split in VBA), mais c'est bien !! j'ai pris autres chose que l'objet de ma question.
Merci infiniment.