[VBA-excel]initialiser une combobox dans worksheet

Version imprimable

19/09/2006, 11h39
Mugette

[VBA-excel]initialiser une combobox dans worksheet

Bonjour,
Pourriez-vous me dire comment initiliser des ComboBox dans une Worksheet
je sais le faire sur un userform, mais pas sur une worksheet.
Merci d'avance.
19/09/2006, 12h06
SilkyRoad

bonjour

ça fonctionne de la même manière

tu dois simplement préciser le nom de la feuille devant l'objet

Code:

Sheets("Feuil1").ComboBox1.AddItem ....

michel
19/09/2006, 12h10
Mugette

ouais logique, j'avais essayé mais j'étais pas convaincu.
merci en tout cas.

Voici ma fonction de remplissage de mes combobox dans une feuille mais ça marche, quelqu'un a un idée ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Private Sub UserForm_Initialize()
 
fic_ini = "L:\Dev\Fichiers_ini\"
book_chemin = "D:\Dev\informatica_new_version"
Worksheets("Bienvenue").annee_box.Value = Year(Date)
Worksheets("Bienvenue").jour_box.Value = Day(Date)
Worksheets("Bienvenue").mois_box.Value = Month(Date)
 
 
  Open Path + "annee.ini" For Input As #1
  While Not EOF(1)
   Input #1, liste
   Workbooks(book_chemin + "traitements siebel j-1 v3.xls").Worksheets("Bienvenue").annee_box.AddItem Trim(liste)
  Wend
 Close #1
 
  Open Path + "mois.ini" For Input As #1
  While Not EOF(1)
   Input #1, liste
   Workbooks(book_chemin + "traitements siebel j-1 v3.xls").Worksheets("Bienvenue").mois_box.AddItem Trim(liste)
  Wend
 Close #1
 
  Open Path + "jour.ini" For Input As #1
  While Not EOF(1)
   Input #1, liste
   Workbooks(book_chemin + "traitements siebel j-1 v3.xls").Worksheets("Bienvenue").jour_box.AddItem Trim(liste)
  Wend
 Close #1
 
 End Sub

Mugette

19/09/2006, 13h29
SilkyRoad

Citation:

Voici ma fonction de remplissage de mes combobox dans une feuille mais ça marche

peux tu donner plus de precision?
qu'est ce qui ne marche pas?
ça bloque sur quelle ligne quelle est le message d'erreur?
quel est le nom de la comboBox dans ton projet ,

un exemple pour remplir une ComboBox

Code:

Sheets("Feuil1").ComboBox1.AddItem "azerty"

michel
19/09/2006, 14h33
Mugette

Alors j'ai créer une fonction qui permet de remplir directement (userform_initialize).
Cependant cette fonction ne se lance pas.
Ensuite, je n'ai pas de message d'erreur.
Enfin j'ai 3 combobox a remplir (jour_box, mois_box, _annee_box) par un fichier .ini pour chacun.
Faut-il que je mette chaque "module" de remplissage dans le Sub Combobox_Change ?
19/09/2006, 15h03
SfJ5Rpw8

bon tu est usr une feuille de calcul excel ou dans un userform ...?
tu as une autre combobox aux doux nom de combobox (en plus des jour,mois..) ?
19/09/2006, 15h08
SilkyRoad
avant de remplir les combox, est ce que tu as verifié si la lecture des fichiers .ini renvoie des données
Code:

1 2 3 4 5 6 Open Path + "mois.ini" For Input As #1 While Not EOF(1) Input #1, liste MsgBox Trim(liste) Wend lose #1
michel
19/09/2006, 15h31
Mugette

je suis sur une feuille nommé Bienvenue.
et non je n'ai pas d'autres Combobox nommé autrement.
Cdt,
Mugette
19/09/2006, 15h34
SfJ5Rpw8

Citation:

Envoyé par Mugette

......
Faut-il que je mette chaque "module" de remplissage dans le Sub Combobox_Change ?

Citation:

Envoyé par Mugette

je suis sur une feuille nommé Bienvenue.
et non je n'ai pas d'autres Combobox nommé autrement.
Cdt,
Mugette

bon ben alors c'est quoi pour toi l'événement qui déclenche la procédure Combobox_Change ..?
19/09/2006, 15h37
Mugette

Bah justement c'est ça qui me dérange. Je voudrais que les ComboBox se charge automatiquement à l'ouverture du fichier comme dans un UserForm.
Est-ce possible ?
19/09/2006, 15h52
SfJ5Rpw8

ben comme tu utilise les événements d'un userform , utilise ceux associé à ton classeur (ThisWorkBook...) ou ta feuille de calcul(WorkSheet...)

dans l'éditeur VBE.. tu parcours l'arborescence à gauche .. et double clic sur ThisWorkbook par exemple .. puis sélection de l'événement open dans le combo box en haut...
19/09/2006, 16h00
Mugette

j'ai mis mes 3 Combobox_change dans la feuille "ThisWorkbook" mais rien ne déclenche l'evenement.
que dois-je rajouter je sais pas trop quoi faire...
19/09/2006, 16h08
SfJ5Rpw8

que ve tu faire avec combobox_change..?
19/09/2006, 16h25
Mugette

Je m'explique:
J'ai une feuille dans mon classeur ou j'ai 3 ComboBox insérées directement.
Je voudrais qu'à l'ouverture du fichier les trois ComboBox soient remplies (à l'aide de fichiers ini).
Mon souci est que je sais le faire vie un UserFom mais pas directement sur une feuille Excel.

Cdt,
Mugette.
19/09/2006, 16h35
SilkyRoad

Bbil t'a donné la réponse:

Utilise l'evenement Open du module objet ThisWorkbook

michel
20/09/2006, 11h29
Mugette

Oui c'est bon, j'ai reussi, je ne le voyais pas au début, car je n'utilise jamais le déclencheur d'evenement.
Merci à tous.