Comment crée-t-on une checkbox en VBA Excel

Fermé
lolokiller91 Messages postés 102 Date d'inscription mercredi 27 août 2008 Statut Membre Dernière intervention 18 avril 2011 - 2 juin 2010 à 16:24
lolokiller91 Messages postés 102 Date d'inscription mercredi 27 août 2008 Statut Membre Dernière intervention 18 avril 2011 - 2 juin 2010 à 17:01
Bonjour,


Comment crée-t-on une checkbox en VBA sur Excel ?

Merci à tous .
A voir également:

4 réponses

superpompier
2 juin 2010 à 16:37
Bonjour, cette formule est valable sur un userform si tu veux créer la checkbox en VBA
Tu peux même la placer et la dimentionner à ta guise

Set myCheckBox1 = UserForm1.Controls.Add("Forms.CheckBox.1")
With myCheckBox1
.Name = "FIOP"
("Movex_Gammes_temp").Range("c2").Offset(cpt, 0)
.Caption = "j" & 19 + cpt
.Left = 330
.Top = VH + 51
.Height = 20
.Width = 10

End With
J'espère t'avoir été utile
0
lolokiller91 Messages postés 102 Date d'inscription mercredi 27 août 2008 Statut Membre Dernière intervention 18 avril 2011 5
2 juin 2010 à 16:45
Merci pour ton aide. Mais jai un probleme :\

Quand je copie colle ton texte dans une macro et que jessaie de le compiler, il "colorie" la ligne ou ya ("Movex_Gammes_temp").Range("c2").Offset(cpt, 0) et il me met erreur de compilation: attendu numero de ligne instruction ou fin dinstruction.

Pourquoi esct ce qu'il fait ca ?
0
superpompier
2 juin 2010 à 16:54
Excuse moi j'ai été trop vite,

Je suis en train de travailler sur le fichier d'un autre gars et je n'ai pas tout vérifié...

En fait, celui ci avait une cellule de base et il utilisait la fonction offset

Set myCheckBox1 = UserForm1.Controls.Add("Forms.CheckBox.1")
With myCheckBox1
.Name = "FIOP"
.Caption = "j"
.Left = 330
.Top = VH + 51
.Height = 20
.Width = 10

End With

Je pense que tu peux travailler sans cette ligne...
0
lolokiller91 Messages postés 102 Date d'inscription mercredi 27 août 2008 Statut Membre Dernière intervention 18 avril 2011 5
2 juin 2010 à 17:01
Merci beaucoup mais j'ai encore une petite question.

Pourquoi est ce qu'il maffiche ce message Erreur d'execution 424 Objet requis. ?

Quand je clik sur debogage il me met la ligne ou ya Set myCheckBox1 = UserForm1.Controls.Add("Forms.CheckBox.1") en jaune
0