MFC par macro sur valeurs en double dans 2 colonnes

Bonjour à tous,

Je voudrai faire une macro sous EXCEL 2010 qui me compare 2 colonnes (A et B), puis si une valeur apparait dans les 2 colonnes donc en doublon et quelque soit la ligne, les cases des valeurs seront coloriés en rouge par exemple.

Si quelqu'un a une idée, elle me sera d'un grand secours ! :ccool:

Merci,

FIMO7 -> :bug:

.

Bonsoir FIMO7,

Sans vba, voici un lien qui pourrait t'aider après adaptation:

Citation:

---

http://silkyroad.developpez.com/Excel/FonctionsExcel/

Retrouver les données de la plage A1:A10 qui sont aussi dans la plage B1:B10.
Saisir la formule en C1 par exemple, puis l'étirer vers le bas.
=SI(NB.SI($B$1:$B$10;A1)>0;A1;"")

---

Bonjour et bienvenue sur DVP,

Sous Excel 2010, c’est natif…

Tu sélectionnes la plage concernée, puis onglet Accueil, groupe Styles, MFC, Règles de mise en surbrillance des cellules, Valeurs en double… reste à choisir la couleur ;)
l'enregistreur de macro est OK :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Macro1() ' ' Macro1 Macro   Selection.FormatConditions.AddUniqueValues Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority Selection.FormatConditions(1).DupeUnique = xlDuplicate With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub

---

on peut faire plus complexe en creusant les options...

cordialement,

Didier

Bonjour FIMO7, Ormonth

En considérant que les données se situent dans la plage A2:B14

On peut aussi utiliser cette petite routine:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub RechercheDoublons()   Dim LaCellule As Range Dim LaPlage As Range Set LaPlage = Range("A2:C14")   For Each LaCellule In LaPlage If Application.WorksheetFunction.CountIf(LaPlage, LaCellule) > 1 then LaCellule.Interior.Color = vbGreen End If Next LaCellule   End Sub

---

La mise en évidence des doublons reste à adapter :

Code:

---

LaCellule.Interior.Color = vbGreen

---

@ doncamelo,

Le code que j'ai inclus, comme précisé, vient direct de l'enregistreur pour indiquer à FIMO7 la piste à suivre pour connaître les mots clefs ;), il en a tout les défauts sinon ;)

reste que :

• Les possesseurs de versions 2010 ont tout intérêt à découvrir le modèle objet de 2010 (2007 idem) et apprendre à en utiliser les évolutions.
  
• Il est toujours conseillé d'éviter des parcourir des collections quand on peut l'éviter car c'est très chronophage (bon sur "A2:C14", faut un bon timer... mais autant prendre le bon pli) .

cordialement,

Didier

Grand merci pour votre aide !