Changer les propriétés d'une checkbox à sa création

Bonjour à tous,

Je débute en VBA et je bloque lors de la création d'une checkbox, plus précisément lorsque je veux changer sa valeur par défaut et le nom affiché sur la checkbox (pas le nom de l'objet en lui même).

Voici le code qui permet de créer une checkbox (trouvé sur internet):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub CreationCheckBox()   Dim Obj As OLEObject Dim L As Double, T As Double, W As Double, H As Double   L = Range("N12").Left T = Range("N12").Top W = Range("N12:O12").Width H = Range("N12").Height   Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=L, Top:=T, Width:=W, Height:=H)   End Sub

---

Il fonctionne très bien.
Mais lorsque je rajoute ces deux lignes à la fin :

Code:

---

1 2	ActiveSheet.CheckBox1.Caption = "Courbe T1" ActiveSheet.CheckBox1.Value = True

---

Ça me met une erreur.
Le plus troublant c'est que lorsque je relance une deuxième fois le code, une checkbox 2 est crée (normal) et ma checkbox 1 a bien son nom et sa valeur par défaut changé comme je veux.

Une idée?

Merci

Bonjour,

non pas d'idée sans le minimum requis par les règles de ce forum !
A savoir le code d'erreur et son message ainsi que la ligne déclenchant cette erreur …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

C'est bien d'utiliser la variable Obj mais c'est dommage de ne pas l'utiliser à la suite

Code:

---

1 2 3 4

With Obj.Object .Caption = "Courbe T1" .Value = True End With

---

Parfait ça marche :)
Mais pourquoi utiliser .Object et pas .OLEObject comme dans la déclaration de "obj" ?