OVH Cloud OVH Cloud

userform

3 réponses
Avatar
mike
Hello

ou est l'erreur dans ces lignes de code, je désire concatener 2 champs
lorsque je lance cette macro,rien ne s'execute !!!

***bouton pour la concatenation en [C2]

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

merci
Mike

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

3 réponses

Avatar
papou
Bonjour
Il n'y a pas réellement d'erreur.
Par contre :
- le Userform est-il toujours chargé ?
- une feuille est-elle active dans le classeur ?
- l'identification de la cellule ne m'apparaît pas idéale tel quel, je
suggérerai personnellement quelque chose comme
Worksheets("Feuil1").Range("A1").Value Cordialement
Pascal


"mike" a écrit dans le message de news:

Hello

ou est l'erreur dans ces lignes de code, je désire concatener 2 champs
lorsque je lance cette macro,rien ne s'execute !!!

***bouton pour la concatenation en [C2]

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

merci
Mike

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



Avatar
PMO
Bonjour,

Vérifiez si la propriété (Name) du bouton de commande
est bien fixée à "valide".
Il y a peut-être confusion entre la propriété (Name) et
la propriété Caption.
Si la propriété (Name) est par exemple "CommandButton1" alors soit
1) changez la ligne de code
Private Sub valide_Click()
par
Private Sub CommandButton1_Click()

soit
2) changez la propriété (Name) par "CommandButton1"


Est-ce mieux ?

Cordialement.

PMO
Patrick Morange



Hello

ou est l'erreur dans ces lignes de code, je désire concatener 2 champs
lorsque je lance cette macro,rien ne s'execute !!!

***bouton pour la concatenation en [C2]

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

merci
Mike

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




Avatar
Gilles
Merci à PMO et Papou
ca roule...
Bonne soirée

Mike

PMO vient de nous annoncer :
Bonjour,

Vérifiez si la propriété (Name) du bouton de commande
est bien fixée à "valide".
Il y a peut-être confusion entre la propriété (Name) et
la propriété Caption.
Si la propriété (Name) est par exemple "CommandButton1" alors soit
1) changez la ligne de code
Private Sub valide_Click()
par
Private Sub CommandButton1_Click()

soit
2) changez la propriété (Name) par "CommandButton1"


Est-ce mieux ?

Cordialement.

PMO
Patrick Morange



Hello

ou est l'erreur dans ces lignes de code, je désire concatener 2 champs
lorsque je lance cette macro,rien ne s'execute !!!

***bouton pour la concatenation en [C2]

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

merci
Mike

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