[E-03] Vérifier que tous les caractères sont des chiffres

**neiluj26** · 04/03/2009, 10h33

Bonjour,

Dans le résultat d'une requête, j'ai toute une colonne à vérifier. Les valeurs doivent avoir 4 caractères et n'être composées que de chiffres. Le reste, je les élimine.
Je sais compter le nombre de caractères, mais je me retrouve avec des valeurs comme 18.7 ou ²531, que je voudrais éliminer également. Les cellules sont au format texte, et je ne peux pas changer le format.
Je pensais donc vérifier que chaque caractère est compris entre 0 et 9, mais comme mon fichier est assez long, je me demandais si vous connaissiez une méthode plus simple, ou plus rapide.

Invité · 04/03/2009, 10h54

Bonjour

Regardes du coté de la fonction IsNumeric.

Philippe

**neiluj26** · 04/03/2009, 11h11

Bonjour Philippe,

Malheureusement des valeurs comme 18,7 ne sont pas éliminées...

**Kyraa** · 04/03/2009, 11h16

Envoyé par neiluj26

Bonjour Philippe,

Malheureusement des valeurs comme 18,7 ne sont pas éliminées...

IsNumeric ne supprime pas les valeurs non numériques mais te retourne un booléen qui te dit si ta valeur est numérique ou pas.

Il te reste ensuite plus qu'a faire ton petit algo qui sort toutes les valeurs non-numériques de ta chaîne de caractères

**neiluj26** · 04/03/2009, 11h23

Oui pardon, j'ai fait un raccourci. Comme 18,7 est bien un numérique, si je tape un code du genre:

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Elim
Dim i a Long
 
For i = 6 to [A65536].end(xlup).row
  If IsNumeric(Cells(i,4)) then Cells(i,4).interior.colorindex=44
Next
 
End sub

les cellules qui contiennent des valeurs type 18,7 auront bien le fond jaune, ce que je voudrais éviter puisque je souhaite conserver seulement les cellules dont la valeur est composée de 4 chiffres sans virgule ni aucun autre caractère.