Discussion :

[fomy]

Bonsoir à tous,
j'ai une colonne dans laquelles est représenté un ensemble de domaine (support info)
genre
rubrique :domaine
materiel
messagerie
bureautique
impression
materiel
messagerie
messagerie
materiel
bureautique
bureautique
...
...

l'idée est de pouvoir créer automatiquement via du vba (lancer par un bouton)
une liste des 10 domaines les plus présents dans cette liste, par exemple :
Top 10
bureautique 20 appels
materiel 18 appels
Messagerie 15 appels
etc...

d'avance merci de votre aide

[LeXo]

tu mets ta liste et tu fais un autofilter sur le nombre décroissant d'appel

non ?

[spitnolan]

Bonsoir,

et en utilisant Nb.SI, si tu connais ta liste est limitée en domaines différents ?
ex : pour une liste de domaines en colonne A
=NB.SI(A2:A18;"=materiel")

Cordialement

[fomy]

merci pour vos réponses..
alors le but est d'automatiser cela via un bouton (avec code vba)
Je peux effectivement faire un filtre auto
et utiliser le nb.si(....) mais le soucis c'est justement que d'une part je veux que le tout soit automatique car c'est une action qui est souvent faite et pas forcement par quelqu'un qui maitrise la chose et d'autre part il ne faut pas qu'il y ai des changement de forme de la table des incidents
peux être est il possible de passer par une feuille temporaire ?

PS: les domaines reviennent souvent a l'identique, néanmoins la liste n'est pas fixe...

[alsimbad]

tien, c'est la fete des peres, cadeau
ce n'est pas de moi, mais je l'ai peché sur ce forum, merci a lui

[fomy]

merci mais ca marche pas chez moi (excel 2002) ???
pourrais-je vous demander le lien vers le post voir si il y a du code

[fomy]

C bon j'ai trouvé en cherchant un peu plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    Dim Cell As Range
    Dim i As Integer
    Dim Un As New Collection
 
    On Error Resume Next
        'Recherche les doublons dans la plage J40:J97
        For Each Cell In Range("J40:J97")
            'Utilise la propriété "Key" des collections qui
            'n'acceptent que des valeurs uniques.
            Un.Add Cell, CStr(Cell)
        Next Cell
    On Error GoTo 0
 
    For i = 1 To Un.Count
        'Afiche le résultat sans doublon dans la 10eme colonne
        Cells(i + 14, 10) = Un.Item(i) ' + 14 permet de choisir la ligne de départ
    Next i
 
'classement du top avec entetes
Range("J14:K26").Sort key1:=Range("k14"), Order1:=xlDescending, header:=xlYes

merci a vous