Valeurs associées, select combobox(VB) retour ds cellules ExcelRésolu

Question

Je suis sur Excel et utilise le VB d'excel! Contexte : je doublclic sur une cellule de la colonne C sur excel, une userform s’ouvre, sur celle-ci on a un bouton "valider" et une "combo box", je sélectionne dans la liste de la combobox une donnée lorsque je clic sur mon bouton valider actuellement Private Sub CommandButton1_Click() ActiveCell.Value = ComboBox1.Text End Subla donnée va bien dans la cellule présélectionnée, jusque la tout va bien En fait je souhaiterai créer un deuxième bouton '' Private Sub CommandButton2_Click()'' (peut etre pas indispensable) et je souhaiterai en cliquant sur ce bouton, qu’il vienne affecter une valeur a la cellule de gauche colonne B, qui ce trouve juste a coté de la cellule colonne C qui a été présélectionnée exemple dans mon prog, dans la combobox, g une liste, dans cette liste je sélectionne ''toto'' en sélectionnant "toto", celui ci vient ce mettre dans la cellule présélectionné sur Excel (colonne c) après le clic sur bouton valider (1) et je souhaiterai donc que par exemple associé a toto on retrouve dans la cellule juste a ça gauche (colonne B), la valeur ''113D'' alors, soit kan je clic sur le bouton valider(1) en même tps que toto soit en cliquant sur un autre bouton 2 par exemple! Comment pourrai je faire?ps: il faudrait également que kan je sélectionne ''tata'' dans la liste ce soit un autre code par exemple ''059 C'' qui vienne s'afficher a gauche sur Excel tjrs. ce sont des codes associés a des phrases. svp merci

valtrase · Accepted Answer

Re,
Je t'ai r&#233;pondu sur l'ancien post
@+ 

C'est ici si tu l'as perdu

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

jpleroisse · Answer

Private Sub UserForm_Initialize()
 ComboBox1.AddItem "Toto"
   ComboBox1.AddItem "Tata"
End Sub


Private Sub Combobox1_Click()
Select Case ComboBox1.ListIndex
Case 0
Range("F15").Value = "113D"
Case 1
Range("D8").Value = "059C"
End Select
End Sub


jpleroisse

Valeurs associées, select combobox(VB) retour ds cellules Excel

2 réponses

Discussions similaires