Formule mathématique.. [Résolu]

peug 234 Messages postés mercredi 25 octobre 2000Date d'inscription 5 octobre 2012 Dernière intervention - 21 sept. 2005 à 14:27 - Dernière réponse : peug 234 Messages postés mercredi 25 octobre 2000Date d'inscription 5 octobre 2012 Dernière intervention
- 21 sept. 2005 à 16:08
J'ai ne chaine de caractère comme cela :

sFormule = "2+3"

J'aimerai avoir le résultat.
Si je fait
val(sFormule) VB me retourne 2 car il analyse un string.
Comment alors avoir le résultat ? J'ai essayé val(cSng(sFormule)) mais cela retourne une erreur !
Quelqu'un a une idée à ce sujet ?
Merci !
Afficher la suite 

2 réponses

Meilleure réponse
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 21 sept. 2005 à 15:25
3
Merci
il y a des sources traitant de ces opérations.
le Moteur de recherche est là !!!!

utilise Split() pour isoler avant et après le "+", et aditionne ensuite toutes les Val du résultat "splité"


Private Sub Command1_Click()
'déclare
Dim MyString As String, MyTab() As String, MyTotal As Integer
Dim i As Integer

'init
MyString = "2+3+9"
MyTab = Split (MyString, "+")
MyTotal = 0

'calcul
For i = 0 To UBound (MyTab)
MyTotal = MyTotal + Val(MyTab(i))
Next i

'affiche
MsgBox MyTotal
End Sub


<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>


PCPT

Merci PCPT 3

codes-sources a aidé 80 internautes ce mois-ci

Meilleure réponse
peug 234 Messages postés mercredi 25 octobre 2000Date d'inscription 5 octobre 2012 Dernière intervention - 21 sept. 2005 à 16:08
3
Merci
merci ! grace à ton code et une source trouvée dans ce site j'ai pofiné le tout comme cela : http://www.vbfrance.com/code.aspx?ID=33882

Merci peug 3

codes-sources a aidé 80 internautes ce mois-ci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.