judoka0209
XLDnaute Occasionnel
j'ai créé un code mais je ne sais pas comment mettre la case rouge ecriture blanche
merci
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