Règles de mise en forme conditionelle toutes les feuilles
Bonjour à tous,
Voilà j'ai un tableau croisée dynamique lié à un cube olap. mais le problème sur ces TCD c'est qu'a chaque changement de plage (date par exemple), les règles de mise en forme se défont.
Je souhaite donc faire une macro pour que ma règle s'applique à toutes les feuilles via un clic bouton.
Avec l'enregistreur voilà ce que ça donne pour une feuille:
"
Columns("I:I").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ESTERREUR(I1)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.14996795556505
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=-1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.14996795556505
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
"
Mais quand je l'associe à " Sheets.Select" (en première ligne) pour l'impacter sur toutes les feuilles de mon classeur cela ne s'applique pas.
une idée?
Merci / muchas gracias
Salut !
Essaye :
For i = 1 to sheets.count
Sheets(i).Columns("I:I").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ESTERREUR(I1)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.14996795556505
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=-1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.14996795556505
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Next
Tiens moi au courant
Girodo
hello
A priori il bloque sur la 2eme ligne :
For i = 1 To Sheets.Count
Sheets(i).Columns("I:I").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ESTERREUR(I1)"
Merci pour ton aide !
Hum,
Et avec :
For i = 1 to sheets.count
Sheets(i).Select
Columns("I:I").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ESTERREUR(I1)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.14996795556505
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=-1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.14996795556505
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Next
C'est magique !!!
Merci Girodo !
Ronsy
PS : si cette marcro est utile à x ou y il faut placer le "next" avant le "end sub"
Nickel Ronsy
Par contre oui Le End Sub à la fin évidement ! Il faut que j'arrête l'alcool !
Bon WE sous le soleil