[RESOLU] : Commandbouton 2 en 1

[MADAGASCAR]

Bonjour EXCEL DOWNLOADS
Bonjour tout le monde
SVP chers membres est qu'on peut faire un commandbouton1 :

* Je clique la premiere fois au dessus il fait ( TextBox1 + TextBox2 )
* Je clique la deuxieme fois au dessus il fait ( TextBox1 * TextBox2 )
Le resultat s'affichera dand les deux cas dans TextBox3
Merci d'avance pour toute suggestion
Merci d'avance pour l'aide
Cordialement
MADA

 

[laetitia90]

Re : Commandbouton 2 en 1

bonjour MADAGASCAR🙂

Dim x As Boolean
Private Sub CommandButton1_Click()
 On Error Resume Next
  If x = False Then TextBox3 = CDbl(TextBox1) + CDbl(TextBox2): x = True: Exit Sub
  If x = True Then TextBox3 = CDbl(TextBox1) * CDbl(TextBox2): x = False
End Sub

' on peut manipuler avec IIf a la place de if
'traiter si numeric ou pas ....box vide ou pas vide

' pas le temps de regarder c'est pour cela.. On Error Resume Next au debut du code

 

[joss56]

Re : Commandbouton 2 en 1

Bonjour

comme ça peut-être :

Private Sub CommandButton1_Click()

If TextBox3 = "" Then
TextBox3 = Val(TextBox1) + Val(TextBox2)
Else
TextBox3 = Val(TextBox1) * Val(TextBox2)
End If

End Sub

Jocelyn

Bonjour Laetitia, plus rapide que moi !

 

[MADAGASCAR]

Re : [RESOLU] : Commandbouton 2 en 1

Bonjour laetitia90
Bonjour joss56
Merci pour vos excellents codes
Les deux marchent tres tres bien
Merci pour le temps perdu à résoudre mon probleme
C'est parfaitement résolu
Cordialement
MADA

 

[laetitia90]

Re : [RESOLU] : Commandbouton 2 en 1

re, bonjour joss 🙂
une version iif je suppose que tu traites textbox 1 & 2


j'ai mis VAL utilise uniquement le point

 Dim x As Byte
Private Sub CommandButton1_Click()
 TextBox3 = IIf(x = 0, Val(TextBox1) + Val(TextBox2), Val(TextBox1) * Val(TextBox2)): x = IIf(x = 0, 1, 0)
End Sub

 

[MADAGASCAR]

Re : [RESOLU] : Commandbouton 2 en 1

Bonsoir Laetitia90
Sincèrement BRAVO pour votre suivi de ce fichier
Mille fois merci pour l'aide et pour vos meilleurs codes
C'est vraiment résolu
Cordialement
MADA