Probleme macro sur Excel 2007

Version imprimable

Bonsoir

J'ai un bouton sur une userform (voir code ci-dessous) pour créer des formes libres avec des paramètres définis sur une page excel.

Ce code fonctionne très bien sur Excel 2003. Par contre sur Excel 2007, cette macro se lance mais impossible de dessiner.

Existe-t-il un moyen de corriger ce problème?

D'avance merci.

Regor

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub CommandButton2_Click()
 
 
ActiveSheet.Shapes.AddLine(234.75, 107.25, 403.5, 107.25).Select
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 12
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.Weight = 6#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.Style = msoLineThinThick
    Selection.ShapeRange.Line.Weight = 4.5
    Selection.ShapeRange.SetShapesDefaultProperties
    Selection.Delete
 
Dim cmd_bar As CommandBar, cmd_control As CommandBarButton
 
Set cmd_bar = Application.CommandBars("Lines")
 
For Each cmd_control In cmd_bar.Controls
 
    If cmd_control.ID = 200 Then
cmd_control.Execute
 
 
Exit For
 
End If
 
Next
 
 
End Sub

31/03/2011, 13h12
kiki29

Salut,hum hum normal car il y a

Code:

Selection.Delete
31/03/2011, 13h35
Regor

Probleme macro sur Excel 2007

Bonjour

Sans cette ligne de code, la macro ne fonctionne toujours pas.

Code:

Selection.Delete
31/03/2011, 13h45
kiki29

Re,désolé mais chez moi no problme ( Excel 2007 SP2 et Excel 2002 SP3 )
31/03/2011, 15h24
Regor

Probleme macro sur Excel 2007

Effectivement, ce code fonctionne sur un seul poste avec Excel 2007 mais en dehors de mon entreprise. Par contre sur ceux de mon service, ça bloque.

Comment faire pour que cette macro fonctionne sur Excel version SP1.

Malheureusement, le changement de version, n'est pas d'actualité pour le moment.

D'avance merci
31/03/2011, 19h05
kiki29

Re,s'il ne s'agit que d'un n° de version il suffit d'aller sur le site de Microsoft , c'est gratuit et cela resoud un certain nombre de problmes : voir sur http://support.microsoft.com/kb/953195
Un extrait pour Excel 2007 SP2 : "Améliore le mécanisme des graphiques dans Excel 2007. Cela inclut une meilleure parité avec Office 2003, davantage de robustesse et des améliorations de performances ciblées."
31/03/2011, 21h36
Regor

Probleme macro sur Excel 2007

Effectivement avec la version Excel 2007 SP2, cette macro fonctionne.

Merci de votre aide