Discussion :

[tonave]

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!

[erfindel]

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.

[tonave]

Pourquoi je ne peux pas la sélectionner?

Code :

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

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

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

[erfindel]

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)

[tonave]

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