Colorer cellules non numériques

[kikim]

Re forum,

est il possible de colorer par macro les cellules non numerique, voir cellules vides ou bien ayant d'autres caracteres que les chiffres; et ce dans une plage bien definie "A1:H200"

Crdt

 

[JCGL]

Re : Colorer cellules non numériques

Bonjour à tous,

Peux-tu essayer avec :

Sub Colorie()
    
With Range("A1:H200").Select
    Selection.SpecialCells(xlCellTypeConstants, 2).Interior.ColorIndex = 40
    Selection.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 40
End With
End Sub

A+ à tous

 

[kikim]

Re : Colorer cellules non numériques

Re

Impecable JCGL

C'est exactement ce qui me faut,
Ca me permettera d'avoir une "alarme" sur les erreures de conversion

Salutations

 

[JCGL]

Re : Colorer cellules non numériques

Bonjour à tous,

Rajoute une mise à blanc :

Option Explicit

Sub Colorie()
    
With Range("A1:H200").Select
[COLOR=Blue][B]    Selection.Interior.ColorIndex = xlNone[/B][/COLOR]
    Selection.SpecialCells(xlCellTypeConstants, 2).Interior.ColorIndex = 40
    Selection.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 40
End With
[B][COLOR=Blue]Range("A1").Select[/COLOR][/B]
End Sub

A+ à tous

 

[kikim]

Re : Colorer cellules non numériques

Re le forum,

Merci JCGL,
Et si je change le critère vers " colorer les cellule ayant valeur = "0"
La macro devriendrai comment?

Merci d'avance