Bonjour la communauté,
je suis en train de bloquer sur une macro >.< j'aurais besoin d'un petit coup de pouce pour arriver à mes fins
Voici mon petit problème j'ai trouvé une macro me permettant de colorier les valeurs des cellules en double.
(et adapté celle-ci à mon fichier)
Problème : elle colorie aussi les cellules vide ce que j'aimerais évité.
pour plus de compréhension voici le code :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
'doublon sur e/s physique
Range("Q10", [Q2000].End(xlUp)).Interior.ColorIndex = xlNone
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("Q10", [Q2000].End(xlUp))
mondico.Item(c.Value) = mondico.Item(c.Value) + 1
Next c
For Each c In Range("Q10", [Q2000].End(xlUp))
If mondico.Item(c.Value) > 1 Then c.Interior.Color = RGB(230, 185, 184)
Next c
Application.ScreenUpdating = True
End Sub
J'ai rajouté se morceau de code pour tenté de palier au problème :
For Each c In Range("Q10", [Q2000].End(xlUp))
If IsEmpty(Cel) Then c.Interior.ColorIndex = xlNone
Next c
c'est sans succès j'ai beau modifier et le tourné dans tout les sens je m'en sors pas quelqu'un pourrait-il m'aider ?
je suis en train de bloquer sur une macro >.< j'aurais besoin d'un petit coup de pouce pour arriver à mes fins
Voici mon petit problème j'ai trouvé une macro me permettant de colorier les valeurs des cellules en double.
(et adapté celle-ci à mon fichier)
Problème : elle colorie aussi les cellules vide ce que j'aimerais évité.
pour plus de compréhension voici le code :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
'doublon sur e/s physique
Range("Q10", [Q2000].End(xlUp)).Interior.ColorIndex = xlNone
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("Q10", [Q2000].End(xlUp))
mondico.Item(c.Value) = mondico.Item(c.Value) + 1
Next c
For Each c In Range("Q10", [Q2000].End(xlUp))
If mondico.Item(c.Value) > 1 Then c.Interior.Color = RGB(230, 185, 184)
Next c
Application.ScreenUpdating = True
End Sub
J'ai rajouté se morceau de code pour tenté de palier au problème :
For Each c In Range("Q10", [Q2000].End(xlUp))
If IsEmpty(Cel) Then c.Interior.ColorIndex = xlNone
Next c
c'est sans succès j'ai beau modifier et le tourné dans tout les sens je m'en sors pas quelqu'un pourrait-il m'aider ?