VBA 2003 présence du caractère espace " "

Résolu/Fermé
Nospam54 Messages postés 152 Date d'inscription jeudi 16 avril 2009 Statut Membre Dernière intervention 15 novembre 2017 - 9 mai 2012 à 12:32
Nospam54 Messages postés 152 Date d'inscription jeudi 16 avril 2009 Statut Membre Dernière intervention 15 novembre 2017 - 9 mai 2012 à 13:00
Bonjour,

Je suis en train de programmer une appli. A un moment, dans un textbox, l'utilisateur à la possibilité de récupérer le nom de famille (et uniquement le nom de famille) saisi dans un précédent textbox.
J'utilise pour cela le caractère espace (entre le nom et le prénom du précédent textbox).
Voici mon code : txtNomPart1.Text = Left(lblTireur, InStr(lblTireur, " ") - 1)

Ça marche très bien si un prénom a été saisi à la suite du nom puisque le caractère espace a été trouvé.
Par contre ça plante si seulement le nom de famille a été saisi dans le précédent textbox.
Il me faut donc tester la présence ou non du caractère espace à la droite du nom de famille.

Quelqu'un a-t-il une idée de la façon de faire ?

Merci d'avance !



A voir également:

1 réponse

Nospam54 Messages postés 152 Date d'inscription jeudi 16 avril 2009 Statut Membre Dernière intervention 15 novembre 2017 13
9 mai 2012 à 13:00
C'est bon... on est jamais mieux servi que par soi-même ^^
J'ai trouvé en codant ainsi :

If InStr(" ", lblTireur) = 0 Then
txtNomPart1.Text = lblTireur
Else
txtNomPart1.Text = Left(lblTireur, InStr(lblTireur, " ") - 1)
End If
1