bernardrustrel
XLDnaute Occasionnel
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 ??????????????
j'ai essayé en modifiant dim cel as range et il est apparu un msg "Type d'ragument Byref incompatible" je pense que "EACH" et RANGE sont incompatible
mais alors comment resoudre mon pb
Merci à vous
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 ??????????????
j'ai essayé en modifiant dim cel as range et il est apparu un msg "Type d'ragument Byref incompatible" je pense que "EACH" et RANGE sont incompatible
mais alors comment resoudre mon pb
Merci à vous