chiffre dans combobox

[Dydou76]

Bonjour,
j'ai un petit souci avec ma combobox qui est alimenté par des numéro de bacs et je voudrai que ça m'affiche tu texte dans un textbox. Par exemple: combobox je choisi 21 et quand je valide ça m'affiche du texte dans ma textbox Ex: le bac 21 contiens du produit chaud. Mais mon souci c'est que j'ai un message "erreur d'exécution 13".

mon code ci-dessous

Private Sub CommandButton5_Click()
Sheets("Pense-bete").Activate
Dim Ligne As Long
Ligne = Application.Match(Me.ComboBox3.Value, [S:S], 0)
Me.TextBox3.Text = Application.Index([T:T], Ligne, 1)
End Sub

Merci si vous pouvez m'aider.

 

[Eric 45]

Bonsoir à toutes et tous
Bonsoir Dydou76

Si j'ai bien compris :

Private Sub ComboBox1_Change()
TextBox1 = ComboBox1.Value
End Sub

Eric

 

[Dydou76]

Bonjour tout le monde

Merci Eric d'avoir répondu mais malheureusement c'est pas ça lol
je joint un fichier pour mieux m'expliquer !!!

Merci d'avance

 

[laetitia90]

bonjour dydou ,eric

un exemple basic

 

[Dydou76]

Merci beaucoup Laetitia

Serait il possible d'avoir la même chose mais avec un bouton "valider" ? c'est à ce moment là que le message d'erreur s'affiche.

 

[laetitia90]

re
avec ton bouton ....c'est quand plus simple en manipulant la combo mais sans connaitre ton but exact

 

[Dydou76]

Bonjour,

Mille merci Laetitia, le bouton est juste pour le coté visuel, j'ai fait un userform avec plusieurs combobox (je te joint une copie écran pour mieux te rendre compte. Et comme il y à un bouton "Valider" sur les autres j'en voulais un aussi sur celui la lol
Encore merci.
Denis

 

[Dydou76]

Bonjour Laeticia, j'ai copié le code que tu m'a donné mais mon souci c'est que les infos sont sur une autre page que le lanceur d'userform et ca ne marche pas lol dsl

 

[youky(BJ)]

Bonsoir à tous,
A tester, le +important, j'ai ajouté Val(......
La fonction match ne trouvait pas car le combo renvoie un chiffre en text
Bruno
Private Sub CommandButton5_Click()
Sheets("Pense-bete").Activate
Dim Ligne As Long
Ligne = Application.Match(Val(Me.ComboBox3.Value), [S:S], 0)
Me.TextBox3.Text = cells(Ligne,1) 'Application.Index([T:T], Ligne, 1)
End Sub

 

[laetitia90]

re ,bonsoir youky

en manipulant With ou sans.... attention dans With tu remarqueras un point avant range & cells
j'ai une preference en faisant toujours appel au code_Name de la feuile plus simple

refait une petite demo avec explications

la feuil1 renommée essai ........appel de la feuil2