Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel userform...

userform...

3 réponses
Avatar
mike
Bonjour à tous !!

J'ai un problème avec un Userform...
alors:

J'ai 2 champs (en A2 ET B2) que je désire concaténer en [C2],

j'ai créer dans ma feuille un bouton avec le code suivant sur le bouton
[C2], mais rien ne se passe...?? ou est l'erreur????


*** en A2

Private Sub TextBox1_Change()
[A2] = UserForm1.TextBox1
End Sub

*** en [B2]

Private Sub TextBox2_Change()
[B2] = UserForm1.TextBox2
End Sub

***bouton pour la concatenation en [C2]

Private Sub valide_Click()
[C2] = UserForm1.TextBox1 & " " & UserForm1.TextBox2
End Sub

Merci et bonne journée

Mike

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Benead
Salut Mike,

Cela doit fonctionner sauf si ton bouton ne s'appelle pas "valide" ; donc pour en être sûr, double-clic sur ton bouton
lorsque tu es en mode création, le curseur devrait venir automatiquement sur "valide_Clic()", sinon il te recréera un
nouvel événement.

A+
Benead
XL97

mike a écrit:
Bonjour à tous !!

J'ai un problème avec un Userform...
alors:

J'ai 2 champs (en A2 ET B2) que je désire concaténer en [C2],

j'ai créer dans ma feuille un bouton avec le code suivant sur le bouton
[C2], mais rien ne se passe...?? ou est l'erreur????


*** en A2

Private Sub TextBox1_Change()
[A2] = UserForm1.TextBox1
End Sub

*** en [B2]

Private Sub TextBox2_Change()
[B2] = UserForm1.TextBox2
End Sub

***bouton pour la concatenation en [C2]

Private Sub valide_Click()
[C2] = UserForm1.TextBox1 & " " & UserForm1.TextBox2
End Sub

Merci et bonne journée

Mike



Avatar
Patrick Fredin
Bonjour,

C'est quoi [A2], [B2] et [C2] :

Si ce sont des cellules, il faut écrire :

Range("C2") = UserForm1.TextBox1 & " " & UserForm1.TextBox2

--
Patrick

"mike" wrote in message
news:
Bonjour à tous !!

J'ai un problème avec un Userform...
alors:

J'ai 2 champs (en A2 ET B2) que je désire concaténer en [C2],

j'ai créer dans ma feuille un bouton avec le code suivant sur le bouton
[C2], mais rien ne se passe...?? ou est l'erreur????


*** en A2

Private Sub TextBox1_Change()
[A2] = UserForm1.TextBox1
End Sub

*** en [B2]

Private Sub TextBox2_Change()
[B2] = UserForm1.TextBox2
End Sub

***bouton pour la concatenation en [C2]

Private Sub valide_Click()
[C2] = UserForm1.TextBox1 & " " & UserForm1.TextBox2
End Sub

Merci et bonne journée

Mike

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com



Avatar
Gilles
Bingo...

Merci

Benead a présenté l'énoncé suivant :
Salut Mike,

Cela doit fonctionner sauf si ton bouton ne s'appelle pas "valide" ; donc
pour en être sûr, double-clic sur ton bouton lorsque tu es en mode création,
le curseur devrait venir automatiquement sur "valide_Clic()", sinon il te
recréera un nouvel événement.

A+
Benead
XL97

mike a écrit:
Bonjour à tous !!

J'ai un problème avec un Userform...
alors:

J'ai 2 champs (en A2 ET B2) que je désire concaténer en [C2],

j'ai créer dans ma feuille un bouton avec le code suivant sur le bouton
[C2], mais rien ne se passe...?? ou est l'erreur????


*** en A2

Private Sub TextBox1_Change()
[A2] = UserForm1.TextBox1
End Sub

*** en [B2]

Private Sub TextBox2_Change()
[B2] = UserForm1.TextBox2
End Sub

***bouton pour la concatenation en [C2]

Private Sub valide_Click()
[C2] = UserForm1.TextBox1 & " " & UserForm1.TextBox2
End Sub

Merci et bonne journée

Mike