VBA concaténer deux réponses Userform Résolu

Question

Bonjour,

J'ai un formulaire comme suit :

Prenom : TextBox1
Nom :  TextBox2

Et je souhaite prendre les réponses et les placer dans une cellule sous la forme suivante: Prenom NOM.

Je n'arrive pas a les concaténer... J'ai essayé le code ci dessous sans réussite :

'nom = NOMTextBox2 = UCase(TextBox2)'prenom = PrenomDim st As Stringst = TextBox1.TextMid(st, 1, 1) = UCase(Mid(st, 1, 1))TextBox1.Text = st'probleme ....Dim identite as Stringidentite = TextBox1.Value & TextBox2.Value

Tout le reste de mon code marche sans problème, c'est vraiment pour assembler les réponses que j'épprouve des difficultés. 

Merci d'avance pour votre aide !!

Maurice · Answer

Bonjour
sans modele de ton fichier Dur a voir

il faut deja modifier tes TextBox Ex:

Private Sub TextBox1_Change()
   TextBox1.Value = Application.Proper(TextBox1.Value)
End Sub

Private Sub TextBox2_Change()
   TextBox2.Value = UCase(TextBox2.Value)
End Sub

Private Sub ButValide_Click()
   Cells(L, C).Value = TextBox1.Value & " " & TextBox2.Value
End Sub


A+
Maurice

VBA concaténer deux réponses Userform

1 réponse

Discussions similaires

Newsletters