Chaines de caractères VBA

Fermé
choco_ben - 12 mai 2010 à 11:39
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 12 mai 2010 à 15:45
Bonjour à tous,

Voici mon problème :

J'ai une chaine de caractère dans un combobox composé d'un code point de vente et d'un nom d'agence. (Exemple : _
134567 - MARCHAND
1111123234 - PASCAL
1234 - CHARLES )
Je souhaiterais avoir dans une variable appelé agence, uniquement le code point de vente (A noter que celui-ci possède une dimension variable).
Il faudrait par conséquent que je prélève en partant de la gauche tous les caractères différents d'un espace. Par exemple je voudrais que agence = "134567" sans le PASCAL si l'utilisateur a sélectionné ce point de vente dans le formulaire.
Je ne sais pas comment m'y prendre ...

merci d'avance pour vos réponses !

2 réponses

Bonjour,
Il faudrait procéder en deux étapes :

1 - utiliser la fonction inStr() pour trouver la position du premier caractère espace dans la chaine
2 - utiliser la fonction left() pour récupérer les X premiers caractères de la chaine (en fonction de la position de l'espace)

Cordialement, M.
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
12 mai 2010 à 15:45
Bonjour,
Peut-être comme ça ?
Sub Test1()
Dim T As String, TB
Dim Agence As String
T = "1111123234 - PASCAL " 'Pour le test
    TB = Split(T, " "): Agence = TB(0)
End Sub

A+
0