creer un bouton actif

[liliane]

Bonjour,

j'ai créer un classeur avec plusieurs feuillets. j'aimerai remplacer ces feuillets par un sul, le premier dans lequel je mettrais des boutons . Chaque bouton serait associé à une feuille.

j'aimerais supprimer ensuite ces feuillets en apparence bien sûr.

merci d'avance
liliane

 

[Yolène]

Pour cela après avoir créé les boutons, sélectionner chacun en mode création (en le sélectionnant par exemple avec la flèche de l'outil dessin)
cliquer sur le bouton droit de la souris et affecter à chaque bouton une macro. par défaut le nom de la macro est composé du type d'élément, de son numéro et de quan click mais tu entrer un nom de macro plus explicite à toi de voir.

entrer dans chaque macro
ex :
après le sub bouton quand click()
entrer les 3 lignes suivantes
sheets("nomdelafeuill").visible = true
sheets("nomdelafeuill").select
activesheet.unprotect
terminer par la ligne
end sub

faire un bouton sur chaque feuille tous ces boutons étant reliés à la même macro. ce bouton permettra de masquer la feuille une fois celle-ci utilisée.
Donc cliquer sur le bouton droit comme précédemment, affeter la macro

ex:
après le sub bouton quand click()
entrer la ligne suivante :
activesheet.visible = false
sheets(nomfeuille ou se trouve les boutons).select
terminer par la ligne
end sub

J'espère que j'ai été claire.

 

[liliane]

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

 

[Yolène]

apparemment tu as activée une macro en automatique et tu ne l'as pas arrêtée. Il faut aller dans le menu Outils et macro puis arrêter l'enregistrement. Tu as fais ce que je t'ai dis mais avec la macro activée, elle a donc enregistré tout le processus.
En principe quant du clique sur le boton droit pour affecter une ligne de code tu te retrouve sur un module avec "sub bouton(?) quand_click()
et une ligne sub, tu dois introduire ton code entre ces deux lignes.

bon courage Liliane.