doublons dans une meme céllule

[jdawson]

Bonjour

j ai un problème de doublons mais dans une meme cellule,
je m explique : j ai une cellule contenant des prénoms de personne
parfois il y a deux prénom identique de marqué dans la cellules

ex : andré andré
andré marie andré
andré stéphane andré stéphane

on peut avoir un peu tous les ordre possible mais en fait un prénom doit être marqué qu'une fois dans la cellule
andré stéphane andré stéphane deviendrai andré stephane

je cherche déjà a repérer les enregistrements présentant des répétitions et pas forcément à les corriger, une personne d autre le fera, mise à part si la correction est sure et certaine, déjà les repérer serait pas mal !!

merci par avance

bonne journée à vous

bruno

 

[BOISGONTIER]

Re : doublons dans une meme céllule

Bonjour,

cf PJ

Fonctions à mettre dans un module (Alt+11 puis Insertion/Module)

MFC:=estdoublon(A2)

Function EstDoublon(c)
 Application.Volatile
 a = Split(Application.Trim(c), " ")
 Set mondico = CreateObject("Scripting.Dictionary")
 For i = 0 To UBound(a):  mondico.Item(a(i)) = 1: Next i
 EstDoublon = mondico.Count <> (UBound(a) + 1)
End Function

Function SansDoublon(c)
  a = Split(Application.Trim(c), " ")
  Set mondico = CreateObject("Scripting.Dictionary")
  For i = 0 To UBound(a): mondico.Item(a(i)) = 1: Next i
  SansDoublon = Join(mondico.keys, " ")
End Function

JB

 

[jdawson]

Re : doublons dans une meme céllule

bonjour à toi,

merci pour le code 🙂

je voulais le mettre en place dans ma feuille excell, mais ca veut pas aller comme il faut,

je vais dans la partie développeur, et visual basic ou je colle ton code

je fais contrôle s pour enregistrer mais quand je veux appeler la macro elle n apparait pas ?

d habitude elle apparait sous un nom générique mais elle apparait,

je suis pas bien réveiller, faut croire 🙂)

merci

bruno