Supprimer les doublons d'une cellule

[Sylvie64]

Bonjour,

Dans la cellule A1 j'ai ceci :
PRUVOST PRUVOST Jacques, né à Gorgel

J'aimerai supprimer une fois PRUVOST et avoir que cela :
PRUVOST Jacques, né à Gorgel

Merci pour votre aide

Sylvie

 

[ROGER2327]

Re : Supprimer les doublons d'une cellule

Bonjour Sylvie64

Une petite fonction personnalisée ?

Function toto$(s$)
Dim x
  toto = s
  x = Split(s)
  If UBound(x) > 0 Then If x(0) = x(1) Then toto = LTrim(Replace(toto, x(0), "", 1, 1))
End Function

Syntaxe :

=toto(A1)

​

ROGER2327
#5142

Samedi 28 Pédale 138 (Dédicace du Tripode, V)
2 Germinal An CCXIX
2011-W12-2T12:05:51Z

 

[tototiti2008]

Re : Supprimer les doublons d'une cellule

Bonjour Sylvie64,

Si ce n'est que la cellule A1, je pense que tu n'auras pas de difficultés à effacer un PRUVOST manuellement 😀
Maintenant, si ça se répète sur plein de lignes, est-ce toujours le 1er mot qui se répète ?

si oui, peut-être

=SUBSTITUE(A1;GAUCHE(A1;CHERCHE(" ";A1)-1)&" "&GAUCHE(A1;CHERCHE(" ";A1)-1);GAUCHE(A1;CHERCHE(" ";A1)-1))

Edit : Bing, Bonjour Roger 🙂

 

[natorp]

Re : Supprimer les doublons d'une cellule

Bjr Sylvie, Roger et Tototiti

et comme ça :

=DROITE(A1;NBCAR(A1)-CHERCHE(" ";A1))

Cordialement, Gérard

 

[Pierrot93]

Re : Supprimer les doublons d'une cellule

Bonjour à tous

une autre variante vba :

Option Explicit
Sub test()
Dim t() As String
t = Split(Range("A1"))
If UBound(t) > 0 Then If t(0) = t(1) Then t(0) = "": Range("A1") = Trim(Join(t))
End Sub

bon après midi
@+

 

[Sylvie64]

Re : Supprimer les doublons d'une cellule

Bonjour à tous,

Merci bien pour toutes vos réponses, excellent !

Sylvie