Msg Erreur de compilation

[loran45]

Re-Bonjour,

J aimerais ne pas trop abuser de votre gentillesse et de votre savoir mais j'ai le message d erreur suivant lorsque je lance une macro :
Erreur de compilation :
Type defini par l'utilisateur non defini

Voici la macro :
Sub Calcul_Levels()
Dim Obj As OLEObject
Dim obj2 As OLEObject
Dim Level As Integer, i As Integer
Dim L As Single, T As Single, W As Single, H As Single

i = 2
For Level = Worksheets(2).Range('N') To 1 Step -1
Worksheets(2).Select

Cells(i, 2) = Level
L = Cells(i, 6).Left
T = Cells(i, 6).Top
W = Cells(i, 6).Width
H = Cells(i, 6).Height

Set Obj = Worksheets(5).OLEObjects.Add('Forms.Checkbox.1', Left:=L, Top:=T, Height:=H, Width:=100)
Rem Obj.Name = 'Level' & i

For Each obj2 In Worksheets(5).OLEObjects
If TypeOf obj2.Object Is MSForms.CheckBox Then obj2.Object.Value = True
Next obj2
i = i + 1
Next Level
End Sub

Le message concerne a premiere vue la ligne: If TypeOf obj2.Object Is MSForms.CheckBox

j ai remplacer obj2 par obj mais c'est pareil.

Ce que je ne comprend pas c que cette macro (avec la precieuse aide d'Hervé, de Michel et de bien d autres du forum) fonctionne tres bien dans le classeur où je l'ai testé, mais quand je la met dans un nouveau classeur, qui est mon projet definitf, j ai ce message d'erreur.

Par avance un grand merci

 

[MichelXld]

bonjour Loran

tu peux essayer


Sub Calcul_Levels()
Dim Obj As OLEObject
Dim Level As Integer, i As Integer
Dim L As Single, T As Single, W As Single, H As Single

i = 2
For Level = Worksheets(2).Range('N') To 1 Step -1
Worksheets(2).Select

Cells(i, 2) = Level
L = Cells(i, 6).Left
T = Cells(i, 6).Top
W = Cells(i, 6).Width
H = Cells(i, 6).Height

Set Obj = Worksheets(5).OLEObjects.Add(\\'Forms.Checkbox.1\\', Left:=L, Top:=T, Height:=H,
Width:=100)
Obj.Object.Value = True

i = i + 1
Next Level
End Sub


bon apres midi
MichelXld

 

[loran45]

Oui çà marche mieux

un grand merci Michel

Bon apres midi

Loran