Somme selon critère et ranking

Bonjour à tous,

Merci d'avance à ceux qui voudront bien m'aider

Je bloque depuis quelque temps sur un projet pour lequel je n'arrive pas a construire un code vba qui marche correctement. Voici mon problème

Je fais des extracts de données météorologiques (plusieurs milliers de lignes), j'obtiens un tableau de données qui mentionne notamment les villes de France et les précipitations :

Ex:

Date Ville Précipitations (ml/cm3)

10/08 ROUEN 38

10/08 PARIS 23

11/08 LYON 7

11/08 PARIS 5

...

Je cherches, a travers un unique clique sur un bouton a coté de ma base de données à :

• Sélectionner l'intégralité de mes données (dont le nombre de lignes varies) mais j'ai déjà résolu ce problème
• Sommer les précipitations par ville (indépendamment de la date)
• Les ordonner dans l'ordre décroissant
• Enfin n'afficher dans une nouvelle feuille ("Top 100") que les 100 villes ayant le plus de précipitations , rankés selon les précipitations (décroissantes)

Comme je le précise plus haut, je n'ai réussi pour l'instant que la première étape. Je bloque sur la suite depuis 1 semaine ... Voici mon code so far :

Sub Bouton3_Cliquer()

Dim topvilles As Range

Dim DernLigne As Long, DernColonne As Integer

DernLigne = Range("A" & Rows.Count).End(xlUp).Row

DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

Set topvilles = Range(Cells(3, 1), Cells(DernLigne, DernColonne))

topvilles.Select

End Sub

Merci pour votre lecture

David

PS : il s'agit d'un projet portant sur le surf pour info

bonjour

pourquoi pas un simple TCD sans macro ?

joins un fichier exmple

Bonjour jmd,

Et bien, ce ranking ne constitue pas la finalité de mon fichier. Si j'arrive à industrialiser celui-ci, j'aimerais que les users n'ait que deux ou trois boutons a cliquer pour accéder aux données. Je veux justement faciliter l'usage par rapport aux nombreuses étapes du TCD.

J'ai volontairement réduit le volume de données dans mon exemple pour recevoir de l'aide plus facilement. Je pense être capable de pouvoir modifier le code pour l'adapter à mon fichier si celui-ci marche sur une petite quantité de données. Mais voici un fichier exemple en PJ

Cdt,

re

• mise sous forme de tableau (facultatif mais c'est mieux)
• TCD
• ajout de 2 segments pour des filtres faciles pour des novices d'Excel
• pas de VBA

Merci !

Je regarde ça immediatement