Excel: Extraire des données d'une même cellule avant virgule

Résolu
Al -  
 Ofa86 -
Bonjour,

Ma cellule contient des données qui peuvent contenir une virgule. Lorsqu'il y en a une, j'aimerais pouvoir extraire les données contenues avant la 1ère virgule quelle que soit leur longueur, sinon toutes les données de la cellule.
Exemple: si la cellule contient 'DUPONT, Jean-Paul, Paris', j'aimerais pouvoir n'extraire que 'DUPONT', et si la cellule contient 'DUPONT', alors 'DUPONT' devra être extrait.
Comment faire?

Je vous remercie pour votre aide!
A voir également:

3 réponses

Réponse 1 / 3
ccm81 Messages postés 11033 Statut Membre 2 433
 
Bonjour

ton texte en A13
=SI(ESTERR(CHERCHE(",";A13;1));A13;GAUCHE(A13;CHERCHE(",";A13;1)-1))

Cdlmnt
5
Al
 
Bonjour ccm81,

Je viens d'essayer la formule proposée, et elle bien aboutit au résultat attendu!

Je t'en remercie énormément!

Bonne journée!
0
Ofa86
 
Merci bcp
0
Réponse 2 / 3
eljojo_e Messages postés 1255 Statut Membre 155
 
Bonjour,

voici ma solution : 

Function extract(z As String) As String
ma = Len(z)
For a = 1 To 1000
    If ma = a Then
    extract = "Pas de virgule détecté"
    Exit Function
    End If
    If Right(Left(z, a), 1) = "," Then
        extract = Left(z, a - 1)
        Exit Function
    End If
Next
End Function


Tu n'as plus qu'à ecrire la fonctionne dans une cellule =extract(tacellule) et c'est bon.

Cordialement,

Mesurer la masse de sa connerie permettrait dans connaitre sa gravité ;)
0
Al
 
Merci eljojo_e!
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
@eljojo_e
Pour la solution macro, la fonction instr renvoie 0 ou le rang d'un sous_texte dans un texte 

Public Function AvantLaVirgule(s As String) As String
If InStr(1, s, ",") = 0 Then
  AvantLaVirgule = s
Else
  AvantLaVirgule = Left(s, InStr(1, s, ",") - 1)
End If
End Function

Cdlmnt
0
Réponse 3 / 3
michel_m Messages postés 18903 Statut Contributeur 3 317
 
Bonjour,

=SI(ESTERREUR(CHERCHE(",";B2));B2;GAUCHE(B2;CHERCHE(",";B2)))

non valable si "dupont jean" r
0