VBA macro coloriage doublons Résolu/Fermé

Question

Bonjour,

La macro ci-dessous colorie tous les doublons de la  colonne C.

Je cherche que le coloriage se fasse uniquement à partir de la cellule active.

exemple:

la cellule active est C18 la première cellule vide C25 seuls les doublons de la plage C18/C24 seront coloriés. Le lendemain la cellule active sera C25 et la première cellule vide C32 seuls les doublons C25/C31 seront coloriés. En bref la colonne est incrémentée chaque jour.

Sub doublons()
 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, 3)
 If Not m.Exists(z) Then m.Add z, z Else Cells(i, 3).Interior.ColorIndex = 3
 Next i
End Sub

Merci de votre aide.

Windows / Chrome 116.0.0.0

Le Pingou · Answer

Bonjour,

J'ai un doute sur votre code, recherche première cellule vide en colonne A:A et ensuite les doublon sur colonne C:C ..!

Merci de préciser avec quelques données sur un fichier... !

neofithe · Answer

Bonjour effectivement c'est pas cohérent mais ça ne pose pas de problème car par exemple si C24 est vide A24 le sera aussi invariablement.

Pas propre mais on fait avec les moyens du bord...

Merci pour votre aide Le Pingou

Salutations

Le Pingou · Answer

Bonjour,

Se serait profitable pour vous de mettre un fichier avec quelques données sur Accueil de Cjoint.com et poster le lien!

Cela me permettrait de vous soumettre une proposition!

Essayez ceci:

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

neofithe · Answer

J'ai transmis un fichier "classeur doublons"

Merci

Le Pingou · Answer

Bonjour,

C'est bien mais le lien manque (celui que vous avez reçu de Cijoint :

Voir aussi la proposition poste 3...!

neofithe · Answer

Cher Le Pingou

Votre macro ci-dessus fonctionne parfaitement.

Je vous remercie du temps consacrer.

Meilleures salutations

neofithe

Le Pingou · Answer

Merci, pensez de marquer comme résolu si c'est le cas.

VBA macro coloriage doublons

7 réponses

Discussions similaires