VBA concaténer deux réponses Userform
Résolu
howiz
Messages postés
20
Date d'inscription
Statut
Membre
Dernière intervention
-
Maurice -
Maurice -
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 :
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 !!
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 = NOM
TextBox2 = UCase(TextBox2)
'prenom = Prenom
Dim st As String
st = TextBox1.Text
Mid(st, 1, 1) = UCase(Mid(st, 1, 1))
TextBox1.Text = st
'probleme ....
Dim identite as String
identite = 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 !!
A voir également:
- VBA concaténer deux réponses Userform
- Concatener deux cellules excel - Guide
- Deux ecran pc - Guide
- Comment faire deux colonnes sur word - Guide
- Nombre de jours entre deux dates excel - Guide
- Sms deux ronds - Forum Xiaomi
1 réponse
Bonjour
sans modele de ton fichier Dur a voir
il faut deja modifier tes TextBox Ex:
A+
Maurice
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