ecriture blanche fond rouge

judoka0209 à dit:

j'ai créé un code mais je ne sais pas comment mettre la case rouge ecriture blanche
merci

VB:

Sub ep2019_33100()
'equipe A
Dim plage1 As Range, plage2 As Range, jour, c As Range, j As Variant
Set plage1 = [[Planning_ep.xlsm]ep2019!F7:BE7]
Set plage2 = [[Planning_ep.xlsm]ep2019!F2:BE2] 'ligne 2 et non pas 5
jour = Array("jeu") 'liste à adapter
With Application
    .ScreenUpdating = False
    Range("C13:NC13").ClearContents
    For Each c In Range("C13:NC13")
        If UCase(c.Offset(-8)) = "A" Then 'M,A,N
            If IsNumeric(.Match(c.Offset(-11), jour, 0)) Then
                i = .Match(c.Offset(-10), plage2)
                If IsNumeric(i) Then If UCase(plage1(i)) = "A" Then c = 6 'equipe
            End If
        End If
    Next
End With

Cliquez pour agrandir...

judoka0209 à dit:

ca me met une erreur je dois le mettre ou exactememnt

Cliquez pour agrandir...