Comment supprimer une chaîne de caractères dans une cellule

Bonjour,

Je dois faire une comparaison/extraction de données dans plusieurs fichiers (vlookup) et je me retrouve confrontée avec le fait que les colonnes des fichiers ne sont pas comparables.

ex : le premier fichier comprend le nom

le second comprend le nom suivi d'une virgule puis d'un espace puis du prénom

le troisième comprend le nom suivi d'un espace puis du prénom.

Les fichiers comprennent des noms identiques aux 3 fichiers mais aussi des noms qui leur sont propres.

Afin de recueillir certaines données de ces fichiers je dois comparer des pommes et des pommes et non des pommes et des poires.

DONC EXISTE-T-IL UN MOYEN D'ELIMINER UNE CHAINE DE CARACTERES DANS UNE CELLULE A PARTIR D'UN CARACTERE SPECIFIQUE TEL UNE VIRGULE OU UN ESPACE ?

Ex : Dupont, Jean -> je souhaite : Dupont

Merci d'avance de votre aide,

Bonjour,

Il serait + prudent d'ajouter une colonne avec Dupont (seul)

et ensuite, travailler sur cette colonne

çà, on sait faire par macro

Envoie une feuille anonymisée si besoin (quelques lignes avec la structure réelle)

Amicalement

Claude

Merci Claude,

Voici un fichier structuré un peu comme celui que je dois traiter avec les fichiers dans les 3 worksheets.

re,

Sub Separe()
Dim Lg%, i%, x
    Application.ScreenUpdating = False
    Lg = Range("A65536").End(xlUp).Row

    If Range("b1") <> Range("a1") Then
        Application.CutCopyMode = False
        Columns("b").Insert
        Range("b1") = Range("a1")
    End If
    '--- 1er tour pour virgule ---
    For i = 2 To Lg
        Cells(i, "a") = Trim(Cells(i, "a"))
        x = Split(Cells(i, "a"), ",")
        Cells(i, "b") = x(0)
    Next i
    '--- 2ème tour pour espaces (sauf les "Van") ---
    For i = 2 To Lg
        x = Split(Cells(i, "b"), " ")
        If Left(Cells(i, "b"), 3) <> "Van" Then Cells(i, "b") = x(0)
    Next i
End Sub

Amicalement

Claude

édit: ajout du fichier

Un grand merci vraiment, mais qu'est-ce que ça a l'air compliqué !

re,

le problème n'est pas si simple, non plus !

Claude

C'est vrai ! Encore merci

à +... Claude