Doublon et couleur

BERRACHED said

XLDnaute Accro

• 7 Novembre 2008

• #2

Re : Doublon et couleur

Salut,Djibouti et Bienvenue

Voila une façon de marquer les doublon comparaison faite entre deux colonnes "A" et "B".

Code:

Option Explicit
Sub Test()
    ExtractDoublons Range("A1:B250")
End Sub
Sub ExtractDoublons(Plage As Range)
    Dim Cell As Range
    Dim Un As Collection
    Set Un = New Collection
    On Error Resume Next
    'Boucle sur la plage de cellule
    For Each Cell In Plage
        'Pour ne pas prendre en compte les cellules vides
        If Cell <> "" Then
            'Ajoute le contenu de la cellule dans la collection
            Un.Add Cell, CStr(Cell)
            'Si la procédure renvoie une erreur, cela signifie que l'élément
            'existe déjà dans la collection et donc qu'il s'agit d'un doublon.
            'Dans ce cas la macro colorie la cellule en vert.
            If Err <> 0 Then Cell.Interior.ColorIndex = 4
            'Efface toutes les valeurs de l'objet Err.
            Err.Clear
        End If
    Next Cell
    Set Un = Nothing
End Sub

Cordialement

 

Pièces jointes

• ExtractDoublon.xls

  25.5 KB · Affichages: 111

Vote positif 0 Vote négatif

D

djibouti

Guest

• 7 Novembre 2008

• #3

Re : Doublon et couleur

Quelle réactivité ! Et en plus ça marche => un grand merci !

Je me suis inscrit sur le site cet apm. Je découvre le site, vraiment bien !!!!

Bonne soirée !

/Djibouti

 

Vote positif 0 Vote négatif

D

djibouti

Guest

• 7 Novembre 2008

• #4

Re : Doublon et couleur

Nouvelle problématique :
Serait-il possiblede faire une macro avec le fonctionnement indiqué dans le fichier joint, plus compliqué avec les 2 colonnes dans 2 onglets séparés ?

Merci d'avance.

/Djibouti

 

Pièces jointes

• ExtractDoublon_bis.xls

  34 KB · Affichages: 85
• ExtractDoublon_bis.xls

  34 KB · Affichages: 90
• ExtractDoublon_bis.xls

  34 KB · Affichages: 100

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Novembre 2008

• #5

Re : Doublon et couleur

Bonjour à tous,

Concernant la première demande et sur la base du fichier de Said, pourquoi sortir un code alors qu'une MeFC suffirait....

Code:

=NB.SI($A$2:$A2;$B2)>0

Après avoir sélectionné la plage A2:B13

A+

 

Vote positif 0 Vote négatif

D

djibouti

Guest

• 8 Novembre 2008

• #6

Re : Doublon et couleur

Bonjour,

Juste une petite précision par rapport à mon besoin décrit dans le fichier que j'ai joint dans mon précédent message "ExtractionDoublon_bis.xlsé, car il est vrai que ce n'est peut être pas très explicite...
Cela revient en fait à faire une comparaison de 2 onglets en partant du principe que si on trouve un élément commun dans la colonne A de chaque onglet, on doit continuer à vérifier les éléments suivants (de la même ligne....) jusqu'au moment où la cae suivante est vide.
Remarque: le nombre de colonne des 2 onglets est identique

Le top serait de pouvoir affecter une couleur orange en cas de changement de nom, example (onglet 1 : chatain , onglet 2: chatain puis brun).

Je pense que c'est assez complexe à faire et n'étant pas expert en VBA, je fais appel à vos lumières...
N'hésitez à me demander de clarifier certains points .....

MErci d'avance et bon long WE à tous !!!

/Djibouti

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Novembre 2008

• #7

Re : Doublon et couleur

Bonjour djibouti
Salut said
Salut JC

Un essai

 

Pièces jointes

• ExtractDoublon_bis.xls

  50 KB · Affichages: 91
• ExtractDoublon_bis.xls

  50 KB · Affichages: 92
• ExtractDoublon_bis.xls

  50 KB · Affichages: 93

Vote positif 0 Vote négatif

D

djibouti

Guest

• 8 Novembre 2008

• #8

Re : Doublon et couleur

Merci PierreJean,

Excellent ! Merci pour votre aide.
Serait-til possible d'y ajouter la derniere condition qui est de mettre une couleur orange si changement de non, je veuw dire par là par exemple :
"brun "dans onglet1 devient "brun_option" ou "brunetblond" ou blond ou "BRUN" dans onglet2

Merci.


/Djibouti

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Novembre 2008

• #9

Re : Doublon et couleur

Re

A tester

 

Pièces jointes

• ExtractDoublon_bis.zip

  17 KB · Affichages: 62

Vote positif 0 Vote négatif

D

djibouti

Guest

• 8 Novembre 2008

• #10

Re : Doublon et couleur

J'ai essayé plusieurs cas de tests et cela a bien fonctionné, en tout cas comme je l'attendais.

Serait-il possible d'ajouter un bouton dans votre fichier afin
-> d'ouvrir un premier fichier excel, de copier l'onglet1 dans l'onglet 1 de votre fichier,
-> d'ouvrir un deuxième fichier excel, de copier l'onglet1 dans la l'onglet 2 de votre fichier,
-> et d'appliquer votre macro ci-dessous pour faire la comparaison

Après cela, j'arrête de vous embêter.
Dans tous les cas, je suis déjà très content de ce que vous avez pu générer, merci encore pour cela !!!

/Djibouti

 

Vote positif 0 Vote négatif

D

djibouti

Guest

• 9 Novembre 2008

• #11

Re : Doublon et couleur

Bonjour,

J'ai tenté de faire cela mais sans succès. En attente de votre aide.
Merci.

Bonne journée à tous !!!

/Djibouti

 

Vote positif 0 Vote négatif

D

djibouti

Guest

• 9 Novembre 2008

• #12

Re : Doublon et couleur

Bonsoir,

Petite relance sur ce problème.

Merci.

/Djibouti

 

Vote positif 0 Vote négatif

D

djibouti

Guest

• 9 Novembre 2008

• #13

Re : Doublon et couleur

Dernière tentative avant que je rende ma copie demain...

Merci.

/Djibouti

 

Vote positif 0 Vote négatif

D

djibouti

Guest

• 15 Novembre 2008

• #14

Re : Doublon et couleur

Bonsoir,

J'aurai besoin d'aide pour mettre en orange le mot frederic et frederic_toto dans mon fichier joint, de manière à pouvoir poursuivre la comparaison sur les autres critères, comment puis je faire cela ?

Pouvez-vous m'aider merci.

Bonne soirée.

/Djibouti

 

Pièces jointes

• Copy of ExtractDoublon_bis1.zip

  16 KB · Affichages: 49

Vote positif 0 Vote négatif

D

djibouti

Guest

• 16 Novembre 2008

• #15

Re : Doublon et couleur

Bonjour,

une petite relance matinale....

Bon week studieux !

/Djibouti

 

Vote positif 0 Vote négatif