Bonjour,
J’ai eu la bonne idée d’écrire mes macros sous Excel 2003 mais au final ces macros doivent pouvoir fonctionner sous Excel 2000.
Cela pose un certain nombre de problème dont un que je n’arrive pas à résoudre.
Je fais une mise en forme conditionnelle :
Mais celle ci n’apparaît pas dans la feuille, pour qu’elle fonctionne il faut que j’aille dans la barre des menus puis Format > Mise en Forme Conditionnelle et que je clique sur OK et cette « simple » manip’ fait fonctionner la mise en forme.
Comment puis je faire pour la feuille prenne directement en compte cette Mise en Forme Conditionnelle ?
Merci
Maivas
J’ai eu la bonne idée d’écrire mes macros sous Excel 2003 mais au final ces macros doivent pouvoir fonctionner sous Excel 2000.
Cela pose un certain nombre de problème dont un que je n’arrive pas à résoudre.
Je fais une mise en forme conditionnelle :
Code:
Range("B4:AG300,AI4:AN300").Select
Range("AI4").Activate
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SI($B4<>"""",ET(($D4<>$D3),MOD(LIGNE(),2)=1))"
Selection.FormatConditions(1).Interior.ColorIndex = 15
With Selection.FormatConditions(1).Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SI($B4<>"""",MOD(LIGNE(),2)=1)"
Selection.FormatConditions(2).Interior.ColorIndex = 15
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET($D4<>$D3)"
With Selection.FormatConditions(3).Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("B4").Select
Mais celle ci n’apparaît pas dans la feuille, pour qu’elle fonctionne il faut que j’aille dans la barre des menus puis Format > Mise en Forme Conditionnelle et que je clique sur OK et cette « simple » manip’ fait fonctionner la mise en forme.
Comment puis je faire pour la feuille prenne directement en compte cette Mise en Forme Conditionnelle ?
Merci
Maivas