Colorer les doublons d'une même colonne en VBA

[mimy]

Bonsoir à tous,

Grâce à l'aide d'entre vous, j'ai pu, à l'aide d'une macro, supprimer les doublons d'une même colonne mais ce que je voudrais avant tout c'est pouvoir colorer ces doublons.

Je voudrais créer en VBA une macro qui colore les doublons d'une même colonne.

J'ai mis en pièce jointe un exemple de fichier.

Je vous remercie beaucoup pour votre aide

 

[Regueiro]

Re : Colorer les doublons d'une même colonne en VBA

BONSOIR
Voilà en PJ ton fichier en retour avec 3 macros
A+

 

[Papou-net]

Re : Colorer les doublons d'une même colonne en VBA

Bonsoir mimy,

Ton fichier en retour avec une macro attachée à un bouton de ccommande.

Les explications sont sur la feuille de calcul.

Cordialement.

Oups, collision. Bonsoir Regueiro.

 

[mimy]

Re : Colorer les doublons d'une même colonne en VBA

Bonsoir Regueiro et merci pour ton aide

Comment faire pour juste colorer le second doublon comme dans mon exemple? (et non pas les deux même noms)

Merci à toi aussi Papou-net !!

 

[_Thierry]

Re : Colorer les doublons d'une même colonne en VBA

Bonsoir Le Fil,

Comment faire pour juste colorer le second doublon comme dans mon exemple? (et non pas les deux même noms)

En fait voici une autre approche en Macro évènementielle sur la Colonne "A"... Je trouve que pour traquer des Doublons c'est plus efficace en "Direct".

Elle réagira à "Marc" si tu essaies de le Taper en suite de liste... Tous les Marc seront Rouges, sauf le Premier et ainsi de suite...
La plus grosse problématique a été de trouver le moyen d'empêcher Excel de me mettre en Rouge les cellules suivantes après trois en rouge adjacentes... avec son Auto Fill Coloring... D'où le Application.ExtendList = False (remis à true dès qu'on quite la Colonne A)

Je pense que ca devrait pouvoir répondre aux besoins, enfin j'espère.

Bonne Soirée
@+Thierry

PS Mathieu & Matthieu sont bien deux personnes différentes, me macro aussi ne les rougit pas ! 😎

 

[mapomme]

Re : Colorer les doublons d'une même colonne en VBA

Bonsoir mimy, le fil, le forum,

Comment faire pour juste colorer le second doublon comme dans mon exemple? (et non pas les deux même noms)

Une approche (pour le fun) en VBA avec un tableau issu d'un calcul unique d'une formule matricielle (via Excel) en place et lieu du dico (ça doit rester néanmoins moins rapide qu'avec un dico).

Cliquez soit sur le bouton "Rechercher Doublons" soit sur le bouton '"Sans couleur de fond".

le code VBA dans Module1:

Sub ColorierDoublons()
Dim Maplage As Range, V As Variant, Formul As String, i As Long, decalage As Long
  With Sheets("Feuil1")
    Set Maplage = .Range("A2", .Range("A" & .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

Sub SansFond()
Dim Maplage As Range
  With Sheets("Feuil1")
    Set Maplage = .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
    Maplage.Interior.Color = xlColorIndexAutomatic
  End With
End Sub

 

[mapomme]

Re : Colorer les doublons d'une même colonne en VBA

Bonjour mimy, le fil, le forum,

version v2 -> comparaison avec une version 'dico' (# 10 000 lignes).

 

[laetitia90]

Re : Colorer les doublons d'une même colonne en VBA

bonjour tous🙂🙂🙂🙂🙂
une autre facon de l'ecrire parmi tant d'autres

Sub es()
 Dim m As Object, i As Long, z
 Set m = CreateObject("Scripting.Dictionary")
 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 z = Cells(i, 1)
 If Not m.Exists(z) Then m.Add z, z Else Cells(i, 1).Interior.ColorIndex = 3
 Next i
End Sub

 

[mimy]

Re : Colorer les doublons d'une même colonne en VBA

Bonjour à tous,

Merci Laetitia90 ça marche super!

Mapomme et _Thierry merci beaucoup!

Merci pour votre aide