Trier une colonne et compter les elements

[XIBOOX]

Bonsoir
j'ai un petit soucis de macro
dans la colonne A j'ai mis tous mon matériel informatique
et j'aimerai distinguer et quantifier chaque matériel selon leurs catégories
par colonne par exemple colonne E moniteur
colonne f la quantité moniteur
etc...
voici mon code :

Option Explicit

Dim c As Object
Dim i As Integer

Sub moniteur()
Application.ScreenUpdating = False
i = 1
Sheets("Feuil3").Select
Range("E2:F65536").ClearContents

Range("E2:F65536").ClearContents
' Sheets("Feuil1").[A:A].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[E1], unique:=True
For Each c In Range("a1", [a65536].End(3))

If c.Value Like "*MONITEUR*" Then
Sheets("Feuil3").Cells(i + 1, 5) = c
Sheets("Feuil3").Cells(i + 1, 6) = Application.CountIf([Data], c)
End If
i = i + 1
Next
Sheets("Feuil3").Range("E2:F65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[h1], unique:=True

' Selection.Sort Key1:=Range("h1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Feuil3").[e:f].AdvancedFilter Action:=xlFilterCopy, unique:=True

Sheets("Feuil3").Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub

le seul hic c'est que je n'arrive pas a la classer dans la colonne E sans doublon et sans cellule vide ....
ci joint mon fichier pour test

 

[Staple1600]

Re : Trier une colonne et compter les elements

Bonsoir


Pour quoi ne pas utiliser les filtres et SOUS.TOTAL ?

Voir un exemple simple avec cette pièce jointe

 

[XIBOOX]

Re : Trier une colonne et compter les elements

je souhaite utiliser ensuite des listbox pour chaque catégorie

j'ai aussi essaye un Tableau croisé dynamique met j'arrive pas scinder chaque catégorie dans des colonnes différente

 

[Staple1600]

Re : Trier une colonne et compter les elements

Re

Tu as regardé mon exemple ?

 

[XIBOOX]

Re : Trier une colonne et compter les elements

oui j'ai regardé ton exemple mais ceci m'oblige à écrire des formules our chaque modèle ( exemple brother hl1450 puis brother hl1250 etc or j'ai plusieurs modèle et autres nouveau doivent bientôt arrivé ....

 

[Staple1600]

Re : Trier une colonne et compter les elements

Re


Ce n'était qu'un exemple simple.

On peut imaginer de piloter tout cela en VBA.

(On peut stocker les formules de critères dans un tableau etc ...)

Tout cela pour démontrer les possibilités du filtre élaboré.

 

[XIBOOX]

Re : Trier une colonne et compter les elements

je comprend pas trop comment ça marche
j'ai essayer de compter le mot ordi
et il me met #valeur#

 

[Staple1600]

Re : Trier une colonne et compter les elements

Re


Tu ne sais pas utiliser le filtre élaboré avec des formules comme critère ?

Dans ce cas, mieux vaut passer par une autre approche.

PS: pour le nombre d'ORDI

vois avec cette formule (qui s'applique à ma pièce jointe)

=NB.SI(A4:A142;"*ORDI*")

La suite est question d'imagination.

 

[XIBOOX]

Re : Trier une colonne et compter les elements

OUI c'est pas mal as tu testé ma macro occurrence ?

 

[Staple1600]

Re : Trier une colonne et compter les elements

Re

Oui j'ai regardé ... 🙄

Message édité:
Suppression de la pièce jointe devenue obsolète

 

[XIBOOX]

Re : Trier une colonne et compter les elements

je ne retrouve pas le nombre d'appareils ?😕😕😕

 

[Staple1600]

Re : Trier une colonne et compter les elements

Re


Quand tu lances l'userform

on retrouve bien 139 et 42 non ?

comme dans ton exemple initial .

 

[XIBOOX]

Re : Trier une colonne et compter les elements

oui j'ai bien le cumul mais je n'ai plus les quantités de chaque appareil🙄

 

[Staple1600]

Re : Trier une colonne et compter les elements

Re


Je me suis juste borné à te monter une autre façon de remplir une ListBox

Puisque tu savais faire le reste auparavant

Il te suffit de réadapter ton code en conséquence.

Tu as désormais différentes pistes à explorer et à approfondir en somme.

Je ne vais faire ton boulot de A à Z.

(Bénévolat oblige 😉 )

 

[XIBOOX]

Re : Trier une colonne et compter les elements

Un grand merci staple1600 pour ton aide !!!