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