Formule pour doublons

Bonjour à tous,

je souhaiterais créer une formule permettant de dire si oui ou non cette donnée du tableau 1 se trouve dans le tableau 2.

J'ai essayer une règle de doublons grâce à la mise en forme conditionnelle mais ça ralenti mon fichier (environ 50 000 lignes )

Merci de partager votre connaissance Excel

Guillaume

Bonjour,

un fichier exemple avec résultat souhaité sera plus parlant...

@ te relire

Bonjour,

Doublons dans un champ

0,6s pour 25.000 lignes

Sub ColoriageDoublons3()
  [A:A].Interior.ColorIndex = xlNone
  a = Range("a1", [a65000].End(xlUp))
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In a
     mondico.Item(c) = mondico.Item(c) + 1
  Next c
  For Each c In Range("a2", [a65000].End(xlUp))
    If mondico.Item(c.Value) > 1 Then c.Interior.ColorIndex = 4
  Next c
End Sub

Doublons entre 2 champs

Sub DoublonsRapide()
  Set d = CreateObject("Scripting.Dictionary")
  Set d2 = CreateObject("Scripting.Dictionary")
  Set plage1 = Range("B1", [b65000].End(xlUp))
  Set plage2 = Range("C1", [c65000].End(xlUp))
  [B:C].ClearComments
  [B:C].Interior.ColorIndex = xlNone
  For Each C In plage1
    d.Item(C.Value) = ""
  Next C
  For Each C In plage2
    d2.Item(C.Value) = ""
    If d.exists(C.Value) Then C.Interior.ColorIndex = 3
  Next C
  For Each C In plage1
    If d2.exists(C.Value) Then C.Interior.ColorIndex = 4
  Next C
End Sub

Ceuzin

Salut et merci pour vos réponses:

voici le lien du fichier exemple:

donc je souhaiterais trouver une formule permettant de dire dans la colonne E si ce client se trouve dans le tableau 2

@Ceuzin: merci pour ta réponse mais la ta formule me dépasse!! comment l'exploiter??

Bonsoir,

Merci de télécharger les fichiers directement sur le site, puisque c'est possible...

En E4,

=SI(NB.SI(Tableau1[Colonne1];[@Intitulé]);"Oui";"Non")

@ + +

merci!!!!

désolé je ne savais pas que l'on pouvait uploader le fichier directement.

En tout cas un grand merci pour ta rapidité

Rechercher des sujets similaires à "formule doublons"