listes sans répétition et stat

[Yassine]

Bonjour,
j'ai actuellement un listing EXCEL avec environ 14000 lignes et six ou sept colonnes.
Je veux pouvoir copier la colonne 'lieu de naissance' sans répétition pour connaître les différents lieux de naissance de cette liste. Autrement dit, je voudrais copier le menu déroulant que j'ai pour cette colonne.
Ensuite, je veux savoir combien ai-je de natifs de chaque ville de naissance présente.
Pour résumer, je voudrais un tableau de deux colonnes avec autant de lignes qu'il y a de lieux de naissance; la première colonne listant les villes et la seconde donnant le nombre de personnes qui y sont nées.

 

[pierrejean]

bonjour yassine

en attendant les formulistes

en supposant les lieux de naissance en colonne A (sans en-tete)

avec cette macro tu auras en colonne C la liste des lieux sans doublons et dans la colonne D le nombre de fois ou elle est presente

Sub test()
Dim villes As Collection
Set villes = New Collection
Dim total As Integer
Dim ligne As Integer
Dim n As Integer
Dim m As Integer

ligne = 1
With Sheets('Feuil1')
For n = 1 To .Range('A65536').End(xlUp).Row
On Error Resume Next
villes.Add .Range('A' & n), CStr(.Range('A' & n))
On Error GoTo 0
Next n

For m = 1 To villes.Count
For n = 1 To .Range('A65536').End(xlUp).Row
If .Range('A' & n) = villes(m) Then total = total + 1
Next n

.Range('C' & ligne).Value = villes(m)
.Range('D' & ligne).Value = total
total = 0
ligne = ligne + 1
Next m
End With
End Sub