Mimi
XLDnaute Occasionnel
Bonjour à tous,
Avec l'enregistreur de macro excel 2010 j'ai créer deux macro. le problème c'est que avec excel 2007 sa ne marche pas ???
Sub CouleurT1()
ActiveSheet.Unprotect
ActiveSheet.Shapes.Range(Array("Rectangle T1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent2
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
Range("B5:R6").Select
ActiveSheet.Protect
End Sub
Sub BleuT1()
ActiveSheet.Unprotect
ActiveSheet.Shapes.Range(Array("Rectangle T1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0.6000000238
.Transparency = 0
.Solid
End With
Range("B5:R6").Select
ActiveSheet.Protect
End Sub
Pouvez-vous me dire pourquoi ?? Car avec l'enregistreur de macro 2007 il ne veut pas reproduire la même chose ou plutôt il ne se passe rien.
D'avance je vous remercie
Mimi
Avec l'enregistreur de macro excel 2010 j'ai créer deux macro. le problème c'est que avec excel 2007 sa ne marche pas ???
Sub CouleurT1()
ActiveSheet.Unprotect
ActiveSheet.Shapes.Range(Array("Rectangle T1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent2
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
Range("B5:R6").Select
ActiveSheet.Protect
End Sub
Sub BleuT1()
ActiveSheet.Unprotect
ActiveSheet.Shapes.Range(Array("Rectangle T1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0.6000000238
.Transparency = 0
.Solid
End With
Range("B5:R6").Select
ActiveSheet.Protect
End Sub
Pouvez-vous me dire pourquoi ?? Car avec l'enregistreur de macro 2007 il ne veut pas reproduire la même chose ou plutôt il ne se passe rien.
D'avance je vous remercie
Mimi