Macro qui supprime les macros d'un commandButton

[lilyo]

Bonjour à tous.

J'ai un gros problème.
Je bosse sur un planning.
Lorsque que je plannifie un techniciens les données dont-il a besoin se copie sur une plage horraire sous forme d'un bouton qui celui-ci permet de supprimer ou modifier cette plage.
Et voila mon gros probleme.

Lors de la suppression de ce bouton, la procedure lui etant attaché ne se supprime pas, et donc lorsque je créer une nouvelle plage, il y a un doublon.

Donc en résumé, j'ai une form de saisie qui va creer une plage horaire sous forme de bouton afin de pouvoir modifier les informations ou la supprimer mais lorsque je veux la supprimer et recréer une autre plage le nom de mon bouton est deja utilisé la procedure etant toujours presente.

Merci par avance car là je seiche.

 

[HIJACK]

Re : Macro qui supprime les macros d'un commandButton

SALUT,
Nouveau sur le forum, Bonjour tout le monde!
Ci-dessous, Couic la macro2!😎, si c'est ce que tu veux faire.

Sub Macro1()

Dim DEP As Integer, LIGN As Integer, MODULE As String, MACRO As String
Application.DisplayAlerts = False
MODULE = "Module1"
MACRO = "Macro2"
 
With ThisWorkbook.VBProject.VBComponents(MODULE).CodeModule
    DEP = .ProcStartLine(MACRO, 0)
    LIGN = .ProcCountLines(MACRO, 0)
    .DeleteLines DEP, LIGN
End With
Application.DisplayAlerts = True
End Sub
Sub Macro2()
'
' Macro3 Macro
'

'
End Sub

 

[lilyo]

Re : Macro qui supprime les macros d'un commandButton

Salut.

Je viens d'essayer, j'ai une erreur :

Propriété et méthode non géré par cet objet

Je pense que je n'ai pas reussi a utilisé ton code car j'ai le même message en essayant sur un autre classeur.

Pourrais tu m'envoyer un exemple simple avec un bouton qui supprime un autre bouton et son code ?

Merci par avance

 

[HIJACK]

Re : Macro qui supprime les macros d'un commandButton

Re,
Ta macro à supprimée, (elle au moins), doit se trouver dans un module, pas dans la feuille. OK? Je regarderai dans un moment si tu as toujours des problèmes

 

[skoobi]

Re : Macro qui supprime les macros d'un commandButton

Bonjour Hijack, lilyo, bienvenue sur XLD à vous deux,

Hmmm, le message d'erreur m'a plutôt l'air d'être un problème de version.
Laquelle as-tu?

 

[HIJACK]

Re : Macro qui supprime les macros d'un commandButton

re, 2007 pour moi.

 

[lilyo]

Re : Macro qui supprime les macros d'un commandButton

J'ai résolu le problème.
Ma version est la 2003.
J'avais un probleme dans mon code.
Dans la ligne

With ThisWorkbook.VBProject.VBComponents(MODULE).CodeModule

Pour le MODULE, j'avais mis le nom du module à la place de l'index.
Maintenant tout fonctionne.
Merci bien.

🙂