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
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