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. 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
    1
    1. Iama
      J'ai oublié prendre
      Règle de surbrillance des cellules
      puis
      Valeur double
      Iama
      0
      2. 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
        1
        2. 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
          1. Marionnettiste Auteur
            Merci pour votre aide !
            j'ai pris la solution de Mike-31 ça marche parfaitement !
            0