Mettre mon chiffre et ma case en noir

Bonjour

si je coche un chiffre de 1 a 36

il me mettra cherchera ce chiffre il se répète 5 fois e

t me les mettra en noir ainsi que la case

Salut

une macro évènementielle (selection cellule) dans le module de la feuille(clic droit sur le nom de la feuille puis Visualiser le code)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim C As Range
    'si hors plage, rien !
    If Target.Count > 1 Or Intersect(Target, Range("A2,B2:S3")) Is Nothing Then Exit Sub
    'si A2 enlève le fond noir
    If Target.Address = "$A$2" Then
        For Each C In Range("B6:R19").SpecialCells(xlCellTypeConstants)
            C.Interior.ColorIndex = xlNone
        Next
    End If
    'recherche et noircit si trouvé dans la nouvelle plage
    For Each C In Range("B6:R19").SpecialCells(xlCellTypeConstants)
        C.Interior.ColorIndex = xlNone
        If C = Target Then C.Interior.Color = 0
    Next
End Sub

(ne s'occupe pas de la couleur de la police qui l'est déjà en noir)

ouahhhhhh c'est assez compliquer pour moi

vous pouver me poser cette formule dans la feuille ce serait gentil

encore merci pour votre aide

-- 03 Mai 2011, 13:11 --

aidez moi merci pour votre aide

-- 03 Mai 2011, 14:24 --

please aidez moi merci