[RESOLU] : CALCULATRICE pourcentage

ROGER2327

XLDnaute Barbatruc

• 11 Février 2016

• #2

Re : CALCULATRICE pourcentage

Bonsoir MADAGASCAR.

(...) j'ai bien tappe ces chiffres d'une facon succesive
12 * 50 et j'ai clique sur le commandbutton du poucentage alors le resultat s'affichera 600 ..la valeur juste est bien 6
(...)

Cliquez pour agrandir...

Faites

12 % 50 =​

​

Bonne soirée.


ℝOGER2327
#8204

Mardi 17 Gueules 143 (Le Bétrou, théurge - fête Suprême Quarte)
22 Pluviôse An CCXXIV, 8,3795h - thyméle
2016-W06-4T20:06:39Z

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 11 Février 2016

• #3

Re : CALCULATRICE pourcentage

Bonsoir ROGER2327
Merci beaucoup pour votre aide
Oui effectivement j'ai enfin obtenu le reultat (6)
SVP ROGER2327 .. la methode que j'utilise avec mes eleves c'est bien avec les etapes que j'ai ecris dans mon premier post :
12 * 50 et apres je clique CommandButton pourcentage le resultat s'affichera
Se sera un tres grand bienfait de votre part si vous pouvez bien sur m'indiquer comment faire pour obtenir l'autre methode
Merci d'avance
MADA

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Février 2016

• #4

Re : CALCULATRICE pourcentage

Re MADAGASCAR,
Bonjour Roger,

@MADAGASCAR: pourquoi avoir ouvert une nouvelle discussion, quand la solution est ici POURCENTAGE


Très bonne journée

Lone-Wolf

 

Dernière édition: 12 Février 2016

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 12 Février 2016

• #5

Re : CALCULATRICE pourcentage

Bonjour à tous.


Une autre proposition : remplacer les procédures cmdPrc_Click et calcul par celles-là :

Code:

Private Sub cmdPrc_Click()
  valeur1 = txtResultat.Value * 0.01
  Select Case flagtf
  Case 1
    valeur = valeur * (1 + valeur1)
    txtResultat.Value = valeur
  Case 2
    valeur = valeur * (1 - valeur1)
    txtResultat.Value = valeur
  Case 3
    valeur = valeur * valeur1
    txtResultat.Value = valeur
  Case 4
    If valeur1 > 0 Then
      valeur = valeur / valeur1
      txtResultat.Value = valeur
    End If
  End Select
  flagtf = 5
  flagtf1 = 0
  flagv = 0
End Sub

Private Sub calcul()
  Select Case flagtf
  Case 1
    valeur1 = txtResultat.Value
    valeur = valeur + valeur1
    txtResultat.Value = valeur
  Case 2
    valeur1 = txtResultat.Value
    valeur = valeur - valeur1
    txtResultat.Value = valeur
  Case 3
    valeur1 = txtResultat.Value
    valeur = valeur * valeur1
    txtResultat.Value = valeur
  Case 4
    valeur1 = txtResultat.Value
    If valeur1 > 0 Then
      valeur = valeur / valeur1
      txtResultat.Value = valeur
    End If
  End Select
  flagv = 0
End Sub

Bonne journée.


ℝOGER2327
#8206

Mercredi 18 Gueules 143 (Nativité de Saint Deibler, prestidigitateur - fête Suprême Quarte)
23 Pluviôse An CCXXIV, 4,5194h - chiendent
2016-W06-5T10:50:47Z

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 12 Février 2016

• #6

Re : CALCULATRICE pourcentage

Bonjour ROGER2327
Merci beaucoup pour votre code et votre aide
Tres gentil de votre aprt
C'est bien resolu pour le pourcentage et maintenant je suis tombe dans un autre probleme
J'ai essaye d'additioner 12.25 + 4.75 .. mais des que je tappe (+) le message d'erreur s'affichera ..comme l'indique l'image si dessous
SVP si vous pouvez encore voir cela
Tres amicalement
MADA

 

Pièces jointes

• 99.jpg

  26.1 KB · Affichages: 57
• 88.png

  18.6 KB · Affichages: 49

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Février 2016

• #7

Re : CALCULATRICE pourcentage

RE MADAGASCAR,

Avec le dernier fichier que j'ai mis, je n'ai pas ce problème.

Tiens je le remet à nouveau.



A+

 

Pièces jointes

• Calculatrices.zip

  26.2 KB · Affichages: 65

Dernière édition: 12 Février 2016

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 12 Février 2016

• #8

Re : CALCULATRICE pourcentage

Merci Lone-wolf
J'ai obtenu le meme probleme d'addition ..essayez par exemple 2.25 + 2.25 .. des que vous tappez + .. le message s'affichera
Pour les autres operation sj'aui pas essaye encore
Cordialement
MADA

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Février 2016

• #9

Re : CALCULATRICE pourcentage

Bonjour à tous,

Voyez ce post où j'utilise un Module de classe :

https://www.excel-downloads.com/threads/calculatrice-en-vba.144036/

A+

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 12 Février 2016

• #10

Re : CALCULATRICE pourcentage

Bonsoir JOB75
Merci 1000 fois pour votre super formidable et efficace solution
C'est parfaitement resolu
Merci ..tres tres gentil de votre part
Cordialement
MADA

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Février 2016

• #11

Re : [RESOLU] : CALCULATRICE pourcentage

Re MADAGASCAR

Bonjour job

@MADAGASCAR: j'ai ouvert le fichier et taper 2.25+2.25 et je n'ai pas d'erreur.


A+

 

Vote positif 0 Vote négatif