Calculer la chaine "1+1" par VBA

Version imprimable

29/11/2017, 17h29
simex

Calculer la chaine "1+1" par VBA

Bonjour ,

Je suis nouveau dans le forum.
J'ai une variable string ou variant qui retourne une chaîne de caractère du genre "1+1" ou "2/3" et j'aimerai qu'un code VBA la reconnait comme une opération arithmétique et me sort le résultat du genre 1+1 = 2 .

Je bloque depuis des heures la-dessus .

Merci pour Votre Aide .

Bonjour,

vu le peu d'exemples

Code:

1
2
3
4
5
Sub toto()
Dim Operation As String
    Operation = "1+1"
    MsgBox Evaluate(Operation)
End Sub

29/11/2017, 17h39
simex
Citation:
Envoyé par joe.levrai

Bonjour,

vu le peu d'exemples

Code:

1 2 3 4 5 Sub toto() Dim Operation As String Operation = "1+1" MsgBox Evaluate(Operation) End Sub
Merci Joe.levrai
Evaluate marche bien . Génial !

Si vous permettez , j'ai une autre question .
Dans le cas où j'ai "1++1", comment puis-je détecter qu'il y'a erreur dans la chaine .

Merci pour votre aide
29/11/2017, 17h42
joe.levrai

Je sens poindre l'usine à gaz pour corriger des issues qu'il faudrait gérer en amont

mais pour te répondre, une fonction personnalisée me semble nécessaire :

1) Pour chaque caractère de la chaine
2) tant qu'on est sur un chiffre : on passe au caractère suivant
3) si le caractère non numérique n'est pas suivi d'un caractère numérique : y'a un problème

à adapter bien sûr, c'est un algo simplifié

sinon, capturer une erreur survenant sur l'utilisation d'evaluate()
Mais en procédant ainsi, il faudrait quand même une fonction si tu as (je le devine) besoin ensuite de corriger la chaine

Bon courage !
29/11/2017, 17h47
simex

Citation:

Envoyé par joe.levrai

Je sens poindre l'usine à gaz pour corriger des issues qu'il faudrait gérer en amont

mais pour te répondre, une fonction personnalisée me semble nécessaire :

1) Pour chaque caractère de la chaine
2) tant qu'on est sur un chiffre : on passe au caractère suivant
3) si le caractère non numérique n'est pas suivi d'un caractère numérique : y'a un problème

à adapter bien sûr, c'est un algo simplifié

sinon, capturer une erreur survenant sur l'utilisation d'evaluate()
Mais en procédant ainsi, il faudrait quand même une fonction si tu as (je le devine) besoin ensuite de corriger la chaine

Bon courage !

Je croyais qu'il y'avait une fonction simple de VBA que je pourrais utiliser .
Je vais boucler sur les chaines et comparer les caractères .

Juste pour Information : Evaluate ("1++1") donne 2.

Merci Joe.Levrai
29/11/2017, 17h48
Invité

Bonsoir,
Le plus simple,et c'est ce qu'il faut faire en général, essais de piéger ton code la réponse est parfois plus simple que la question!
30/11/2017, 09h22
Menhir

Citation:

Envoyé par simex

Dans le cas où j'ai "1++1", comment puis-je détecter qu'il y'a erreur dans la chaine .

Il n'y a pas d'erreur dans cette chaine dans la mesure où (du point de vue d'Excel et de VBA) un nombre positif peut s'écrire "+1" comme un nombre négatif peut s'écrire "-1".

Mais pour détecter les cas où Evaluate serait pris en défaut, tu peux utiliser :

Code:

If IsError(Evaluate(Operation)) Then MsgBox("Erreur dans la formule") Else MsgBox(Evaluate(Operation))

Si ta prochaine question est "comment corriger une éventuelle erreur", oublie-la : trop de cas possibles, pas assez de logique précise pour la correction.
30/11/2017, 12h25
mjpmjp

bonjour,
"1++1" étant un string : varstr = replace("1++1","++","+")
@+JP
30/11/2017, 15h26
simex

Citation:

Envoyé par Menhir

Il n'y a pas d'erreur dans cette chaine dans la mesure où (du point de vue d'Excel et de VBA) un nombre positif peut s'écrire "+1" comme un nombre négatif peut s'écrire "-1".

Mais pour détecter les cas où Evaluate serait pris en défaut, tu peux utiliser :

Code:

If IsError(Evaluate(Operation)) Then MsgBox("Erreur dans la formule") Else MsgBox(Evaluate(Operation))

Si ta prochaine question est "comment corriger une éventuelle erreur", oublie-la : trop de cas possibles, pas assez de logique précise pour la correction.

Bonjour Menhir ,

C'est effectivement ce que j'ai fait pour détecter s'il y'a erreur dans dans l’opération.

Merci pour votre réponse.

Bonjour,
Alors voici le code que j'ai fait pour détecter s'il y'a des opérateurs successifs dans une opération .
Exemple : "1++1" ou "1+/" , "1**1" , "1++" etc...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For i = 1 To Len(Operations)
        caractere = Mid(Operations, i, 1)
 
        If Not IsNumeric(caractere) Then
            compteur = compteur + 1
        Else
            compteur = 0
        End If
 
        If compteur > 1 Then ' si compteur est égal à deux , cela veut dire qu'il y'a deux opérateurs successifs ou deux point pour les decimales (1..4)
            .... Il y'a erreur
 
        End If
    Next i

Au plaisir.