Eviter doublons recherche
Bonjour,
J'aimerais pouvoir faire remonter des informations de ma base mais éviter les doublons (normaux ici)
En effet j'aimerais faire remonter de mon tableau T_Investigators tous les prénoms et nom en colonne C & D ayant pour ID "1" en colonne A.
ceci étant dit certaines personnes peuvent avoir participé a plusieurs projets différents. aussi comment procéder afin que leur donnée ne remonte qu'une seule fois?
merci par avance pour votre aide
@+
Bonjour Darkangel,
As-tu fais une recherche sur le sujet ? Je n'en ai pas trop l'impression, pourtant il y a beaucoup de sujet qui traite de la même problématique.
Bonjour,
j'ai publié ce matin mais me suis renseigné entre temps et il faut avouer que plusieurs topics portent sur ce meme sujet
Cependant la plupart concerne la suppression des doublons ou encore leur identification, je souhaiterais dans mon cas ne pas les prendre en compte et n'ai rien vu à ce sujet
Re,
C'est pour ça qu'il faut se renseigner avant de faire topics..
Regarde ce lien, applique le et tu pourras avoir ta liste sans doublon très aisément... Il ne te reste qu'à ajouter une condition pour filtrer avec l'ID "1".
J'ai regardé ton fichier, dans 'Formules' -> 'Gestionnaire de noms' : je ne trouve aucun tableau du nom de 'Tab_Investigator'. Es-tu sûr de ton que tu l'as nommé ainsi ?Chez moi ton tableau se nomme 'Links14'
merci je vais regarde le lien founi
pour le reste j'ai supprimé entre temps car cela semble venir du fait que j'appelle ce tableau depuis une feuille dans vba et non depuis un usf
car ce code fonctionne si dans formulaire.
Ok ça marche, dis moi si tu arrives à t'en sortir avec le lien que je t'ai fourni.
Pour récupérer la liste sans doublon du dico, il tee suffira d'utiliser : mondico.keys
j'ai toujours le droit à une erreur 1004
Public Sub Listing_PI()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Worksheets("Investigators").Range("A2", [D65000].End(xlUp))
mondico(c.Value) = ""
Next c
[C2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
End Submaisj'ai réussi partiellement via
With [Links14].ListObject
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("A2", [D65000].End(xlUp))
mondico(c.Value) = ""
Next c
[C2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
End Withmais comment réafficher cela dans ma listbox?
Je ne peux pas t'aider plus pour l'erreur sans fichier, désolé
Pour mettre cela dans ta ListBox :
ListBox1.List = mondico.keysBonne journée,
Baboutz