férié pbleme cellule

[ALCAZAR]

comment remplacer la ligne
Adr$ = Selection.Range("A1").Address(0, 0)
pour que la fonction ferié fonctionne pour n'importe quelle cellule merci
cette foction change de couleur si date ferié mais uniquement en a1
ce programme n'est pas de moi
merci pour votre aide

'Alain Vallon, mpfe, a largement contribué à ce travail.
Adr$ = Selection.Range("A1").Address(0, 0)
'Adr$ = Selection.cellule.Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "=DATE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "=DATE(ANNEE(" & Adr & ");5;1);" & _
Adr & "=DATE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "=DATE(ANNEE(" & Adr & ");7;14);" & _
Adr & "=DATE(ANNEE(" & Adr & ");8;15);" & _
Adr & "=DATE(ANNEE(" & Adr & ");11;1);" & _
Adr & "=DATE(ANNEE(" & Adr & ");11;11);" & _
Adr & "=DATE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=JOURSEM(" & Adr & ";2)>5"
.FormatConditions(2).Interior.ColorIndex = 27
End With
End Sub 'fs

 

[G'Claire]

Alcazar

Je ne suis pas une bête en VBA, mais ce que j'ai appris et je le connais par-coeur.

C'est que les personnes (Nous) qui posons des questions, et forcément attendons des réponses, et les personnes (Eux, c'est a dire les les habitués ) qui répondent a nos questions, attendent forcément un minimum.

Bonjour, s'il vous plait, et merci

C'est la seul solution pour le moment que je peu te donner car mon niveau VBA et trés faible.

Et là je pense que tu vas avoir moultes réponses a ton problème.

G'Claire

 

[Ti]

De plus Alcazar, ce n'est pas en créant un deuxième fil, après t'être fait éjecté une première fois <http://www.excel-downloads.com/html/French/forum/messages/1_31427_31427.htm> que tu auras plus de réponses, en reprenant les mêmes méthodes qu'au premier.