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