Effacer couleur cellule vide

[cutbill1234]

Bonjour,

Suite au message que j'ai posté un peu plus bas (et dont je remercie encore Hervé pour sa rapidité) j'ai constaté que la macro me colore bien tous les 10 numéros sans doublons et que le reset couleur marche bien aussi, mais j'ai effacé le contenu de la cellule D32 qui avait été coloré et j'ai relancé ma macro, la cellule reste colorée, pourquoi ?

D'avance merci

Stéphane

 

[Hervé]

bonjour

Ta cellule d32 reste coloriée parce que le reset travaille sur la plage d9: jusqu'a la derniere cellule non vide, en l'occurence dans ton exemple d31, et donc d32 n'est plus affectée par le reset car vide.

remplace ton reset par :

dim c as range
For Each c In Range("D9😀500")
If c.Interior.ColorIndex = 6 Then
c.Interior.ColorIndex = xlColorIndexNone
End If
Next c

Ta plage de reset deviens donc d9:d500

Salut
Hervé

 

[cutbill1234]

Bonjour Hervé,

Merci ça marche très bien.

Stéphane