Re:les ennuis continus
Pour la texte et la taille dans le bouton, ça marche mais il faut mettre des '' au texte.
De plus ça marche si je fais 2 macros, mais avec une seule ça plante.
2 macros :
Sub Macro1()
ActiveSheet.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Link:=False _
, DisplayAsIcon:=False, iconfilename:=essai, Left:=109.5, Top:=84.75, Width:=126, Height:= _
117.75).Select
End Sub
Sub taille()
ActiveSheet.CommandButton1.AutoSize = True
ActiveSheet.CommandButton1.Caption = 'poi'
ActiveSheet.CommandButton1.FontSize = 16
End Sub
mais par contre avec une macro :
Sub Macro1()
ActiveSheet.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Link:=False _
, DisplayAsIcon:=False, iconfilename:=essai, Left:=109.5, Top:=84.75, Width:=126, Height:= _
117.75).Select
ActiveSheet.CommandButton1.AutoSize = True
ActiveSheet.CommandButton1.Caption = 'poi'
ActiveSheet.CommandButton1.FontSize = 16
End Sub
ça plante ... ça me ferme même excel avec l'envoie de la déclaration d'erreur par le net.