ComboBox Excel

lemalin -  
Bonjour,

je souhaite créer via la boite à outils controles d'excel une combobox qui affiche des éléments et qui renvoie chacun vers un onglet excel.
deja je n'arrive pas à ajouter des éléments dans la combobox, et il faut que chaque élément renvoie à un onglet!
quand je double clique sur la combobox il m'affiche Private Sub ComboBox1_Change()
et je mets par exemple ComboBox1.AddItem RDV et ca ne m'affiche pas RDV dans la combobox pourquoi?
Merci pour votre aide

5 réponses

  2. JvDo
    Bonjour,

    voilà : https://www.cjoint.com/?krnwG8t4dF
    enfin, peut-être...

    A+
    1. Sirius91
      bonjour,

      j'ai "suivi" la conversation d'il y a un petit moment deja avec LEMALIN en octobre 2006 concernant la combobox.
      Vous lui avez donné un lien https://www.cjoint.com/?krnwG8t4dF
      Mais il ne fonctionne plus..

      Pouriez m'aider aussi??!!

      Pour faire simple, je suis debutant et je cherche a remplir un combobox. je voudrais que dans la programation, un lien soit fais vers une base de donnée qui remplirais la combo..
    2. Sirius91
      D'avance Merci !! ;-)
  3. lemalin
    Merci beaucoup c'est exactement ca
    je te remercierai jamais assez
    bon aprem
    1. lemalin
      je t'embete encore dsl
      et si je veux que combobox1 renvoie à test1, test2
      et combobox2 renvoie a test3, test4
      etc.
      je fais comment?
      merci encore
      2. JvDo
        tu dupliques les procédures : 
        Private Sub ComboBox1_Click()
    Sheets(ComboBox1.Value).Activate
End Sub
Private Sub ComboBox2_Click()
    Sheets(ComboBox2.Value).Activate
End Sub
Private Sub ComboBox3_Click()
    Sheets(ComboBox3.Value).Activate
End Sub

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.Clear
    ComboBox1.AddItem Sheets(2).Name
    ComboBox1.AddItem Sheets(3).Name
End Sub
Private Sub ComboBox2_DropButtonClick()
    ComboBox2.Clear
    ComboBox2.AddItem Sheets(4).Name
    ComboBox2.AddItem Sheets(5).Name
End Sub
Private Sub ComboBox3_DropButtonClick()
    ComboBox3.Clear
    ComboBox3.AddItem Sheets(6).Name
    ComboBox3.AddItem Sheets(7).Name
End Sub


        A+