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
Partager