Discussion :

[mouftie]

Bonjour,
J'ai fait 4 Mef conditionnelle en VBA et je bloque sur la dernière
Je voudrais que toutes les cellules qui ont un résulat à 0 est une police blanche (afin de conserver les calculs et de rendre le tableau plus lisible)
J'ai essayé ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="0"
    .FormatConditions(5).Font.ColorIndex = 2

mais il ne se passe rien
/I\ les 0 sont des valeurs suite à un copier valeur ; par contre dans une colonne il y a des "#DIV/0!"
J'ai également essayé ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim c as range
    For Each c In Range("TbCarsat1[#data]")
        If c.Value <> "#DIV/0!" and c.Value = "0" Then c.Font.Color = RGB(255, 255, 255)  'Blanc
    Next

Mais Excel me dit qu'il y a incompatibilité
Cela a fonctionné sur toutes les 1ère cellule à 0, mais ça a bloqué à partir des "#DIV/0!", c'est pourquoi j'ai voulu les ajouter à la condition...

Est-ce que qq'1 peut m'aider ?

[Theze]

Bonjour,

Pour la MFC et l'erreur de division par 0, utilises la formule "=ESTERREUR()" comme par exemple "=ESTERREUR($D1)" si tu veux comme cible la colonne D
et pour 0, utilises la formule "=$D1=0" si tu veux comme cible la colonne D

[mouftie]

Bonjour Theze,
Je ne comprends pas bien tes propositions.
Dans le 1er cas (formatConditions) ma cible n'est pas une colonne, mais l'ensemble de la table TbCarsat1
Dans le 2ème cas (for each) Je ne peux pas mettre de formule. Mes données proviennent d'un copié/collé valeurs.
Merci pour ta réponse.