Condition si la variable est un chiffre

Bonjour à tous :)

J'aimerais faire une condition "if / end if" mais j'y arrive pas ! Je m'explique :P

J'ai une valeur qui est 123,00E par exemple (c'est une variable aléatoire que je récupère dans un fichier). J'aimerais faire un "if" qui serait "Si la valeur est un chiffre et qu'elle fini par E alors supprimer le E"

J'arrive à supprimer le E sans problème :

Code:

---

1 2 3 4 5

if right(result,1) = "E" then   result = replace(result,right(result,1),"")   end if

---

Par contre je n'arrive pas trouver comment savoir si c'est un chiffre ?

Du coup le code serait un truc du syle

Code:

---

1 2 3 4 5

if result=chiffre -1 AND right(result,1) = "E" then   result = replace(result,right(result,1),"")   end if

---

Merci pour votre aide :)

Citation:

---

Envoyé par Touny

Par contre je n'arrive pas trouver comment savoir si c'est un chiffre ?

---

:salut:
Essaye la Fonction IsNumeric

Code:

---

1 2 3

Renvoie une valeur booléenne indiquant si une expression peut être évaluée sous la forme d'un nombre. IsNumeric(expression) L'argument expression représente toute expression.

---

La fonction IsNumeric renvoie une valeur booléenne indiquant si une expression spécifiée peut être évaluée comme un nombre. elle retourne True si l'expression est reconnue comme un nombre, sinon, elle retourne False.
Exemple d'utilisation

Citation:

---

Envoyé par hackoofr

:salut:
Essaye la Fonction IsNumeric

Code:

---

1 2 3

Renvoie une valeur booléenne indiquant si une expression peut être évaluée sous la forme d'un nombre. IsNumeric(expression) L'argument expression représente toute expression.

---

La fonction IsNumeric renvoie une valeur booléenne indiquant si une expression spécifiée peut être évaluée comme un nombre. elle retourne True si l'expression est reconnue comme un nombre, sinon, elle retourne False.
Exemple d'utilisation

---

Oh merci c'est tout bête :) je vais tester ça

Ca ne fonctionne pas. En effet ma valeur contient un "E" (123,00E) du coup il ne trouve pas que c'est un num (logique). Des idées?

Salut

Code:

---

1 2 3 4 5 6 7 8

Private Sub Form_Load() Dim MeVar As String MeVar = "123,45E" MeVar = Replace(MeVar, "E", "") Dim Recup As Single If IsNumeric(MeVar) Then Recup = CSng(MeVar) MsgBox Recup End Sub

---

Pas besoin de condition pour le Replace, si le E est contenu, il sera remplacé, sinon, ben le Replace aura été inutile.

J'arrive à récupérer ma variable sans le E mais le soucis c'est que par exemple j'ai une autre variable "KILDARE" et donc il me vire le E pour me faire "KILDAR". C'est pour ça que je voudrais lui dire de retirer le E que si c'est un numérique.

Code:

---

1 2 3 4 5 6 7 8 9

Dim MeVar As String Dim Recup As Single 'MeVar = "123,45KILDARE" MeVar = "123,45E" If Right(MeVar, 1) = "E" And IsNumeric(Left(MeVar, Len(MeVar) - 1)) Then MeVar = Replace(MeVar, "E", "") Recup = CSng(MeVar) MsgBox Recup End If

---

Mieux ? ;)

OOOooooh c'est mieuuux :) Merci beaucoup ProgElecT !!

J'ai une autre p'tite question : j'ai une variable d'heure ":18:30:25" et je voudrais supprimer les ":" devant l'heure. J'ai fais ça :

Code:

---

1 2 3 4 5

if left(result,1) = ":" then   result = replace(result,left(result,1),"")   end if

---

Ce p'tit bout de code me supprime tous les ":" alors que pour moi il me supprime que le ":" du premier caractère de gauche :( !

Un p'tit coup de main ? ;)

Code:

---

1 2 3

result = Replace(Lheure, ":", "", 1, 1) 'ou result = Right(Lheure, Len(Lheure) - 1)

---

Tu peux voire que le 5éme paramètre te permet d'indiquer le nombre de modification à effectuer.

J'ai trouvé la solution hier et c'est la même que toi ProgElect :) Merci pour ta réactivité en tout les cas ;)