Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Renvoi valeur ComboBox à 3 colonnes

Renvoi valeur ComboBox à 3 colonnes

4 réponses
Avatar
Xavier
Bonjour à tous,

J'ai 1 TextBox1
1 ComboBox1 à 3 colonnes

Je voudrais envoyer la valeur de la 2ème colonne dans mon TextBox1.
Je pensais que...

Private Sub ComboBox1_Change()
Me.TextBox1.Value = Me.ComboBox1.Column(2, Me.ComboBox1.ListIndex).Value
End Sub

... marcherait.

Ben ça marche pas.

Comment faire.
Merci pour vos réponses.
Xavier
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
lSteph
Bonsoir,

si j'ai bien compris:

Private Sub ComboBox1_Change()
ComboBox1.TextColumn = 2
TextBox1 = ComboBox1.Text
End Sub

'lSteph
"Xavier" a écrit dans le message de news:

Bonjour à tous,

J'ai 1 TextBox1
1 ComboBox1 à 3 colonnes

Je voudrais envoyer la valeur de la 2ème colonne dans mon TextBox1.
Je pensais que...

Private Sub ComboBox1_Change()
Me.TextBox1.Value = Me.ComboBox1.Column(2, Me.ComboBox1.ListIndex).Value
End Sub

... marcherait.

Ben ça marche pas.

Comment faire.
Merci pour vos réponses.
Xavier


Avatar
JB

Me.TextBox1 = Me.ComboBox1.Column(1) ' 0 1ere colonne

ou
Me.TextBox1 = Me.ComboBox1.List(Me.Choix.ListIndex, 1)

JB

Bonjour à tous,

J'ai 1 TextBox1
1 ComboBox1 à 3 colonnes

Je voudrais envoyer la valeur de la 2ème colonne dans mon TextBox1.
Je pensais que...

Private Sub ComboBox1_Change()
Me.TextBox1.Value = Me.ComboBox1.Column(2, Me.ComboBox1.ListIndex).Value
End Sub

... marcherait.

Ben ça marche pas.

Comment faire.
Merci pour vos réponses.
Xavier


Avatar
Xavier
merci pour vos réponses mais pour les deux exemples, j'ai un message

Erreur d'éxecution "438"


Bonjour à tous,

J'ai 1 TextBox1
1 ComboBox1 à 3 colonnes

Je voudrais envoyer la valeur de la 2ème colonne dans mon TextBox1.
Je pensais que...

Private Sub ComboBox1_Change()
Me.TextBox1.Value = Me.ComboBox1.Column(2, Me.ComboBox1.ListIndex).Value
End Sub

... marcherait.

Ben ça marche pas.

Comment faire.
Merci pour vos réponses.
Xavier


Avatar
JB
Voir exemple:http://cjoint.com/?imhbXLCRrC

JB


merci pour vos réponses mais pour les deux exemples, j'ai un message

Erreur d'éxecution "438"


Bonjour à tous,

J'ai 1 TextBox1
1 ComboBox1 à 3 colonnes

Je voudrais envoyer la valeur de la 2ème colonne dans mon TextBox1.
Je pensais que...

Private Sub ComboBox1_Change()
Me.TextBox1.Value = Me.ComboBox1.Column(2, Me.ComboBox1.ListIndex).Va lue
End Sub

... marcherait.

Ben ça marche pas.

Comment faire.
Merci pour vos réponses.
Xavier