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!