Coleur sur zone de date

[bernardrustrel]

Re bonjour
décidemment aujourdh'ui je n'arrive à rien
Voici lon pb
la fonction suivnate me prouve que le jour tester est un RTT
Private Function rtt(Jour As Date) As Boolean
'met à VRAI la fonction si le jour recherché fait partie de la liste "RTT"
Dim C As Variant
For Each C In Range("RTT")

If C <> "" Then
If C = Jour Then
rtt = True
Exit Function
End If
End If
Next C
End Function

J'aimerais pouvoir dans un calendrier "Cal" mettre ces jours de RTT dans une couleur definie par colorindex

j'essaie avec la procédure ci dessous mais là encore rien de bon, F4 étant ma feuille de travail

sub CoulRTT()
dim cel as date
F4.Activate
For Each Cel In F4.Range("Cal")
If rtt(cel)= true Then
Cel.Interior.ColorIndex = 3
Cel.Offset(rowOffset:=0, columnOffset:=1).Interior.ColorIndex = 3


End If
Next Cel
End sub

Je n'arrive à résoudre le pb de compatibilté entre le format date de la fonction rtt et EACH ??????????????

Merci à vous

 

[bernardrustrel]

Re : Coleur sur zone de date

merci de votre aide mais désolé cela ne fonctionne pas il apparait un msg:
"Type d'argument Byref incompatible" en pointant cel dans la procédure????

merci encore