Discussion :

[pepinojo]

Bonjour,

Je souhaiterai modifier le code VBA ci-dessous afin de faire afficher les doublons sur le deuxième feuillet :

Sub ColorierDoublons()
Dim Maplage As Range, V As Variant, Formul As String, i As Long, decalage As Long
With Sheets("Feuil1")
Set Maplage = .Range("AT3", .Range("AT" & .Rows.Count).End(xlUp))
decalage = Maplage.Row - 1
'La formule matricielle évaluée est: =EQUIV(Maplage;Maplage;0)<>(LIGNE(Maplage)-decalage)
Formul = "=MATCH(" & Maplage.Address(, , , True) & "," & Maplage.Address(, , , True) _
& ",0)<>(ROW(" & Maplage.Address(, , , True) & ")-" & decalage & ")"
V = Evaluate(Formul)
For i = 1 To UBound(V, 1)
If Not IsError(V(i, 1)) Then Maplage(i, 1).Interior.Color = IIf(V(i, 1), RGB(210, 255, 0), xlColorIndexAutomatic)
Next i
End With
End Sub

Merci pour votre aide.
Cordialement.

[Philippe Tulliez]

Bonjour,
Qu'entends-tu par afficher les doublons dans une autre feuille ?

Est-ce la mise en forme des mêmes données se trouvant sur une autre feuille ?
Dans ce cas là, tu peux par exemple ajouter la ligne ci-dessous dans la zone des déclarations de variables

Code :

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

Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("Feuil2")

Ensuite tu ajoutes la variable objet sht à ta ligne initiale

Code :

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

     If Not IsError(V(i, 1)) Then sht.Range(Maplage(i, 1).Address).Interior.Color = IIf(V(i, 1), RGB(210, 255, 0), xlColorIndexAutomatic)

Est-ce une exportation des données vers une autre feuille ?
Si c'est le cas, je te conseille l'utilisation du filtre avancé d'excel. Voir tutoriel à ce sujet Les filtres avancés ou élaborés dans Excel

A titre purement indicatif, lorsque tu n'utilises pas des arguments facultatifs, au lieu de placer une suite de séparateurs d'arguments comme ci-dessous

Code :

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

Maplage.Address(, , , True)

tu peux utiliser les arguments nommés, comme l'exemple ci-dessous

Code :

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

Maplage.Address(External:=True)

[pepinojo]

Bonsoir Philippe,

Super, merci pour ton aide.

Cordialement.
Pascal