Recuperer Valeur dans Combobox

[tyruso]

Bonjour,

Voila mon soucis. J'ai une Combobox avec une liste. Cette liste correspond à des onglets de mon Classeur.

Comment faire pour faire une formule afin d'utiliser cette valeur de la combo box.
Je vous joint mon fichier.

Merci à tous

 

[Dull]

Re : Recuperer Valeur dans Combobox

Salut tyruso, le Forum

Pas certain d'avoir compris mais si tu veux que la valeur du textBox1 ailles dans la feuille du ComboBox1 en A20 essaye:

Private Sub CommandButton1_Click()
'Il faudrait avoir la cellule A20 de l'onglet inscrit dans la combobox
Sheets(CStr(ComboBox1)).[A20] = UserForm1.TextBox1
Unload UserForm1
End Sub

Bonne Journée

 

[tyruso]

Re : Recuperer Valeur dans Combobox

Merci c'est exactement ce que je voulais.

Ensuite, comment faire pour que cette fois ci, la valeur de la combobox soit une colonne de l'onglet TRI 1.
Par exemple dans l'onglet TRI 1 et plusieurs colonnes TRI 1, TRI 2, TRI 3 etc..

Merci

 

[Dull]

Re : Recuperer Valeur dans Combobox

Re,

Peux tu mettre un Fichier explicite de ce que tu veux avec des exemples concrets car dans le ComboBox ce sont des feuilles et non des colonnes. Peut-être mettre une deuxième ComboBox avec les colonnes en correlation avec la Feuille choisie.

A te relire

Bonne Journée

 

[tyruso]

Re : Recuperer Valeur dans Combobox

En fait, il ne faut pas regarder le tableau d'avant. J'essaye plusieurs solution.
J'ai le meme userform.

Je voudrais qu'a la validation de mon bouton, les valeurs dans mes textbox aillent dans la colonne correspondante qui est noté dans le combobox1

Mon onglet TRI à en A1: TRI 1, en B1:TRI 2 etc...
Lorsque je valide le userform, la valeur en NBR1 aille en A2 si le combobox est TRI 1 ou en B2 si le combobox est TRI 2 etc . . . pour toutes les valeurs dans mes textbox

Private Sub ComboBox1_Change()
Dim x
x = Val(ComboBox1)
End Sub

Private Sub CommandButton1_Click()
Sheets("TRI").Cell(x, 1).Value = UserForm1.NBR1
Unload UserForm1
End Sub