Repérer des doublons dans Excel

Marionnettiste -  
Bonjour à vous
je suis en train de créer un classeur Excel pour contacter des clients.
Dans plusieurs colonnes, j'écris à la main le noms des prospects.
Je ne voudrais pas prospecter deux fois la même personne/entreprise. C'est pourquoi je vous demande de l'aide :). Si tous les noms des prospects sont dans une même colonne, est-ce possible d'être averti par Excel lorsque je rentre un nom qui a déjà été écrit auparavant. Peut-être qu'Excel peut mettre un fond rouge dans la cellule si le nom a déjà été inscrit plus haut (auparavant) ?

Merci pour votre aide :)
Bonne journée à tous

6 réponses

  1. Marionnettiste Auteur
    Merci pour votre aide !
    j'ai pris la solution de Mike-31 ça marche parfaitement !
    1. Mike-31
      Bonsoir le fil

      Bienvenue à bord maître Boisgontier

      dans la même optique j'utilise cette formule qui revient à la même

      =NB.SI($A$1:$B$30;$A1)<2

      A+
      Mike-31

      Une période d'échec est un moment rêvé pour semer les graines du savoir.
      1. Boisgontierjacques
        Bonsoir,


        >Si tous les noms des prospects sont dans une même colonne, est-ce possible d'être averti par Excel lorsque je rentre un nom qui a déjà été écrit auparavant.

        Pour interdire la saisie de doublons dans le champ B2:B100 par exemple:

        -Sélectionner B2:B100
        -Données/Validation/Personnalisé
        =NB.SI(B$2:B$100;B2)=1


        Pour repérer les groupes de doublons déjà saisis (colonne A) avec une couleur pour chaque groupe         

        Sub GroupColor()
        couleurs = Array(1, 3, 4, 6, 7, 8, 14, 15, 17, 20, 22, 24, 26, 27, 28, 33, 34, 35, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 50, 53)
        Set mondico = CreateObject("Scripting.Dictionary")
        For Each c In Range("a2", [a65000].End(xlUp))
        If c <> "" Then mondico.Item(c.Value) = mondico.Item(c.Value) + 1
        Next c
        For Each c In Range("a2", [a65000].End(xlUp))
        If c <> "" Then
        nocoul = (Application.Match(c.Value, mondico.keys, 0)) Mod UBound(couleurs)
        If mondico.Item(c.Value) > 1 Then c.Interior.ColorIndex = couleurs(nocoul)
        End If
        Next c
        End Sub

        Jacques Boisgontier
        3. Iama
          J'ai oublié prendre
          Règle de surbrillance des cellules
          puis
          Valeur double
          Iama
          1. Iama
            Bonjour

            Je te propose d'utiliser d'utiliser la" mise en forme conditionnelle" qui ce trouve dans l'onglet" Acceuil "
            (Rubrique Style du cote droit de l'écran

            Iama