Discussion :

[Touny]

Bonjour à tous

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

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 :

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

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 :

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

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

[hackoofr]

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

Essaye la Fonction IsNumeric

Code :

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

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

[Touny]

Essaye la Fonction IsNumeric

Code :

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

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

[Touny]

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?

[ProgElecT]

Salut

Code :

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

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.

[Touny]

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.

[ProgElecT]

Code :

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

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 ?

[Touny]

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 :

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

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 ?

[ProgElecT]

Code :

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

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.

[Touny]

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