Mise en forme conditionnelle via VBA

[vdh_xavier]

Bonjour à tous,

Je souhaite faire une mise en forme conditionnelle par VBA et j'y parviens en partie, mais lorsque je veux changer le couleur de police, la macro plante.

En fait tout fonctionne, sauf lorsque j'ajoute la partie With .Font.

Merci d'avance pour votre aide.

Voici mon code :

Sub Mises_en_formes_conditionnelles_2()
Dim DLig As Long

With Sheets("Tableau de bord")
ActiveSheet.Unprotect ("xavier")
DLig = .Range("E" & Rows.Count).End(xlUp).Row

With .Range("G5:G" & DLig)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=ET(G5<>"""";G5<AUJOURDHUI())"
With .FormatConditions(.FormatConditions.Count)
.StopIfTrue = False
.SetFirstPriority
With .Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(102, 51, 0)
.TintAndShade = 0
With .Font
.ColorIndex = RGB(255, 255, 255)
End With
End With
End With
End With
End With
End Sub

 

[Dranreb]

Re : Mise en forme conditionnelle via VBA

Bonjour.
Normal
ColorIndex ne peut aller que jusqu'à 56: ce sont les couleur prédéfinies or RGB rend un Long de valeur beaucoup plus grande, il est plutôt fait pour un Color, pas pour un ColorIndex.

 

[vdh_xavier]

Re : Mise en forme conditionnelle via VBA

Bonjour Dranreb et merci pour cette réponse.

Malheureusement, lorsque je mets la même code avec ".Color = RGB(255, 255, 255), la macro plante aussi.

Y a-t-il autre chose à mettre pour les FONT, du style ".PatternColorIndex" ou ".TintAndShade" comme pour les INTERIOR?

Parce que sans la partie

With .Font
.ColorIndex = RGB(255, 255, 255)

la macro marche.

Bien à vous

 

[Dranreb]

Re : Mise en forme conditionnelle via VBA

Ah oui. Je n'ai pas vue qu'en plus un End With n'est pas au bon endroit: .Font n'est pas membre de .Interior

 

[vdh_xavier]

Re : Mise en forme conditionnelle via VBA

Merci beaucoup!