remplir 2 textbox avec une seul userform

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gigi71850

XLDnaute Nouveau
Bonjour,
je cherche a remplir 2 textbox a l'aide d'un clavier virtuel numerique créer dans une userform😕
le clavier s'active par un double click dans la texbox le probléme je n'arrive pas a séparer mes 2 textbox le text s'écris toujours dans la textbox1😡
pouvez m'aidez
je vous joint un bout de fichier

Merci
 

Pièces jointes

Re : remplir 2 textbox avec une seul userform

Je vois que j'arrive trop tard, je crois que Bernard t'a donné la solution. Je te laisse néanmoins la mienne que verait être similaire à celle de Bernard.

Dans un module on insère :

Code:
Option Explicit
Public vertourouge As String

userform2, change le code :

Code:
Private Sub textbox1_DblClick(ByVal cancel As MSForms.ReturnBoolean)
Dim vertourouge As Integer
UserForm1.Show
vertourouge = "vert"
End Sub

Private Sub textbox2_DblClick(ByVal cancel As MSForms.ReturnBoolean)
Dim vertourouge As Integer
UserForm1.Show
vertourouge = "rouge"
End Sub

Puis dans le userform1 :

Code:
Private Sub Btn_1_Click()
Me.TextBox1.Text = Me.TextBox1.Text + "1"
If vertourouge = "vert" Then
UserForm2.TextBox1.Text = UserForm2.TextBox1.Text + "1"
Else
UserForm2.TextBox2.Text = UserForm2.TextBox2.Text + "1"
End If
End Sub

Tu déclares donc une variable publique qui peut être utilisée par toutes tes macros. Ensuite, tu la change dépendamment de quelle textbox tu clique et ton clavier virtuel en prend compte pour insérer les données.
 
Dernière édition:
Re : remplir 2 textbox avec une seul userform

bonjour Gigi
dans module 1 variable public I qui prend valeur 1 ou 2 au doubleclick
ensuite select case 1 dans les boutons
les boutons 0 et 1 sont faits
tu pourrais faire un module de classe pour tes boutons
va voir sur le site de Jacques Boisgontier(JB)(il peut dire I am the King)
à bientôt
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour