XL 2019 Problème calcul % sur calculatrice

[Nathe]

Bonjour à toutes et tous,

Je suis en train d'essayer de monter un projet calculatrice sur excel mais je peine sur l'adaptation du calcul du pourcentage,
Si une personne saurai comment effectué le code qui irai bien.

Merci à tous
Nathe

 

[jurassic pork]

Bonjour à toutes et tous,

Je suis en train d'essayer de monter un projet calculatrice sur excel mais je peine sur l'adaptation du calcul du pourcentage,
Si une personne saurai comment effectué le code qui irai bien.

Merci à tous
Nathe

Regarde la pièce jointe 1213472

Hello Nathe dit "Le shérif",
je ne sais pas exactement ce que tu veux calculer dans ton exemple mais en mettant des parenthèses cela fonctionne :
(92-10)% = 0,82
92-(10)%=91,90
Ami calmant, J.P

 

[Nathe]

Hello Nathe dit "Le shérif",
je ne sais pas exactement ce que tu veux calculer dans ton exemple mais en mettant des parenthèses cela fonctionne :
(92-10)% = 0,82
92-(10)%=91,90
Ami calmant, J.P

Bonjour,
si je tape: 92-10%= le résultat est censé être 82.8 et non 91.90
Je n'arrive pas à adapter comme il faut le calcul dans la fonction pour le %
Merci
Nathe

 

[TooFatBoy]

Bonjour,

92-(10)%=91,90

Je ne crois pas que ce soit le résultat attendu, mais plutôt 82,8. 😉

[edit] grilled [/edit]

 

[TooFatBoy]

Je n'arrive pas à adapter comme il faut le calcul dans la fonction pour le %

Il faudrait que tu arrives à remplacer en interne le -10% par ×(1-10/100).

 

[Nathe]

Il faudrait que tu arrives à remplacer en interne le -10% par ×(1-10/100).

Bonjour, oui mais j'ai la difficultée de l'intégrer comme il faut au projet

 

[TooFatBoy]

oui mais j'ai la difficultée de l'intégrer comme il faut au projet

Oui, je comprends. Mais c'est trop compliqué pour moi. Désolé.

 

[patricktoulon]

Bonjour
si tu utilise une forme excel d’écriture de l’opération utilise evaluate
tu met tout entre guillemets et tu évalue
MsgBox Evaluate("92-10%")
autrement dit
msgbox evaluate( textbox1)

pas compliqué
Patrick

 

[patricktoulon]

re
j'ai regardé ton fichier et tu l'utilise déjà et chez moi les résultats son bons

 

[TooFatBoy]

Il faudrait que tu arrives à remplacer en interne le -10% par ×(1-10/100).

As-tu essayé d'utiliser cette "astuce" ?

Ce n'est pas simple car il faudrait faire une analyse du texte saisi, mais au moins ça te permettrait d'obtenir le bon résultat.

 

[patricktoulon]

re
correction
ancien

Private Sub btnVirgule_Click()
    If Len(expression) = 0 Or Right(expression, " ") Then
        AjouterElement ("0.")
    ElseIf InStrRev(expression, ".") = 0 Then
        AjouterElement (".")
    End If
End Sub

Nouveau

If Len(expression) = 0 Or Right(expression, 1) = " " Then
        AjouterElement ("0.")
    ElseIf InStrRev(expression, ".") = 0 Then
        AjouterElement (".")
    End If

le problème avec ton raisonnement c'est que tu ne peux pas faire par exemple 0.6+0.4 le 2d separateur n'est pas accepter
en fait il te faut évaluer chaque expression entre les symboles"+,-,*, /)

 

[Dranreb]

Bonjour.
Cette réécriture de la Sub AjouterElement semble arranger les choses :

' Ajoute un élément à l'expression et met à jour l'affichage
Private Sub AjouterElement(ByVal Element As String)
   Dim P As Integer
   If DernierResultat <> "" And Not Element Like "#" Then
    ' Si un résultat a été affiché et qu'on ajoute un opérateur, on continue l'opération
      expression = DernierResultat
      DernierResultat = ""
      End If
   If Element = "%" Then
      For P = Len(expression) To 1 Step -1
         If Not Mid$(expression, P, 1) Like "#" Then Exit For
         Next P
      If P > 0 Then
         expression = Left$(expression, P - 1) & "*(1" & Mid$(expression, P)
         Element = "%)"
         End If
      End If
   expression = expression & Element
   Me.txtExpression = expression ' Met à jour l'affichage en temps réel
   End Sub

 

[patricktoulon]

re
le mieux qui va nous simplifier la tache
c'est de faire une evaluation de la formulation complète
c'est assez simple comme raisonnement la separateur decimal doit aller apres un chiffre de 0 à 9
un simple test like sur le right(expression,1)
donc pour le bouton virgule se sera donc

Private Sub btnVirgule_Click()
    If Len(expression) = 0 Or Not Right(expression, 1) Like "[0-9]" Then expression = expression & "0"
    If Not IsError(Evaluate(expression & ".1")) Then AjouterElement (".")
End Sub

ton "0" est ajouté comme ton ancienne version si il est maquant
mais on évalue la formule avec une decimal temp avant
maintenant tu peux faire une opération avec plusieurs nombres décimals
il y a encore des soucis avec les parenthèses mais j'y travaille

 

[patricktoulon]

je pense avoir trouver le moyen de gérer le séparateur décimal
j'ai mis des commentaire pour expliquer ce que je fait

Private Sub btnVirgule_Click()
   'patricktoulon
    Dim expr, symb, i&
    symb = Split("+,-,x,/,*", ",") 'les operateur Numerique
    expr = Replace(Replace("|" & expression & ".1", "(", ""), ")", "") 'on replace toute les parenthèses dans la formule
    For i = 1 To UBound(symb) 'boucle sur les opérateurs et remplacement par le "|"
        expr = Replace(expr, symb(i), "|")
    Next
    expr = Split(expr, "|") 'on coupe la chaine coupé par les opérateurs

    'si le len (expression)= 0  on ajoute le "0" et on met la variable expression  à  jour
    If Len(expression) = 0 Then AjouterElement ("0"): expression = txtExpression

    'si le dernier caractère de expression est un opérateur on ajoute le "0" et on met la variable expression à jour
    'avec un like inversé qui teste tout en un
    If " + - x / " Like "* " & Right(expression, 1) & " *" Then AjouterElement ("0"): expression = txtExpression

    'si le dernier caractère du dernier élément de la chaine replacée et coupée est un chiffre  alors...
    If Right(expr(UBound(expr)), 1) Like "[0,1,2,3,4,5,6,7,8,9]" Then
        'si dernier élément de la chaine coupée et replacée + ( le ".1" temporaire)  reste une chaine numérique valide alors on ajoute le "."
        If TypeName(Evaluate(expr(UBound(expr)))) = "Double" Then AjouterElement (".")
    End If
End Sub

et il y a bien d'autre problème dans tes raisonnements pour les autres actions
en tout cas pour le séparateur ça parait bon maintenant à tester dans tout les sens

 

[patricktoulon]

Attention aussi a ta formulation
par exemple si tu met par exemple

le calculateur va l'interpréter comme ceci

c'est là que l'on se rend compte que nous les vieux qui avons appris avec les parenthèses
étions plus dans le juste alors que les plus jeunes à qui l'on a bombardé les règles de priorité des opérateurs de calcul
font parfois des erreurs

car en ce qui me concerne la chaine où!!! le résultat dans le userform n'est pas valable
celui de google oui il est claire et net d'ailleurs c'est lui même qui a ajouté les parenthèses pour la division

patrick