RE: Macro qui écrit des macros

  • Initiateur de la discussion Philou
  • Date de début
P

Philou

Guest
Merci Thierry pour ton aide précieuse.

je souhaite à présent pouvoir insérer plusieurs boutons sur une même feuille. En cliquant sur ces boutons, on va directement sur des feuilles précises (comme dans ma précédente demande).

j'ai repris le code que tu m'avais donné en le modifiant mais ça ne marche pas :

ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
With Worksheets(c)
Set MyButton = .OLEObjects.Add(classtype:='Forms.CommandButton.1')
End With

With Worksheets(c)
Set YourButton = .OLEObjects.Add(classtype:='Forms.CommandButton.2')
End With



le message d'erreur est celui-ci : 'cannot insert the object'

comment dois-je faire ???

merci d'avance
 

CBernardT

XLDnaute Barbatruc
Bonjour Philou,

Essayes avec cette syntaxe :

Dim MyButton As Object, YourButton As Object

ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = 'C'
With Sheets('C')
.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Link:=False, DisplayAsIcon:=False, Left:=78, Top:=21.75, Width:=161.25, Height:=75).Select
Set MyButton = .Shapes('CommandButton1')
End With
With Sheets('C')
.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Link:=False, DisplayAsIcon:=False, Left:=301.5, Top:=24.75, Width:=177.75, Height:=71.25).Select
Set YourButton = .Shapes('CommandButton2')
End With

Cordialement

Bernard
 

Discussions similaires

Réponses
7
Affichages
621

Statistiques des forums

Discussions
312 913
Messages
2 093 535
Membres
105 753
dernier inscrit
besnard