Extraction Nom et Prénom d’une ligne de texte

Bonjour

Je suis dépassé par les macros et j’ai besoin d’aide mon problème est d’extraire

Le Nom et le Prénom affichés dans une ligne de texte et

de répéter l’opération pour 100 a 150 lignes je pense que cela est possible avec une boucle

ci-joint une partie du tableau a extraire

par avance merci pour votre aide

Date N° compte Libellé Recette TVA Moyen de paiement

02/01/2019 706000 Séance ostéopathique de DUDULE Stephanie le 02/01/2019 50,00 € 0,00% Chèque

02/01/2019 706000 Séance ostéopathique de MESANGE Nadine le 02/01/2019 50,00 € 0,00% Espèces

02/01/2019 706000 Séance ostéopathique de LANGUEDOC Gregory le 02/01/2019 50,00 € 0,00% Espèces

03/01/2019 706000 Séance ostéopathique de PRUNE Aurélie le 03/01/2019 50,00 € 0,00% Chèque

03/01/2019 706000 Séance ostéopathique de DE CHANTECLAIR Mathys le 03/01/2019 50,00 € 0,00% Chèque

04/01/2019 706000 Séance ostéopathique de NARVAL Agapit le 04/01/2019 50,00 € 0,00% Chèque

04/01/2019 706000 Séance ostéopathique de VOUVRAI Florence le 04/01/2019 50,00 € 0,00% Chèque

05/01/2019 706000 Séance ostéopathique de DUPONT Colette le 05/01/2019 50,00 € 0,00% Chèque

Bonjour,

à tester,

=DROITE(GAUCHE(A2;TROUVE(" le";A2));NBCAR(GAUCHE(A2;TROUVE(" le";A2)))-TROUVE("de ";A2)-2)

Bonjour i20100

merci pour votre réponse

elle fonctionne bien mais je suis obligé d'extraire les noms et prénoms dans une autre colonne

hier je me suis mal expliqué car je n'ai pas réussi a afficher mon tableau dans son ensemble et faire apparaitre les colonnes

A = Date

B = N° compte

C = Libellé dans cette colonne je souhaiterai que le nom et le prénom reste dans la même cellule est-ce faisable ?

Libellé

Séance ostéopathique de DUDULE Stephanie le 02/01/2019

Séance ostéopathique de MESANGE Nadine le 02/01/2019

Séance ostéopathique de LANGUEDOC Gregory le 02/01/2019

Séance ostéopathique de PRUNE Aurélie le 03/01/2019

Séance ostéopathique de DE CHANTECLAIR Mathys le 03/01/2019

Séance ostéopathique de NARVAL Agapit le 04/01/2019

Séance ostéopathique de VOUVRAI Florence le 04/01/2019

Séance ostéopathique de DUPONT Colette le 05/01/2019

Avec tous mes remerciements

Cordialement

Bonjour,

Peux-tu joindre un fichier ?

Cdlt.

Bonjour Jean-Eric

Comment joindre un fichier?

merci

RE BONJOUR JEAN-ERIC

j'ai trouvé c’était écrit dessous je joins le fichier

Merci d'avance

Bonjour,

à tester,

Sub Test_Nom()
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
    x = Split(Cells(i, 3), " le")(0)
    Cells(i, 3) = Split(x, "de ")(1)
Next i
End Sub

Bonjour,

La proposition de i20100 fonctionne très bien, mais histoire de dire que je n'ai pas cherché pour rien, voici une variante:

Sub Recup_Nom()
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
    Cells(i, 3) = ExtractNP(Cells(i, 3).Value)
Next i
End Sub

Function ExtractNP(Texte As String) As String
    Dim Debut As Integer
    Dim Fin As Integer
    Debut = InStr(Texte, "de ") + 2
    Fin = InStr(Texte, " le") + 1
    ExtractNP = Trim(Mid(Texte, Debut, Fin - Debut))
End Function

Cdt,

Bonjour a tous

Merci a vous pour votre aide mais je bloque je ne comprends pas pourquoi

j'ai fait plusieurs essai avec les macros proposées en les recopiant

mais je n'arrive pas a débloquer a chaque fois que je lance la macro j'ai le message suivant qui s'affiche

erreur de compilation:

variable non définie

cordialement

Bonjour à tous,

Pour l'une ou l'autre des macros de i20100 et GINN ...

Juste sous la ligne qui commence par Sub ...

ajoute :

Dim i as Integer

Ça devrait fonctionner après cet ajout.

Pour la macro de i20100, ajoute aussi une autre ligne

Dim x

ric

Bonjour,

Une autre proposition avec Power Query !?

Les données sont mises sous forme de tableau.

Le fichier est enregistré en xlsx (Excel 2007+) !...

Un peu d'intelligence artificielle (IA)

A te relire pour un complément d'informations.

Cdlt.

Bonjour Ric

Merci pour la réponse mon problème est résolu

avec tous les membres du forum vous êtes super

Merci a tous

cordialement

Merci pour ce retour, au plaisir!

la question étant résolue,

pour clôturer le fil, fait un clic sur le bouton (indiquer par la flèche verte)

Merci!

Bonjour A tous

Un grand MERCI mon problème est résolu

vous êtes supers et très réactifs

je suis très content

cordialement

tu ne vois pas le bouton ?

c'est fait, merci!

Effectivement Ric !

Personnellement, en VBA je m'impose la directive "Option Explicit" en début de module afin que toutes les variables soient déclarées, comme dans d'autres langages que j'utilise.

Là, j'ai dérogé à cette règle, désolé !

Bonjour à tous,

@GINN

ric