Enlever toute couleur de fond

[phoque.r]

Bonjour

ma macro m'est une couleur de fond dans les cases à problème puis, quand le problème est résolu, met du blanc en couleur de fond. Le problème du blanc, c'est qu'il efface la tour grisé des cases par défaut.

Y-a-t-il moyen de faire comme on peut le faire manuellement: aucun remplissage


merci

 

[PascalXLD]

Re : Enlever toute couleur de fond

Bonjour

essaies en mettant xlnone au lieu du numero d ecouleur

 

[phoque.r]

Re : Enlever toute couleur de fond

merci mais xlNone me donne un truc bleuté😀

 

[PascalXLD]

Re : Enlever toute couleur de fond

re

tu peux donner ton code actuel STP

 

[phoque.r]

Re : Enlever toute couleur de fond

Et voilà

Private Sub Worksheet_Change(ByVal Target As Range)
lign = Target.Row
If Range("e" & lign) <> WorksheetFunction.Sum(Range("f" & lign & ":x" & lign)) Then
Range("f" & lign & ":x" & lign).Interior.Color = RGB(255, 0, 0)
End If
If Range("e" & lign) = WorksheetFunction.Sum(Range("f" & lign & ":x" & lign)) Then
Range("f" & lign & ":x" & lign).Interior.Color = xlNone
End If
End Sub

Ca compare donc ce qu'il y a dans la case e avec la somme entre f et x
Ca fonctionne, sauf ce changement de couleur

merci

 

[PascalXLD]

Re : Enlever toute couleur de fond

Re

remplace ta ligne

Range("f" & lign & ":x" & lign).Interior.Color = xlNone


par

Range("f" & lign & ":x" & lign).Interior.ColorIndex = xlNone

 

[phoque.r]

Re : Enlever toute couleur de fond

ok, ca marche

merci beaucoup 🙂