Workbook_open et ComboBox

Version imprimable

Bonjour tout le monde,

J'ai un léger problème.

Afin que mes combobox soient prêts Quand j'ouvre le fichier, j'utilise le code suivant :

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
Private Sub Workbook_Open()
 
ComboBox1.AddItem Worksheets("Feuil3").Range("A1")
ComboBox1.AddItem Worksheets("Feuil3").Range("A2")
 
Cable.AddItem Worksheets("Feuil3").Range("C1")
Cable.AddItem Worksheets("Feuil3").Range("C2")
Cable.AddItem Worksheets("Feuil3").Range("C3")
 
rupteur.AddItem Worksheets("Feuil3").Range("A7")
rupteur.AddItem Worksheets("Feuil3").Range("A8")
 
ComboBox2.AddItem Worksheets("Feuil3").Range("A4")
ComboBox2.AddItem Worksheets("Feuil3").Range("A5")
 
pose.AddItem Worksheets("Feuil3").Range("F1")
pose.AddItem Worksheets("Feuil3").Range("F2")
pose.AddItem Worksheets("Feuil3").Range("F3")
pose.AddItem Worksheets("Feuil3").Range("F4")
pose.AddItem Worksheets("Feuil3").Range("F5")
 
Naturesol.AddItem Worksheets("Feuil2").Range("J31")
Naturesol.AddItem Worksheets("Feuil2").Range("J32")
Naturesol.AddItem Worksheets("Feuil2").Range("J33")
Naturesol.AddItem Worksheets("Feuil2").Range("J34")
Naturesol.AddItem Worksheets("Feuil2").Range("J35")
 
End Sub

Mais ce code n'a pas l'air de fonctionner, il affiche "Objet requis".
Comment puis-je remédier à ce problème?

Merci de votre attention.

Bonjour à tout le forum,

dans
Code:

1 2 3 4 5 Private Sub Workbook_Open() TonUSF.Show End Sub
Dans le module de TonUSF
Code:

1 2 3 4 5 Private Sub TonUSF_Initialize() Ton Code End Sub
Bon Courage

Bonjour,

Tu dois préciser où se situent tes combobox, il ne peut pas le deviner.
Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
 
With Userform1
   .ComboBox1.AddItem Worksheets("Feuil3").Range("A1")
   .ComboBox1.AddItem Worksheets("Feuil3").Range("A2")
 
   .Cable.AddItem Worksheets("Feuil3").Range("C1")
   .Cable.AddItem Worksheets("Feuil3").Range("C2")
   'etc...
 
    .Naturesol.AddItem Worksheets("Feuil2").Range("J35")
End With
 
End Sub

21/04/2008, 13h16
Shadow5

Bonjour fring,

mes combobox ne se trouve pas sur userform, mai sous feuille excel "Feuil1"

Si cette info peut t'aider....

Merci pour l'idée, fring:king:

J'obtiens donc le code suivant :

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 Workbook_Open()
 
With Feuil2
 
.ComboBox1.AddItem Worksheets("Feuil3").Range("A1")
.ComboBox1.AddItem Worksheets("Feuil3").Range("A2")
 
.Cable.AddItem Worksheets("Feuil3").Range("C1")
.Cable.AddItem Worksheets("Feuil3").Range("C2")
.Cable.AddItem Worksheets("Feuil3").Range("C3")
 
.rupteur.AddItem Worksheets("Feuil3").Range("A7")
.rupteur.AddItem Worksheets("Feuil3").Range("A8")
 
.ComboBox2.AddItem Worksheets("Feuil3").Range("A4")
.ComboBox2.AddItem Worksheets("Feuil3").Range("A5")
 
.pose.AddItem Worksheets("Feuil3").Range("F1")
.pose.AddItem Worksheets("Feuil3").Range("F2")
.pose.AddItem Worksheets("Feuil3").Range("F3")
.pose.AddItem Worksheets("Feuil3").Range("F4")
.pose.AddItem Worksheets("Feuil3").Range("F5")
 
.Naturesol.AddItem Worksheets("Feuil2").Range("J31")
.Naturesol.AddItem Worksheets("Feuil2").Range("J32")
.Naturesol.AddItem Worksheets("Feuil2").Range("J33")
.Naturesol.AddItem Worksheets("Feuil2").Range("J34")
.Naturesol.AddItem Worksheets("Feuil2").Range("J35")
 
End With
 
End Sub

PS : Je sais, c'est idiot, mais je ne m'étais pas rendu compte avant que ma feuille1 s'appelait "Feuil2" et que ma feuille2 s'appelait "Feuil1":oops:

21/04/2008, 16h51
fring
Pour info, il y a 3 manières d'appeler une feuille
1. par sa position (de gauche à droite)
2. par son nom (Name)
3. par son code (CodeName)
Position = Sheets(1), Sheets(2), Sheets(3), etc...
Nom = Sheets("toto")
Code = Feuil1

Dans ton éditeur Visual Basic tu apperçois ceci :
Code Name --> Feuil1(Toto) <-- Name