Exclure des noms....

[Clochard]

Bonjour le Forum,

Je comptabilise le nombre de fois que des noms apparaissent dans une colonne

J'aimerais savoir de votre part s'il est possible d'exclure certains noms en ajoutant quelque chose à ma formule..

Je joins un fichier pour une meilleure compréhension

Merci beaucoup d'y regarder et bonne journée

Clochard

 

[Modeste geedee]

Re : Exclure des noms....

Bonsour®

2 façon possibles :
- TCD avec filtre
- formule avec colonne complémentaire

 

[Clochard]

Re : Exclure des noms....

Merci beaucoup Modeste geedee et bonjour le Forum

Merci beaucoup pour les 2 suggestions....

J'ai une très bonne piste pour terminer mon fichier...

Merci beaucoup et bonne journée

Clochard

 

[R@chid]

Re : Exclure des noms....

Bonjour @ tous,
Voir PJ


@ + +

 

[Clochard]

Re : Exclure des noms....

Bonjour R@chid ainsi qu'au Forum.

Elle est Super ta formule.. le seul hic... c'est que dans la colonne D de mon fichier... il y a environ 245 noms et la liste s'allonge continuellement... peut-être jusqu'à 500 noms

Je constate qu'il ne faut pas déborder du nombre de noms dans la colonne D... d'après toi.... peut-on y remédier???

Merci beaucoup

Clochard

 

[R@chid]

Re : Exclure des noms....

Re,
voir si cela te convient


@ + +

 

[Clochard]

Re : Exclure des noms....

Bonjour le Forum,

Merci beaucoup R@chid...

Tu es... définitivement.... mon idole.... (blague)

Clochard

 

[CISCO]

Re : Exclure des noms....

Bonjour à tous, bonjour R@chid, Modeste geedee

Une variante, à partir du fichier de R@chid, en pièce jointe.

@ plus

 

[Clochard]

Re : Exclure des noms....

Bonjour le Forum, Cisco, Modeste Geedee et R@chid


Merci Cisco,

Mais dans les deux cas s'il n'y a rien d'inscrit dans la colonne de exclus la formule ne fonctionne pas...

À moins que ce soit moi qui se goure au max....

Merci encore d'y regarder (j'ai modifié le fichier joint afin d'approcher le plus possible de l'original)

Clochard

 

[CISCO]

Re : Exclure des noms....

Bonsoir

Comme ça, ça fonctionne même si il ni y a rien dans la liste des exclus.

@ plus

P.S : J'ai fait avec l'ancien fichier.

 

[Clochard]

Re : Exclure des noms....

Merci beaucoup....

Clochard

 

[job75]

Re : Exclure des noms....

Bonjour Clochard, Modeste geedee, R@chid, CISCO,

Une solution VBA, bien utile s'il y a beaucoup de noms :

Sub Liste()
Dim source As Range, exclu As Range, dest As Range, t1, t2
Dim d1 As Object, d2 As Object, t, rest(), a, b, i&
'---initialisation---
Set source = [D6]: Set exclu = [J6]: Set dest = [G6] 'à adapter
t1 = Range(exclu, Cells(Rows.Count, exclu.Column).End(xlUp)(exclu.Row + 1))
t2 = Range(source, Cells(Rows.Count, source.Column).End(xlUp)(source.Row + 1))
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
'---liste des exclus sans doublons (comprend le texte vide)---
For Each t In t1
  d1(t) = ""
Next
'---liste sans exclus et sans doublons---
For Each t In t2
  If Not d1.exists(t) Then d2(t) = d2(t) + 1
Next
If d2.Count Then
  '---transposition---
  ReDim rest(d2.Count - 1, 1) 'base 0
  a = d2.items: b = d2.keys
  For i = 0 To UBound(a)
    rest(i, 0) = a(i): rest(i, 1) = b(i)
  Next
  '---restitution et tri---
  dest.Resize(i, 2) = rest
  dest.Resize(i, 2).Sort dest(, 2), xlAscending, Header:=xlNo
End If
dest.Offset(i).Resize(Rows.Count - dest.Row - i + 1, 2).ClearContents
End Sub

Fichier joint.

A+

 

[job75]

Re : Exclure des noms....

Re,

Rappel : la solution précédente respecte la casse.

Si on veut l'ignorer initialiser avec :

Set d1 = CreateObject("Scripting.Dictionary"): d1.CompareMode = vbTextCompare
Set d2 = CreateObject("Scripting.Dictionary"): d2.CompareMode = vbTextCompare

A+

 

[Clochard]

Re : Exclure des noms....

Bonjour Job75,

Merci pour ton aide...

J'ai tenté de modifier en fonction des colonnes de mon fichier mais il y a une erreur et malheureusement je n'ai pas la connaissances nécessaires pour la corriger...


Clochard

 

[job75]

Re : Exclure des noms....

Re Clochard,

Deux erreurs d'adaptation, faut faire attention :

1) il manque un crochet [ devant W6...

2) 2ème boucle => If Not Q1.exists(t) Then Q2(t) = Q2(t) + 1

A+