Verification format nombre de la colonne A sauf cellule A1

[perdinch]

bonsoir,

En A1 le nom de colonne est au format texte exemple Vente.
Cependant je dois impérativement m'assurer que de A2 à AXXX j'ai EXCLUSIVEMENT des nombres au format NUMERIQUE .

J'ai éssayé ça mais cà ne marche pas (la gestion de l'erreur 1004 n'est pas prise en compte) comme je le voudrais.

test_format_Col_A as variant
Columns("A:A").Select
On Error GoTo info
test_format_Col_A = Selection.SpecialCells(xlCellTypeConstants, 1).Select
If test_format_Col_A = True Then GoTo suite
info:
msgbox("données pas au format numérique")
exit sub
cordialement

 

[pierrejean]

Re : Verification format nombre de la colonne A sauf cellule A1

bonjour perdinch

Cette macro te colorera en rouge les cellules ne contenant pas un numerique
(attention elle ne controle pas le format de cellule)

Sub test()
For n = 2 To Range("A65536").End(xlUp).Row
  If Not IsNumeric(Range("A" & n)) Then
    Range("A" & n).Interior.ColorIndex = 3
  End If
Next n
End Sub