Doublons

[Richard]

bonjour

Je suis un peu nul en macro, et je cherche comment virer des doublons dans une Listbox ;

ma macro va chercher dans un ecran des contacts, qui ont un numero de contacts (CoNum), un attribut (CoType) (CO, BO, OT, ou SI) sachant que si un attribut est BO ou OT ou SI, il est aussi CO, mais un CO n'a pas forcément un autre attribut ; pour etre clair voici un exemple de ce que donne ma Listbox :

CO C0250099125
BO C0250036988
OT C0250089632
CO C0250089632
CO C0250054825
CO C0250069854
CO C0250054544
BO C0250054544
CO C0250021225


vous voyez donc que dans cette liste il y a 2 fois le meme contact C0250089632 et 2 fois le meme contact C0250054544 ;
j'aimerais dire à ma macro que si le meme numero de contact (CoNum) apparait 2 fois dans la liste, il vire celui qui a l'attribut CO
Qui peut m'aider??

merci d'avance
Richard

 

[Jean-Marie]

Bonjour Richard

Voici une solution, il y a du code, mais ce n'est pas du VBA mais du bon XL4,

Tu vas devoir faire plusieurs manip avant de lancer la macro.

1) Ouvre le fichier joint
2) Déplace la feuille dans ton classeur.

3) Sélectionne toute la plage de ton tableau, toute les colonnes qui devront être supprimées, quand il y aura un doublon
3) clique sur le menu Insertion/Nom/Définir ...
4) dans la boîte de dialogue "Définir un nom" dans le champ du haut tape ceci : ListeContact, attention très important l'orthographe
5) Sélectionne la zone contenant le CO, BO et OT, et la nommer ListeContactChamp1, dans la boîte de dialogue "Définir un nom"
6) Sélectionne la zone contenant Le CoNum et la nommer ListeContactChamp2, dans la boîte de dialogue "Définir un nom"

Exemple :
A2:B10 nommeée ListeContact,
A2:A10 nommée ListeContactChamp1
et B2:B10 nommée ListeContactChamp2

Clique sur le menu Outils/Macro/Macros...
Sélectionne le "RichardDoublons" et valide

Bonne journée

@+Jean-Marie