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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!