Bonjour,
Depuis maintenant quelques mois, je travail sur la programmation d'un programme pour mon travail.
Mon programme travail sur 5 feuilles de 500 lignes et permet de sortir des courbes d'efforts dans un système.
Une fois les calculs terminés, je créer une feuille de sauvegarde sur laquelle j'affiche les graphiques et deux tableaux résumé des données utilisées et calculées. Etant donné que le programme ne doit pas être déreglé ou vu par une personne lambda, il est protéger. Pour éviter d'accumuler trop de feuilles de sauvegarde, je propose à l'utilisateur de la supprimé, via un bouton situé au centre.
Voici le code de création du bouton :
'Ajout du bouton de suppression
ActiveSheet.Range("E13").Select
ActiveSheet.Buttons.Add(628, 293, 152, 30).Select
Selection.Characters.Text = "Supprimer la sauvegarde"
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 12
.ColorIndex = 1
End With
Selection.OnAction = "Supp"
Depuis 2 semaines, le "Selection.OnAction" refuse de fonctionner et lorsque je vais pour ajouter la macro à la main (clic droit, affecter une macro), une fenêtre me dit :
"Cette formule est trop compliquée pour être affectée à un objet."
Alors que le code de suppression est super simple :
Sub supp()
Application.DisplayAlerts = False
ActiveSheet.Delete
Sheets("Feuille de Calcul").Activate
Application.DisplayAlerts = True
End Sub
Ce qui est étrange c'est ça ne me le fait que depuis 2 semaines, l'affectation fonctionnais parfaitement avant.
Sauriez-vous d'où ça viens ?
Ma première hypothèse a été la mémoire alouée à Excel qui est pleine mais je ne sais pas comment la vider :/