afficher les valeurs d'une colonne présentes plus de 5 fois

[natorp]

Bjr à toutes et tous

Comme l'indique le titre, j'ai besoin d'afficher les noms qui sont présents plus de 5 fois dans la colonne A et leur nombre (voir pièce jointe)

Merci de votre attention et votre aide
Cordialement
Gérard

 

[13GIBE59]

Re : afficher les valeurs d'une colonne présentes plus de 5 fois

Bonjour natorp.

Une piste en pièce jointe, sachant que je ne sais pas sous quelle forme tu veux le résultat..
Inspire toi donc de la formule...

 

[david84]

Re : afficher les valeurs d'une colonne présentes plus de 5 fois

Bonjour tout le monde,
cf.fichier.
A+

 

[Gorfael]

Re : afficher les valeurs d'une colonne présentes plus de 5 fois

Salut natorp et le forum
Deux manières de visualiser :
- Une par MFC
- Une par Macro
A+

 

[david84]

Re : afficher les valeurs d'une colonne présentes plus de 5 fois

Re
Testé sur le fichie de Gorfael (que je salue), une autre proposition par macro, bien plus rapide que par formule :

Sub test()
Dim Tabl, Tabl2, Plage, Plage2, i&, j&
    With Sheets("Feuil2")
        Set Plage = .Range(.[A2], .Range("A" & Rows.Count).End(xlUp))
        Set Plage2 = .Range(.[A1], .Range("A" & Rows.Count).End(xlUp))
        .Range("E9:F" & Plage.Rows.Count).ClearContents
        Tabl = .Range(.[A2], .Range("A" & Rows.Count).End(xlUp)).Value
        Tabl2 = .Evaluate("TRANSPOSE(FREQUENCY(IF(" & Plage.Address & "<> """",MATCH(" & Plage.Address & "," & _
        Plage.Address & ",0)),ROW(" & Plage2.Address & ")))")
        j = 1
        For i = 1 To Plage.Rows.Count
            If Tabl2(i) > 4 Then
            Dim Tabl3()
            ReDim Preserve Tabl3(1 To Plage.Rows.Count, 1)
            Tabl3(j, 0) = Tabl(i, 1)
            Tabl3(j, 1) = Tabl2(i)
            j = j + 1
            End If
         Next i
        .Range("E9:F" & Plage.Rows.Count) = Tabl3
    End With
End Sub

A+

 

[david84]

Re : afficher les valeurs d'une colonne présentes plus de 5 fois

Re re
Code légèrement différent à tester également :

Sub test2()
Dim Tabl, Tabl2, Plage, Plage2, i&, j&, Nb
    With Sheets("Feuil2")
        Set Plage = .Range(.[A2], .Range("A" & Rows.Count).End(xlUp))
        Set Plage2 = .Range(.[A1], .Range("A" & Rows.Count).End(xlUp))
        .Range("C1:D" & Plage.Rows.Count).ClearContents
        Tabl = .Range(.[A2], .Range("A" & Rows.Count).End(xlUp)).Value
        Tabl2 = .Evaluate("TRANSPOSE(FREQUENCY(IF(" & Plage.Address & "<> """",MATCH(" & Plage.Address & "," & _
        Plage.Address & ",0)),ROW(" & Plage2.Address & ")))")
        Nb = .Evaluate("SUM(N(FREQUENCY(IF(" & Plage.Address & "<> """",MATCH(" & Plage.Address & "," & _
        Plage.Address & ",0)),ROW(" & Plage2.Address & "))>4))")
        j = 1
        For i = 1 To Plage.Rows.Count
            If Tabl2(i) > 4 Then
            Dim Tabl3()
            ReDim Preserve Tabl3(1 To Nb, 1)
            Tabl3(j, 0) = Tabl(i, 1)
            Tabl3(j, 1) = Tabl2(i)
            j = j + 1
            End If
         Next i
        .Range("C1:D" & Nb) = Tabl3
    End With
End Sub

A+

 

[natorp]

Re : afficher les valeurs d'une colonne présentes plus de 5 fois

Bjr à tous et merci pour vos propositions

Je ne pensais pas que vous chercheriez avec macro et du coup j'ai oublié de préciser que mon réseau d'entreprise supprime le VBA, je ne peux donc pas voir ce que nous a concocté Gorfael. Sinon ce que David a fait est tout à fait satisfaisant, par formule et par macro

Vraiment, merci beaucoup de votre aide

Bonne journée, Gérard