Bonjour
J'ai une macro qui me permet de supprimer et de refaire la mise en forme conditionnelle d'un fichier :
Mon fichier est amené à être modifier et j'aimerais remplacer toute la référence à des cellules par les noms des colonnes ou les plages nommées, si je remplace ("Y5:Y") par ("FRI") par exemple j'ai une erreur
Comment dois je modifier ce code pour ne plus avoir de référence à des cellules ?
Je joins un fichier test
Merci
J'ai une macro qui me permet de supprimer et de refaire la mise en forme conditionnelle d'un fichier :
Code:
With Range("Y5").Select
Set plage3 = Range("Y5:Y" & Range("Y65536").End(xlUp).Row)
plage3.FormatConditions.Add Type:=xlExpression, Formula1:="=SI($O5<>"""";$Y5>=$O5;et($E5<>"""";$Y5>=$M5) )"
plage3.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
plage3.FormatConditions(1).StopIfTrue = False
End With
Mon fichier est amené à être modifier et j'aimerais remplacer toute la référence à des cellules par les noms des colonnes ou les plages nommées, si je remplace ("Y5:Y") par ("FRI") par exemple j'ai une erreur
L'indice n'appartient pas à la selection
Comment dois je modifier ce code pour ne plus avoir de référence à des cellules ?
Je joins un fichier test
Merci
Pièces jointes
Dernière édition: