Supprimer les doublons d'une cellule

ROGER2327

XLDnaute Barbatruc

• 22 Mars 2011

• #2

Re : Supprimer les doublons d'une cellule

Bonjour Sylvie64

Une petite fonction personnalisée ?

VB:

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 :

Code:

=toto(A1)

​

ROGER2327
#5142

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 22 Mars 2011

• #3

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

Code:

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

Edit : Bing, Bonjour Roger 🙂

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 22 Mars 2011

• #4

Re : Supprimer les doublons d'une cellule

Bjr Sylvie, Roger et Tototiti

et comme ça :

Code:

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

Cordialement, Gérard

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mars 2011

• #5

Re : Supprimer les doublons d'une cellule

Bonjour à tous

une autre variante vba :

Code:

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
@+

 

Vote positif 0 Vote négatif

S

Sylvie64

XLDnaute Occasionnel

• 22 Mars 2011

• #6

Re : Supprimer les doublons d'une cellule

Bonjour à tous,

Merci bien pour toutes vos réponses, excellent !

Sylvie

 

Vote positif 0 Vote négatif