Pb CheckBox Excel 2007 EN

Bonjour à tous!

Je suis actuellement en stage et je dois reprendre tout un code de macro d'excel 2003 FR pour le repasser sous Excel 2007 EN.

Le pb est que je ne sais pas du tout comment faire une checkBox et le code du stagiaire de l'année dernière ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub CreateCheckBox(name As String, right As Long, top As Long)   'recuperation de la largeur de la feuille graphique Dim chartWidth As Double chartWidth = ActiveChart.ChartArea.Width   'déclaration de la case à cocher Dim myCheckBox As Shape   'création de la case à cocher Set myCheckBox = ActiveSheet.Shapes.AddFormControl(xlCheckBox, _ chartWidth - right, top, 80, 10)   'modification du nom et du label de la case à cocher nameLabel = left(name, Len(name) - 2) 'supprime le numero du checkbox myCheckBox.name = name ActiveChart.Shapes(name).Select //Plantage Ici RunTime Error -2147024809 (80070057)

---

Pouvez vous m'aider à résoudre cette erreur que je ne comprends pas???

Merci bcp à vous tous!

le ".select" correspond à l'objet où va être placer le curseur.

Exemple : Si tu fais Cellule(Ligne1; Colonne1).select

Ton curseur sera sur la premiere cellule.

Pourquoi je ne peux pas la sélectionner?

Code:

---

1 2	Set myCheckBox = ActiveSheet.Shapes.AddFormControl(xlCheckBox, _ chartWidth - right, top, 80, 10)

---

n'a pas pour but de la créer?

Si je ne me trompe pas un set est une affectation de valeur

Donc si tu veux le créer regarde les méthodes de Shapes, dans l'explorateur d'objet(F2)

Arf j'y comprends pas grand chose....

Saurais tu comment crééer une checkbox sous excel 2007? Là je galère un peu l'info c'est pas mon truc....

Le pb est que je suis sur excel 2007 et que je n'ai aucune base de vba. Je ne sais donc pas du tout comment mettre ne place une checkBox sous Excel 2007 et je ne trouve pas grand chose à ce sujet.


Merci