Repérer des doublons dans Excel

Marionnettiste Messages postés 7 Statut Membre -  
Marionnettiste Messages postés 7 Statut Membre -
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 Messages postés 324 Statut Membre 14
     
    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
  2. Boisgontierjacques Messages postés 177 Statut Membre 64
     
    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
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  4. Iama Messages postés 324 Statut Membre 14
     
    J'ai oublié prendre
    Règle de surbrillance des cellules
    puis
    Valeur double
    Iama
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  7. Marionnettiste Messages postés 7 Statut Membre 13
     
    Merci pour votre aide !
    j'ai pris la solution de Mike-31 ça marche parfaitement !
    0