cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
28 mars 2006 à 20:28
Bonsoir,
Comme le précise Julien,
le Replace est une très bonne méthode de substitution de If.....
Quelque soit le language VBx utilisé.
exemple:
ck = inputbox ("Valeur","Valeur"," 2.0 : +1105.01, +758.01")
'La variable "fr" affiche "2"
fr = Replace(ck, Mid(ck, InStr(1, ck, ":")), "")
fr = Replace(Replace(fr, Mid(fr, InStr(1, fr, ".")), ""), Left(fr, 2), "")
'La variable "valX" affiche "1105.01"
valX = Replace(ck, Left(ck, InStr(1, ck, "+")), "")
valX = Replace(Replace(valX, Right(valX, InStr(1, valX, ",")), ""), ",","")
'La variable "valY" affiche "758.01"
valY = Replace(ck, Left(ck, InStr(1, ck, "+")), "")', "+",""), " ", "")
valY = Replace(Replace(Replace(valY, Left(valY, InStr(1, valY, ",")), ""), " ",""),"+","")
jean-marc