C
cutbill1234
Guest
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
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