OLEObject " impossible d'entrer en mode arrêt"

Version imprimable

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....:weird:
code:

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

29/02/2016, 12h54
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 :mrgreen:
29/02/2016, 13h01
Sebphyto

Oh put....c pas vrai

Juste pour çà!!!!grrrrr :mur:

Et pourquoi c pas dispo en pas à pas, il y a certainement une bonne raison?
Merci Joe
29/02/2016, 13h09
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 ?
29/02/2016, 13h13
Sebphyto

Merci joe,

cela me parait plausible

Seb, bonne journée