Discussion :

[Jeyjey1]

Bonjour,

je voudrais récupérer la valeur d'un combobox (a plusieurs colonnes) dans un textbox mais le probleme c'est que je veux récupérer uniquement la valeur de la deuxieme colonne, comme ceci :

Code :

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

textbox.Value = comboxbox(TextColumn = 2).Value

Mais ça ne marche pas....y a t-il une soluce? merci

[decondelite]

As-tu regardé l'explorateur d'objets? Tu as dedans une propriété de l'objet combobox qui te permettra de renvoyer une seule colonne.

[Jeyjey1]

oui je connais...mais le probleme c'est que ma textbox ne prend pas en compte le "textcolumn" de ma combobox donc je me retrouve avec la valeur de la colonne 1 au lieu de la 2
merci pour ton aide

[Didier Gonard]

bonjour,
le pb ne viendrait pas de là ?

Valeurs

Les valeurs de la propriété TextColumn sont comprises entre –1 et le nombre de colonnes de la liste. La valeur de la propriété TextColumn pour la première colonne est 1, la valeur de la deuxième colonne est 2, et ainsi de suite. La définition de la propriété TextColumn sur 0 affiche les valeurs de la propriété ListIndex. La définition de la propriété TextColumn sur –1 affiche la première colonne ayant une valeur de la propriété ColumnWidths supérieure à 0.

cf l'aide vab..

cordialement,

Didier

[Jeyjey1]

En cherchant un peu beaucoup, j'ai trouvé ceci

Code :

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

listbox.Value = combobox.Column(1)

c'est cool mais ça fonctionne sur un seul textbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub New_component2_Change()
 
fredes.Value = New_component2.Value
freadddes.Value = New_component2.Value
Engdes.Value = New_component2.Value
engadddes.Value = New_component2.Value
issue.Value = New_component2.Value
 
New_desfr.Value = fredes.Column(1) ' ça fontionne
New_adddesfr.Value = freadddes.Column(2) 'ça fonctionne pas
New_desan.Value = freadddes.Column(3)  'ça fonctionne pas
New_adddesan.Value = freadddes.Column(4)  'ça fonctionne pas
 
 
End Sub

[decondelite]

En cherchant un peu beaucoup, j'ai trouvé ceci

Code :

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

listbox.Value = combobox.Column(1)

C'est pour que tu trouves ça que je t'avais dit de chercher dans l'explorateur d'objets.

On peut voir ton fichier Excel, stp? Car là il faudrait voir tous tes objets pour te dire pourquoi ça plante.