Discussion :

[andrea0]

Bonjour,

J'ai des chiffres et des 0 dans un tableau excel
de AM20 à CT159 et j'aimerai juste colorier les cellules pour lesquelles j'ai un chiffres différent de 0 en ColorIndex 40
Merci

[casefayere]

Bonjour,
essayes comme ça :

Code :

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

1
2
3
4
5
6
7
Sub couleur()
Dim plage As Range, cel As Range
Set plage = Range("AM20:CT159")
For Each cel In plage
    If cel.value <> 0 Then cel.Interior.ColorIndex = 40
Next cel
End Sub

[andrea0]

Merci pour ta réponse

en fait j'ai des chiffres non nuls, des 0 et des "" en fait j'ai tous ca en formule, et j'aimerai colorier que les cellules ou j'ai des chiffres non nul, ni celles ou j'ai des 0 ni celles ou j'ai des "", avec cette macro ca me colori meme les cellules ou j'ai des "".

[casefayere]

Code :

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

1
2
3
4
5
6
7
Sub couleur()
Dim plage As Range, cel As Range
Set plage = Range("AM20:CT159")
For Each cel In plage
    If cel.value <> 0 or not isempty(cel) Then cel.Interior.ColorIndex = 40
Next cel
End Sub

pas fait le test pour les cellules contenant une formule mais égales à 0 ou "",
essayes déjà comme ça

[casefayere]

Je pense que j'ai fait une erreur :

Code :

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

If cel.value <> 0 and not isempty(cel) Then cel.Interior.ColorIndex = 40

[andrea0]

Merci encore
Ca me colori toujours les cellules ou j'ai des ""

[gFZT82]

Bonjour,

Essaie avec

Code :

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

    If Not (cel.Value = 0 Or IsEmpty(cel)) Then cel.Interior.ColorIndex = 40