Exclure des noms....

Modeste geedee

XLDnaute Barbatruc

• 7 Mai 2015

• #2

Re : Exclure des noms....

Bonsour®

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

 

Pièces jointes

• Capture.JPG

  75 KB · Affichages: 30
• Capture.JPG

  75 KB · Affichages: 29
• exclure-des-noms-exclure.xls

  58 KB · Affichages: 28

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 7 Mai 2015

• #3

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

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 7 Mai 2015

• #4

Re : Exclure des noms....

Bonjour @ tous,
Voir PJ


@ + +

 

Pièces jointes

• Clochard_2.xlsx

  12.4 KB · Affichages: 29

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 7 Mai 2015

• #5

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

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 7 Mai 2015

• #6

Re : Exclure des noms....

Re,
voir si cela te convient


@ + +

 

Pièces jointes

• Clochard_3.xlsx

  12.1 KB · Affichages: 41

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 8 Mai 2015

• #7

Re : Exclure des noms....

Bonjour le Forum,

Merci beaucoup R@chid...

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

Clochard

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 8 Mai 2015

• #8

Re : Exclure des noms....

Bonjour à tous, bonjour R@chid, Modeste geedee

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

@ plus

 

Pièces jointes

• Clochard_4.xlsx

  11.9 KB · Affichages: 40
• Clochard_4.xlsx

  11.9 KB · Affichages: 37
• Clochard_4.xlsx

  11.9 KB · Affichages: 33

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 8 Mai 2015

• #9

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

 

Pièces jointes

• Exclure-des-noms-clochard 4.xlsx

  38.6 KB · Affichages: 25

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 8 Mai 2015

• #10

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.

 

Pièces jointes

• Clochard_4.xlsx

  12 KB · Affichages: 30
• Clochard_4.xlsx

  12 KB · Affichages: 34
• Clochard_4.xlsx

  12 KB · Affichages: 34

Dernière édition: 8 Mai 2015

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 9 Mai 2015

• #11

Re : Exclure des noms....

Merci beaucoup....

Clochard

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Mai 2015

• #12

Re : Exclure des noms....

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

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

Code:

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+

 

Pièces jointes

• Clochard(1).xlsm

  22.4 KB · Affichages: 24

Dernière édition: 9 Mai 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Mai 2015

• #13

Re : Exclure des noms....

Re,

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

Si on veut l'ignorer initialiser avec :

Code:

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

A+

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 9 Mai 2015

• #14

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

 

Pièces jointes

• VAB-exclure-des-noms-clochard-1-.xlsm

  19.3 KB · Affichages: 27
• VAB-exclure-des-noms-clochard-1-.xlsm

  19.3 KB · Affichages: 35
• VAB-exclure-des-noms-clochard-1-.xlsm

  19.3 KB · Affichages: 30

Dernière édition: 9 Mai 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Mai 2015

• #15

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+

 

Vote positif 0 Vote négatif