Message d'erreur lors de l'execution d'une macro pour supprimer les macro evenmt

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tchangy71

XLDnaute Occasionnel
Bonjour,
Lors de l’exécution de la macro ci dessous j'ai le message d'erreur suivant "Impossible d'entrer en mode Arrêt maintenant" avec comme option "Continuer". Je clic dessus, le code s’exécute (ne s'arrête pas au points d'arrêt que j'ai imposé) et deuxième message d'erreur : "Erreur d'execution '35': Sub ou Function non définie".

Après vérification, la macro à bien fait sont travaille (c'est déjà l'essentielle). Mais je souhaiterais savoir d’où viennent ces messages d'erreur et comment les éviter ci possible.

Nom_feuille = sh.CodeName
With ThisWorkbook.VBProject.VBComponents(Nom_feuille).CodeModule
Debut = .ProcStartLine("Worksheet_SelectionChange", vbext_pk_Proc)
NbLignes = .ProcCountLines("Worksheet_SelectionChange", vbext_pk_Proc)
.deleteLines Debut, NbLignes
Debut1 = .ProcStartLine("Worksheet_BeforeRightClick", vbext_pk_Proc)
NbLignes1 = .ProcCountLines("Worksheet_BeforeRightClick", vbext_pk_Proc)
.deleteLines Debut1, NbLignes1
End With

Cordialement,

Philippe
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
17 K
Compte Supprimé 979
C
Réponses
5
Affichages
2 K
Réponses
2
Affichages
1 K
D
Réponses
2
Affichages
1 K
G
Réponses
1
Affichages
799
G
Retour