XL 2016 si cellule =

[judoka0209]

Bonjour je voudrais une petite aide sur ma formule je voudrais integrer ça
=si([Planning_EP.xlsm]ep2019!$C$6=6 alors

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("C14:NC14").ClearContents
For Each c In Range("C14:NC14")
If UCase(c.Offset(-9)) = "A" Then 'M,A,N
If IsNumeric(.Match(c.Offset(-12), jour, 0)) Then
i = .Match(c.Offset(-11), plage2)
If IsNumeric(i) Then
If UCase(plage1(i)) = "A" Then
c = 6 'equipe
c.Select
Selection.Interior.Color = 255
Selection.Font.ThemeColor = xlThemeColorDark1
End If
End If
End If
End If
Next
End With
sinon vide
merci

 

[Yvouille]

Salut Judoka,

Je te laisse voir ma réponse sur Excel-Pratique.

Cordialement.