merci Yolène mais je ne suis pas arrivée
voilà ce que j'ai dans la macro
Sub ventes()
Sheets("ventes").Visible = True
Sheets("ventes").Select
ActiveSheet.Unprotect
End Sub
'
' ventes Macro
' Macro enregistrée le 06/12/2003 par Liliane
'
Range("H9").Select
Application.Run "Classeur1!ventes"
Range("F15").Select
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "ventes"
Range("F12").Select
Sheets("ventes").Select
Range("E15").Select
ActiveSheet.Buttons.Add(89.25, 12, 107.25, 29.25).Select
Selection.OnAction = "ventes"
Range("G24").Select
Sheets("demarrage").Select
Application.Run "Classeur1!ventes"
Range("E16").Select
Application.Run "Classeur1!ventes"
Range("I11").Select
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "ventes"
Sheets("ventes").Select
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "ventes"
Sheets("demarrage").Select
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Bouton 1"
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("B19").Select
ActiveSheet.Shapes("Button 1").Select
Application.Goto Reference:="ventes"
Range("G14").Select
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "ventes"
Range("F8").Select
Sheets("ventes").Select
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Bouton 1"
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("C20").Select
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "ventes"
Range("F15").Select
Sheets("demarrage").Select
Application.Run "Classeur1!ventes"
Range("H13").Select
Application.Run "Classeur1!ventes"
Range("F15").Select
Application.Run "Classeur1!ventes"
Range("F13").Select
ActiveSheet.Shapes("Button 1").Select
Application.Goto Reference:="ventes"
Range("F11").Select
Application.Run "Classeur1!ventes"
Range("G13").Select
Sheets("demarrage").Select
End Sub
erreur "28"
merci , de ton aide
Liliane