ecriture blanche fond rouge

[judoka0209]

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

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

 

[Modeste geedee]

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

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

la case x ???

C.Offset(-x).Font.Color=vbWhite
C.Offcet(-x).Interior.Color=vbRed

 

[judoka0209]

ca me met une erreur je dois le mettre ou exactememnt

 

[Modeste geedee]

ca me met une erreur je dois le mettre ou exactememnt

au minimum à mettre dans la boucle for each
mais comme tu ne précises pas la cellule à colorer ??
je te laisse le choix de la variable x