Discussion :

[simex]

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 .

[joe.levrai]

Bonjour,

vu le peu d'exemples

Code :

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

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

[simex]

Bonjour,

vu le peu d'exemples

Code :

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

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

[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 !

[simex]

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

[Menhir]

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 :

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

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.

[mjpmjp]

bonjour,
"1++1" étant un string : varstr = replace("1++1","++","+")
@+JP

[simex]

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 :

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

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.

[simex]

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 :

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

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.

[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!