Public WithEvents groupebouton As MSForms.CommandButton
Private Sub groupebouton_Click()
ReDim Temp(0)
ReDim Signe(0)
Select Case groupebouton.Caption
Case "="
Resultat = Application.Evaluate(Pave.TextBox1.Text)
Saisie.TextBox1.Text = Resultat
Case "+/-"
Saisie.TextBox1 = -Val(Saisie.TextBox1)
Case Else
Saisie.TextBox1 = Saisie.TextBox1 & groupebouton.Caption
End Select
Saisie.TextBox1.SetFocus
End Sub
Pouvez vous m'aider
Je vous remercie