R
rémy25
Guest
Bonjour,
Voici le code qui me pose problème:
Sub Creation_bouton()
Dim oOLE As OLEObject
Dim Code$
'j'affecte une fonction que j'ai créé au code de mon bouton
Code = ' Traitement 3,1,Bouton5A.Value' & vbCrLf
Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:='Forms.ToggleButton.1', _
Link:=False, DisplayAsIcon:=False, Left:=340, Top:=30, Width:=100, Height:=30)
With oOLE
.Name = 'Bouton5A'
.Object.Caption = '+ / -'
End With
With ActiveWorkbook.VBProject.VBComponents(Worksheets(1).Name).CodeModule
.InsertLines .CreateEventProc('Click', 'Bouton5A') + 1, Code
End With
End Sub
Mon problème vient du fait que ce code fonctionne uniquement si la feuille 1 s'appele 'Feuil1'. Si je lui donne un autre nom, il me dit:
Erreur d'execution '9'
L'indice n'appartient pas à la sélection.
D'où vient cette erreur ?
Merci de votre aide
Rémy de besak'
Voici le code qui me pose problème:
Sub Creation_bouton()
Dim oOLE As OLEObject
Dim Code$
'j'affecte une fonction que j'ai créé au code de mon bouton
Code = ' Traitement 3,1,Bouton5A.Value' & vbCrLf
Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:='Forms.ToggleButton.1', _
Link:=False, DisplayAsIcon:=False, Left:=340, Top:=30, Width:=100, Height:=30)
With oOLE
.Name = 'Bouton5A'
.Object.Caption = '+ / -'
End With
With ActiveWorkbook.VBProject.VBComponents(Worksheets(1).Name).CodeModule
.InsertLines .CreateEventProc('Click', 'Bouton5A') + 1, Code
End With
End Sub
Mon problème vient du fait que ce code fonctionne uniquement si la feuille 1 s'appele 'Feuil1'. Si je lui donne un autre nom, il me dit:
Erreur d'execution '9'
L'indice n'appartient pas à la sélection.
D'où vient cette erreur ?
Merci de votre aide
Rémy de besak'