Inserer un reset

[cutbill1234]

Bonjour à tous

Voici la macro qui me pose problème :

Sub ciblerSansDoublons_OptionFrequence()
Dim Cell As Range
Dim Collect As New Collection
Dim i As Byte
i = 9

For Each Cell In Range("D1" & Range("D65536").End(xlUp).Row)
On Error Resume Next
Collect.Add "maBase", CStr(Cell)

If Not Err.Number = 457 Then
i = i + 1
If i = 10 Then
Cell.Interior.ColorIndex = 6
i = 0
End If
On Error GoTo 0
End If

Next
End Sub

J'aurais besoin que lorsque je click sur le bouton, que la macro fasse d'abord un reset couleur des cellules qu'elle avait déjà coloré la fois d'avant (ou de la colonne toute entiere).

D'avance merci

Stéphane

 

[Hervé]

bonjour

Un truc dans ce style à mettre en début de macro :

For Each C In Range("D1" & Range("D65536").End(xlUp).Row)
If c.Interior.ColorIndex = 6 Then
c.Interior.ColorIndex = xlColorIndexNone
end if
next c

salut
Hervé

 

[cutbill1234]

Bonjour Hervé,

C'est parfait, c'est ce que je voulais.

Merci beaucoup

Stéphane