Discussion :

[FIMO7]

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 !

Merci,

FIMO7 ->

.

[doncamelo]

Bonsoir FIMO7,

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

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;"")

[Didier Gonard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[doncamelo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

LaCellule.Interior.Color = vbGreen

[Didier Gonard]

@ 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

[FIMO7]

Grand merci pour votre aide !