Discussion :

[Adriano75015]

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

[Marc-L]

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

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Obj.Object
    .Caption = "Courbe T1"
    .Value = True
End With

[Adriano75015]

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