Bonjour,
J'ai créé une macro me permettant de copier une feuille existante sur une nouvelle feuille.
D'autre part, mon classeur dispose d'une feuille nommée Menu. Je voudrais qu'à chaque
fois que je crée une nouvelle feuille, un bouton de commande apparaisse dans la feuille Menu.
Le problème c'est que les boutons se superposent. Comment faire pourqu'ils apparaissent
les uns à la suite des autres sur ma feuille Menu?
Voilà mon code pour le moment:
Sub NouveauPrévisionnel()
Dim Nom As String
Dim Obj As New OLEObject
Nom = InputBox("Quel nom souhaitez vous donner à ce nouveau prévisionnel?" )
Sheets("Bilan fonctionnel vierge" ).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Nom
Sheets(Sheets.Count).Activate
Sheets("Menu" ).Activate
Sheets("Menu" ).OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=Range("c20" ).Left, Top:=Range("c20" ).Top, Width:=57.75, Height _
:=27.75).Select
Dim c As Shape
Dim b As CommandButton
Dim o As OLEObject
Set c = Sheets("Menu" ).Shapes("CommandButton1" )
c.OLEFormat.Object.Object.Caption = Nom
End Sub
Merci de votre aide !!