VBA macro coloriage doublons
RésoluLe Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
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
- VBA macro coloriage doublons
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Doublons photos - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Coloriage 2 - Télécharger - Études & Formations
7 réponses
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... !
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
C'est bien mais le lien manque (celui que vous avez reçu de Cijoint :
Voir aussi la proposition poste 3...!