Retrouver un nombre qui se répète dans un colonne

Bonjour à tous,

Alors voila j'ai un tableau à une seule colonne "Numéro" ou plusieurs codes commençant par A y sont inscris.

Certains d'entre eux sont répétés plusieurs fois, et j'aimerai donc mettre en place une macro activée par un bouton par exemple, qui permettrait donc de retrouver tout les codes qui se répètent 3 fois ou plus et de les ecrire dans la colonne "Suspect" de la fenêtre "Susp".

Dans mon fichier par exemple, elle est sensée m'afficher A1, A2 et A5 dans la colonne "Suspect".

Un petit plus serait de pouvoir directement les classer par ordre croissant pour faciliter l'analyse !

Merci d'avance pour votre réponse, et je vous souhaite à tous une agréable journée !

Cordialement,

Clooudy

Bonjour,

un code VBA (j'ignore si possible en formule )

P.

Option Explicit

Sub TroisPlus()
Dim Couleurs, monDico, monDico2, C, mRange
Dim F1, F2 As Worksheet
Dim Last As Integer
Set F1 = Sheets("feuil1"): Set F2 = Sheets("susp")
F2.[A2:A100].ClearContents
F1.Select
Set monDico = CreateObject("Scripting.Dictionary")
Set monDico2 = CreateObject("Scripting.Dictionary")
Last = [A65000].End(xlUp).Row
Set mRange = Range("A2:A" & Last)
For Each C In mRange
  If C <> "" Then monDico.Item(C.Value) = monDico.Item(C.Value) + 1
    If monDico.Item(C.Value) >= 3 Then
      If Not monDico2.Exists(C.Value) Then
         monDico2(C.Value) = monDico2(C.Value)
      End If
      monDico.Item(C.Value) = 1
    End If
Next C
F2.[A2].Resize(monDico2.Count, 1) = Application.Transpose(monDico2.keys)
End Sub

Bonjour,

A tester une solution par TCD sur PJ retournée.

Merci à vous pour vos réponses rapides, les deux cas me conviennent c'est exactement ce que je cherchait !

bonjour

tardivement ; la formule pour les privés de VBA

cordialement