Discussion :

[Sebphyto]

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

[joe.levrai]

Bonjour,

si tu testes en mode pas à pas (avec des points d'arrêts) c'est normal : la création de OLEOBject n'est pas possible dans ce cas.

lance ta procédure sans point d'arrêt et sans mode pas à pas, ça devrait bien se passer

[Sebphyto]

Oh put....c pas vrai

Juste pour çà!!!!grrrrr

Et pourquoi c pas dispo en pas à pas, il y a certainement une bonne raison?
Merci Joe

[joe.levrai]

J'aurai tendance à penser que c'est une sécurité liée à ce qui se passe en arrière plan côté Excel. Quand tu insères un objet, il me semble qu'il se référence dans des fichiers dédiés (type *.EXD)

Je ne sais pas précisément comment ça fonctionne, mais j'imagine sans peine qu'en mode arrêt, l'ensemble de la "tambouille" d'arrière plan ne se finalise pas correctement ... du coup Microsoft a bloqué la création dans ce contexte ?

[Sebphyto]

Merci joe,

cela me parait plausible

Seb, bonne journée