Litan44260
XLDnaute Nouveau
Bonjour a tous
J'ai trouvez il y a pas longtemps un tuto pour crée un pavé numérique sur VBA ( je ne peux pas utiliser les claviers virtuel pour plusieurs raison et j'ai pas de clavier fixe écran tactile)
j'ai les chiffres en CommandButton
quand j'action un CommandButton elle arrive dans un TextBox1
et sur j’appuie sur Entrée l'information quitte la textBOX1 vers la cellule du excel active
Par contre ce que j'aimerais c'est que au lieu de partir vers une cellule elle aille vers la textBox activ
Voici ceux que j'ai dans ma classe
J'ai trouvez il y a pas longtemps un tuto pour crée un pavé numérique sur VBA ( je ne peux pas utiliser les claviers virtuel pour plusieurs raison et j'ai pas de clavier fixe écran tactile)
j'ai les chiffres en CommandButton
quand j'action un CommandButton elle arrive dans un TextBox1
et sur j’appuie sur Entrée l'information quitte la textBOX1 vers la cellule du excel active
Par contre ce que j'aimerais c'est que au lieu de partir vers une cellule elle aille vers la textBox activ
Voici ceux que j'ai dans ma classe
VB:
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