Bonjour,

J'aimerai ajouter un combobox et un label dans une feuille, mais j'ai toujours ce message d'erreur qui apparaît...ET Franchement je ne vois pas pourquoi....
code:
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub panneau_Accueil()
Dim combo As OLEObject
Dim e, tablocombo, i, lab
 
  Application.ScreenUpdating = False
With Worksheets("Feuil2")
    .Activate
   'on ajoute les combobox
        For i = 1 To 2
            ReDim tablocombo(4)
            tablocombo(0) = "Choix..."
            tablocombo(1) = "Re 1"
            tablocombo(2) = "Re 2"
            tablocombo(3) = "Re 3"
            tablocombo(4) = "Re 4"
        Set combo = .OLEObjects.Add("Forms.ComboBox.1")
            With combo
                .Name = "ComboBox" & i
                .Object.columnCount = 1
                .Height = 20
                .Width = 120
                .Left = .Parent.Columns("C").Left 'Coin supérieur gauche aligné au niveau de la colonne "C"
                .Top = .Parent.Rows(2).Top 'Coin supérieur gauche aligné sur la ligne n°2
                .Object.Clear
                .Object.List = tablocombo
                .Object.ListIndex = 0
 
            End With
 
 
            Set lab = .OLEObjects.Add("Forms.Label.1")
            With lab
                .Name = "Label" & i
                .Object.Caption = "Choix N°1"
                .Object.ForeColor = vbBlack
                .Object.BackColor = vbGreen
                .Height = 20
                .Object.Font.Size = .Height / 1.2
                .Width = 116
                '.Left = 
                '.Top = 
 
            End With
        Next
End with
Application.ScreenUpdating = True
End sub
Merci d'avance