Discussion :

[Shadow5]

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 :

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

[Jean-Pierre49]

Bonjour à tout le forum,

dans

Code :

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

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

Dans le module de TonUSF

Code :

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

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

Bon Courage

[fring]

Bonjour,

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

Code :

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

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

[Shadow5]

Bonjour fring,

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

Si cette info peut t'aider....

[Shadow5]

Merci pour l'idée, fring

J'obtiens donc le code suivant :

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 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"

[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