Discussion :

[muzele]

Bonjour a tous,
Au fait j'ai un combobox qui contient deux mots (de longueur variable) par lignes (séparés par un espace).
Mon problème est que je voudrais que lors de mon l'action combobox1_click(), je puisse être en mesure de récuper la valeur du premier mot du combo.
Par exemple si je sélectionne la ligne: "Voiture Rouge" que je récupere "Voiture" pour ensuite l'afficher dans un label, l'enregistrer, ...
si je selectionne la ligne "Lapin Blanc", recuperer Lapin
"Porte ouverte" --> porte et ainsi de suite !
J'effectue sans problème toutes les actions mais ce qui me bloque pour l'instant c'est la récuperation du premier mot de ma selection.
Merci d'avance pour votre aide !

[ucfoutu]

Bonjour,

intéresse-toi a Instr et à Left (dans ton aide en ligne)

Profite de cette "incursion" pour apprendre également Right, Len et Mid

[OhMonBato]

Je pense que tu es capable d'obtenir la chaine de 2 mots quand l'utilisateur clique dans la combo box ?
Il ne te reste donc plus qu'à trouver où est l'espace dans la chaine obtenue en utilisant l'instruction 'instr' (tu trouveras l'aide sur son utilisation dans l'aide de VB) et à récupérer tout ce qui est à gauche de cet espace avec l'instruction 'Left', le tour est joué.
L'instruction 'Split' pourrait également être utilisée mais si tu veux seulement le premier mot, elle n'est ici pas indispensable, juste un autre moyen d'obtenir le résultat voulu.

[sovo]

Une petite recherche dans l'aide en ligne sur les mots InStr (pour trouver la position de la premiere occurence d'un caractere) et Left (Mid) (pour recuperer les x premiers caracteres d'une chaine), t'aurais donne un truc de ce genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim Pos As Integer
Private Sub Extract(Cmb as ComboBox)
    Pos = InStr(1, Cmb.List(i), " ")
    'Ici i represente l'index de ton element
 
    Msgbox Left(Cmb.List(i), Pos - 1)
End Sub

[muzele]

Merci,
ça fonctionne, j'ai du pour cela reflechir un peu et modifier des petits trucs:
mon code ressemble maintenant à celui ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub combo1_Click()
    Pos = InStr(1, combo1.List(combo1.ListIndex), " ")
    Label1.Caption = Left(combo1.List(combo1.ListIndex), Pos - 1)
End Sub

Merci encore à toi Sovo !