Transformer une MFC à plus de 3 arguments en code VBA

[JOCIL]

Bonjour,

Certes il y a une multitude de posts qui traitent des mises en forme conditionnelles, mais justement il y a en a trop et avec des titres trop peu explicites pour pouvoir identifier le post qui correspond à ma recherche et là, au bout d'une heure, je capitule....

Je souhaiterais transformer cette MFC que j'applique via une macro (et qui ne fonctionne pas parce que justement j'ai plus de 3 arguments) en macro de mise en forme.

Range("G9:G" & Range("F65535").End(xlUp).Row).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(NB.SI(ferie;G$9);JOURSEM(G$9;2)=7)"
Selection.FormatConditions(1).Interior.ColorIndex = 6
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(JOURSEM(G$9;2)=6;G$10<>""5"")"
Selection.FormatConditions(2).Interior.ColorIndex = 35
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(JOURSEM(G$9;2)=6;G$10=""5"")"
Selection.FormatConditions(3).Interior.ColorIndex = 46
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(OU(G$9=$M$2-1;G$9=$M$2+1;G$9=$M$3-1;G$9=$M$3+1;G$9=$M$4-1;G$9=$M$4+1))*(OU(JOURSEM(G$9;2)=1;JOURSEM(G$9;2)=5))"
Selection.FormatConditions(4).Interior.ColorIndex = 39

Merci pour votre aide

 

[TempusFugit]

Re : Transformer une MFC à plus de 3 arguments en code VBA

Bonjour



Tu peux joindre un fichier exemple.

Comme cela on n'aura pas à le recréer pour faire les tests de nos propositions à venir.

 

[JOCIL]

Re : Transformer une MFC à plus de 3 arguments en code VBA

OK, ça sera plus clair.

 

[TempusFugit]

Re : Transformer une MFC à plus de 3 arguments en code VBA

Un conseil:
Tu devrais plutot joindre un fichier sans données confidentielles.
(Il y des noms et des prénoms dans ton fichier)


Post-scriptum: il y a plusieurs modules VBA vides dans ton fichier, tu devrais les supprimer, cela réduira la taille de ton fichier.

 

[JOCIL]

Re : Transformer une MFC à plus de 3 arguments en code VBA

Oups, merci. J'avais pourtant mis le fichier à blanc. Une erreur de selection du fichier. Merci de ne pas renvoyer le fichier sur le post. Je vais en recréer un autre.

 

[JOCIL]

Re : Transformer une MFC à plus de 3 arguments en code VBA

Nouveau fichier