XL 2013 Ne pas Compter les doublons

Hasco

XLDnaute Barbatruc

Repose en paix

• 18 Décembre 2020

• #2

bonjour,

stf4-67 à dit:

Je cherche a comptabiliser dans une cellule indépendante le nombre de ville unique présentent dans les colonnes.

Cliquez pour agrandir...

C'est l'opposé du titre de votre demande.
Quoiqu'il en soit, sans un fichier exemple anonymisé, difficile de vous orienter.

cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Décembre 2020

• #3

Bonjour stf4-67, bienvenue sur XLD, Roblochon,

A priori c'est A1 ville de départ B1 Ville d'arrivée non ?

Donc exécutez cette macro qui traite les colonnes A et B :

VB:

Sub CompteVillesUniques()
Dim d As Object, c As Range
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
For Each c In ActiveSheet.UsedRange.Resize(, 2).Offset(1) '1ère et 2ème colonnes sans les en-têtes
    If c <> "" Then d(c.Value) = ""
Next
MsgBox d.Count & " villes uniques", , "Comptage"
End Sub

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Décembre 2020

• #4

S'il y a beaucoup de villes un tableau VBA (matrice) est nettement plus rapide :

VB:

Sub CompteVillesUniques()
Dim d As Object, tablo, e
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
tablo = ActiveSheet.UsedRange.Resize(, 2).Offset(1) 'matrice, plus rapide
For Each e In tablo
    If e <> "" Then d(e) = ""
Next
MsgBox d.Count & " villes uniques", , "Comptage"
End Sub

 

Vote positif 0 Vote négatif

S

stf4-67

XLDnaute Nouveau

• 18 Décembre 2020

• #5

Merci de vos réponses je vais les tester une a une prochainement et vous ferais un retour
merci !!

 

Vote positif 0 Vote négatif

S

stf4-67

XLDnaute Nouveau

• 19 Décembre 2020

• #6

Merci JOB75 , votre macro fonctionne a merveille ,2 petites questions si vous me le permettez
Comment définir d'une par une sélection A1:B50 plutôt que l'ensemble des colonnes ? et d'autre part comment faire pour afficher les villes dont la lettre comment par P dans la boite de dialogue avec le nombre total de ville ?
merci ::

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Décembre 2020

• #7

Bonjour stf4-67, le forum,

VB:

Sub Villes_Lettre()
Dim tablo, lettre$, d As Object, e
tablo = [A1:B50] 'à adapter
lettre = "P" 'majuscule, modifiable
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
For Each e In tablo
    If UCase(Left(e, 1)) = lettre Then d(e) = ""
Next
MsgBox IIf(d.Count, Join(d.keys, vbLf), "Aucune ville"), , "Villes lettre " & lettre & IIf(d.Count, " : " & d.Count, "")
End Sub

Bon week-end.

 

Vote positif 0 Vote négatif

Solution

S

stf4-67

XLDnaute Nouveau

• 19 Décembre 2020

• #8

Merci jobs75 vous avez répondu avec brio a mon besoin !!🙂🙂🙂
Je vous souhaite un Bon week-end et de bonne fetes de fin d'année.

 

Vote positif 0 Vote négatif