Bonjour tout le monde,
Je suis actuellement en stage sur un banc de test automatique. Ce banc utilise donc des données qu'il doit ensuite analyser, trier et tracer les graphiques correspondants. Bref, durant les années précédentes, certains stagiaires ce sont donc attelés à écrire des macro sous Excel 2003.
Apparement tout fonctionnait. Mais aujourd'hui, l'entreprise est passée sous 2007 et les macros ne marchent plus. Mon problème vient apparement d'une check box. Voici le code où il y a plantage :
Sub CreateCheckBox(name As String, right As Long, top As Long)
'recuperation de la largeur de la feuille graphique
Dim chartWidth As Double
'déclaration de la case à cocher
Dim myCheckBox As Shape
chartWidth = ActiveChart.ChartArea.Width
'création de la case à cocher
Set myCheckBox = ActiveChart.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
Selection.Characters.Text = nameLabel
Selection.PrintObject = False 'objet invisible à l'impression
'modification de la couleur de fond et de l'emplacement du checkbox
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 7
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.left = chartWidth - right
Selection.ShapeRange.top = top
'validation par défaut de la case à cocher
myCheckBox.ControlFormat.Value = 1
.........
Pouvez vous m'aider à déterminer d'où vient cette erreur?
Je n'y connais pas grand chose au VBA mon sujet de stage ne devait pas porter sur Excel... Oh surprise!
Merci à vous
Tony
Je suis actuellement en stage sur un banc de test automatique. Ce banc utilise donc des données qu'il doit ensuite analyser, trier et tracer les graphiques correspondants. Bref, durant les années précédentes, certains stagiaires ce sont donc attelés à écrire des macro sous Excel 2003.
Apparement tout fonctionnait. Mais aujourd'hui, l'entreprise est passée sous 2007 et les macros ne marchent plus. Mon problème vient apparement d'une check box. Voici le code où il y a plantage :
Sub CreateCheckBox(name As String, right As Long, top As Long)
'recuperation de la largeur de la feuille graphique
Dim chartWidth As Double
'déclaration de la case à cocher
Dim myCheckBox As Shape
chartWidth = ActiveChart.ChartArea.Width
'création de la case à cocher
Set myCheckBox = ActiveChart.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
Selection.Characters.Text = nameLabel
Selection.PrintObject = False 'objet invisible à l'impression
'modification de la couleur de fond et de l'emplacement du checkbox
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 7
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.left = chartWidth - right
Selection.ShapeRange.top = top
'validation par défaut de la case à cocher
myCheckBox.ControlFormat.Value = 1
.........
Pouvez vous m'aider à déterminer d'où vient cette erreur?
Je n'y connais pas grand chose au VBA mon sujet de stage ne devait pas porter sur Excel... Oh surprise!
Merci à vous
Tony