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 vb : Sélectionner tout - Visualiser dans une fenêtre à part
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 vb : Sélectionner tout - Visualiser dans une fenêtre à part
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