Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1546 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VB concatenation de texte

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VB concatenation de texte

n°2187794
matteodu
Posté le 27-04-2013 à 12:02:12  profilanswer
 

Bonjour a tous,
 
 
J'ai un souci avec la concaténation, je saisie un nom et un prénom et ils doivent etre ajouté a une liste mais séparer par un espace, mais cela ne marche pas voici mon code
 
 
 
Private Sub BC_calculer_Click()
 

If (zt_nom.Text <> "" ) And (zt_prenom.Text <> "" ) Then
 
L_nom_prenom.AddItem (zt_nom.Text) & (zt_prenom.Text)
 
 
Else
MsgBox ("il faut saisir un nom" )
 
End If
 
If (L_nom_prenom.ListCount > 0) Then
BC_calculer.Enabled = True
End If
 
 
zt_nom.Text = ""
zt_nom.SetFocus
 
zt_prenom.Text = ""
zt_prenom.SetFocus
 
 
End Sub

mood
Publicité
Posté le 27-04-2013 à 12:02:12  profilanswer
 

n°2187798
Marc L
Posté le 27-04-2013 à 14:00:15  profilanswer
 


           Bonjour.
 
           C'est la ligne n° …   Ah zut, l'icône pour le code n'a pas été utilisée, dommage …
 
           "mais cela ne marche pas"       Et dans le code où se trouve donc l'espace ?


Message édité par Marc L le 27-04-2013 à 14:00:48
n°2187837
Profil sup​primé
Posté le 27-04-2013 à 18:24:54  answer
 

Bonjour.
 
5 caractères à rajouter..  
 
Bon allez, je te les donne : & " "

n°2187855
Marc L
Posté le 28-04-2013 à 10:23:36  profilanswer
 


           Je dirais 6 avec l'espace après le dernier guillemet ou bien avant le & …
 

n°2187856
matteodu
Posté le 28-04-2013 à 11:21:31  profilanswer
 

1 Private Sub BC_calculer_Click()
 

 
2 If (zt_nom.Text <> "" ) And (zt_prenom.Text <> "" ) Then
 
3 L_nom_prenom.AddItem (zt_nom.Text) & (zt_prenom.Text)
 
 
4 Else
5 MsgBox ("il faut saisir un nom" )
 
6 End If
 
7 If (L_nom_prenom.ListCount > 0) Then
8 BC_calculer.Enabled = True
9 End If
 
 
10 zt_nom.Text = ""
11 zt_nom.SetFocus
 
12 zt_prenom.Text = ""
13 zt_prenom.SetFocus
 
 
14 End Sub
 
 
 
a la ligne 3 jai rajouter & " " mais cela ne marche pas

n°2187857
Marc L
Posté le 28-04-2013 à 11:24:31  profilanswer
 

 
           Merci de nous montrer la ligne corrigée parce que là on ne voit rien de nouveau !
 
           Sinon c'est l'icône avec un C pour le code …
 

n°2187858
matteodu
Posté le 28-04-2013 à 11:26:43  profilanswer
 

1 Private Sub BC_calculer_Click()
 
 
2 If (zt_nom.Text <> "" ) And (zt_prenom.Text <> "" ) Then
 
3 L_nom_prenom.AddItem (zt_nom.Text) & " " (zt_prenom.Text) <-------- modification sans résultat
 
 
4 Else
5 MsgBox ("il faut saisir un nom" )
 
6 End If
 
7 If (L_nom_prenom.ListCount > 0) Then
8 BC_calculer.Enabled = True
9 End If
 
 
10 zt_nom.Text = ""
11 zt_nom.SetFocus
12 zt_prenom.Text = ""
13 zt_prenom.SetFocus
14 End Sub

n°2187863
Marc L
Posté le 28-04-2013 à 13:42:28  profilanswer
 

 
           Normal car schématiquement, concaténer avec l'opérateur & trois éléments A, B et C :
 
                                  A & B & C
 
           Toi tu as fait :   A & B C
 
           C'est comme pour l'addition de trois nombres, si un signe + est oublié …
 
 

n°2192506
Profil sup​primé
Posté le 01-06-2013 à 22:56:27  answer
 

L_nom_prenom.AddItem (zt_nom.Text) & " " & (zt_prenom.Text)
 
Voici la réponse..


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VB concatenation de texte

 

Sujets relatifs
Expression blend 4:création de librairies pour VB Express 2010Enregister texte de textbox
Rechercher les lignes les plus pertinentes contenues dans un textemise a jour d'un fichier texte
Pb pour fermer programme avec touche clavier. (VB)Petit soucis avec code checkbox sur VB
Création de DLL sur VBWord VB et calcul sur des objets insérés
[RESOLU] Générateur de texte sur imageproblème de superposition texte/image sur iphone
Plus de sujets relatifs à : VB concatenation de texte


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR