Colorer cellules non numériques

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"

Merci d'avance!

Pardon Amadéus,

La différence c'est que ta macro ne prenne pas en charge les cellules vide.

Bonsoir,

les cellules non numerique, voir cellules vides ou bien ayant d'autres caracteres que les chiffres

Précise un peu, étaye ta demande avec une feuille, exemples et annotations

Amicalement

Claude.

Bonsoir

Sub NonNumerique()
Dim MaCellule As Object
For Each MaCellule In Range("A1:H200")
If IsNumeric(MaCellule.Value) = False Then
MaCellule.Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
Next
End Sub

Cordialement

Re Forum,

Bonsoir Claude,

Merci Amadéus,

Ca marche bien mais pas pour les cellules vides, entre temp j'ai trouvé cette macro:

Sub Colorie()

With Range("A1:H200").Select

Selection.SpecialCells(xlCellTypeConstants, 2).Interior.ColorIndex = 40

Selection.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 40

End With

End Sub

Mes remerciements !

re,

tu peux éviter les "Select"

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

marche aussi bien

Claude.

Re Forum,

Là c'est à la perfection Claude!

Sinceres remerciements.