Discussion :

[alexnacho]

Bonjour à tous, je viens vers vous car apres avoir fouiner un peu partout sur le net je n'y arrive toujours pas, je suis entrain de fissurer !

Je vous expose mon probleme:
Je veux donc lancer un sub (en l'occurence une combobox dont le code de remplissage est dans la feuil1) quand excel s'ouvre.
Pourquoi je veux faire ca ? Car pour l'instant quand j'ouvre excel ma combobox ne se remplit pas, il faut que j'aille dans le code et que je lance le sub manuellement pour avoir les propositions dans le menu déroulant.
Je ne veux pas qu'il y ait du code dans thisworkbook du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub thisworkbook_open 
Call combobox1 
End sub

Il faut que tout le code soit dans la feuil1 !

D'ailleurs ca ne marche pas il ne reconnait pas combobox, j'ai essayé callbyname mais sans succes.

Je pourrai faire un userform qui s’ouvrirait au demarrage puis un bouton pour lancer combobox mais c'est pareil je vais devoir ecrire dans thisworkbook pour lancer le userform et ca je ne veux pas.

Voici le code présent dans la feuil1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub ComboBox1_Change()
      With Me.ComboBox1
            ComboBox1.AddItem "Bleu"
            ComboBox1.AddItem "Blanc"
            ComboBox1.AddItem "Rouge"
      End With
End Sub

J'espere avoir été clair et que vous allez pouvoir m'aider, ce serait tellement génial !!

Merci par avance pour vos réponses.

[unparia]

Bonjour
ce qui serait "génial", serait que tu t'intéresses un tout petit peu (vraiment peu) plus sérieusement à ce que tu fais.
- Combobox1 est un objet. Il ne saurait être en soi une procédure (sub, fonction, ou autre ...)
- Combobox1_change est un évènement. Il ne saurait intervenir, comme l'indique le nom de cet évènement, que lorsqu'est modifiée (pour quelque cause que ce soit) la zone d'édition de cette combobox.
Tu veux quoi ? Ajouter des items à ta combo à l'ouverture ? Ben ===>>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ComboBox1.AddItem "Bleu"
ComboBox1.AddItem "Blanc"
ComboBox1.AddItem "Rouge"

à l'ouverture de ton classeur fera l'affaire !

[alexnacho]

Deja merci de repondre. Je suis debutant en vba donc un peu ignare!
Je viens d'essayer de mettre le code en brut en dehors du sub dans la feuil1 et il m’envoie bouler en me disant "Instruction incorrecte à l'exterieur d'une procedure"
J'ai peut etre pas compris ce que tu m'as dit de faire... Aide ???

[unparia]

"Instruction incorrecte à l'exterieur d'une procedure"
est clair
Toute instruction doit se trouver dans une procédure, soit directement évènementielle, soit, indirectement, dans une procédure elle-même appelée dans une procédure évènementielle.

Je suis debutant en vba donc un peu ignare

"Un peu" est là un euphémisme. Tu as vraiment besoin de commencer par le tout début de l'apprentissage. Tu as sur ce site des tutoriels qui, correspondant à ton cas, sont à lire, avant de tenter de foncer, tête baissée !

[boisgontierjacques]

Bonsoir,

Exemple1: Avec formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_Open()
   UserForm1.Show
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub UserForm_Initialize()
  Me.ComboBox1.AddItem "bleu"
  Me.ComboBox1.AddItem "blanc"
  Me.ComboBox1.AddItem "rouge"
End Sub
 
Private Sub ComboBox1_Change()
   Me.TextBox1 = Me.ComboBox1
End Sub

Exemple2: Sans Formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub ComboBox1_DropButtonClick()
  Me.ComboBox1.Clear
  Me.ComboBox1.AddItem "bleu"
  Me.ComboBox1.AddItem "blanc"
  Me.ComboBox1.AddItem "rouge"
End Sub

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub ComboBox1_DropButtonClick()
  Me.ComboBox1.List = Array("bleu", "blanc", "rouge")
End Sub

Boisgontier
http://boisgontierjacques.free.fr

[alexnacho]

Merci beaucoup boisgontierjacques, tu es au top !
Ca m'a grandement aidé je ne connaissais pas cet evenement, je n'ai eu qu'a rajouter une boucle while pour qu'il ne le remplisse qu'une fois du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub ComboBox1_DropButtonClick()
While z = 0
Me.ComboBox1.AddItem "bleu"
Me.ComboBox1.AddItem "blanc"
Me.ComboBox1.AddItem "rouge"
z = z + 1
Wend
End Sub

J'ai une autre question, je voudrais lancer un sub des l'ouverture d'Excel, je connais Private sub workbook_open mais ca ne marche que si tu le mets dans thisworkbook pas dans Feuil1.

Une idée de comment je pourrai contourner le probleme ? Je ne souhaite pas utiliser d'userform. Ca me servirai à directement inserer des valeurs dans mes tableaux vba des l'ouverture d'Excel.