Recherche de triplés

Bonjour à tous,

Pourriez vous me donner la soluce du problème suivant.

Je sait détecter un doublon, mais ce que j'aimerai, c'est que la case soit en rouge à la détection du troisième doublons et non au deuxième.

pouvez vous m'aider et merci d'avance

Bonjour,

dans un format conditionnel:

=NB.SI($E$1:$E$9;E1)>2

P.

Salut

Voici un fichier joint, je n'arrive pas ou mettre ta formule

merci de ta réponse

oups,

elle n'est pas correcte

Bonsoir,

C'est par formule ou par macro ?

par macro ça serait simple

Cdt

re

regarde le fichier joint

merci de votre aide

salut

peux importe macro ou autre

merci de ta réponse

Je l'ai déjà le fichier joint.

par macro, dès la valeur trouve une fois, tu lance un compteur et puis pour les lignes suivantes une fois le compteur passé à 3.

Bon je regrette avoir si aussi simple...je sais que ya un truc qui me bloquerai ^^ retomber sur le second triplé après la recherche d'autre

Désolé, je vais mettre 3 heures à faire la macro, mais demain matin pas de prob, ce soir j'ai un peu de boulot.

La macro est relativement simple, je suis réalistement lent par contre

Merci beaucoup

pas de problème je viens demain

Bonne soirée à demain

Si t"as plus d'info a me donner.

Je sait détecter un doublon, mais ce que j'aimerai, c'est que la case soit en rouge à la détection du troisième doublons

C'est pour chaque 3éme détection ou à partir du 3éme jusqu'au dernier ?

re,

un essai ici avec tes données en colonne A:

Sub Troisième() ' permet de repérer facilement les 3emes d'une liste

Dim Couleurs, MonDico, c, mRange, Last

Set MonDico = CreateObject("Scripting.Dictionary")

last = [A65000].End(xlUp).Row

Set mRange = Range("A1:A" & last): mRange.Interior.ColorIndex = Null

For Each c In mRange

If c <> "" Then MonDico.Item(c.Value) = MonDico.Item(c.Value) + 1

If MonDico.Item(c.Value) = 3 Then

c.Interior.ColorIndex = 3

End If

Next c

End Sub

Patrick

Salut Patrick,

le code ne fonctionne pas, ou alors je ne le met pas ou il faut.

Peux tu me dire ou je dois le placer.

Merci

Bonjour,

ALT-F11, / insertion module / et tu le copies là

Dans la feuille Excel, tu insère un dessin et tu lui affectes cette macro

P.

Merci beaucoup de ton aide ça marche,

Et si je veux que tous deviennent rouge au de la de trois il faut modifier quelle ligne?

Bon weekend

=3 devient >=3

Bonjour,

Merci beaucoup de ton aide

Je te souhaite un bon weekend