Discussion :

[Mugette]

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.

[SilkyRoad]

bonjour

ça fonctionne de la même manière

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

Code :

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

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

michel

[Mugette]

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

[Mugette]

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

Code :

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

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

[SilkyRoad]

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 :

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

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

michel

[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 ?

[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..) ?

[SilkyRoad]

avant de remplir les combox, est ce que tu as verifié si la lecture des fichiers .ini renvoie des données

Code :

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

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

[Mugette]

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

[SfJ5Rpw8]

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

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 ..?

[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 ?

[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...

[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...

[SfJ5Rpw8]

que ve tu faire avec combobox_change..?

[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.

[SilkyRoad]

Bbil t'a donné la réponse:

Utilise l'evenement Open du module objet ThisWorkbook


michel

[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.