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.