Bonjour,
sur Excel2010 j'ai développé un programme qui, à partir d'un TCD qui pointe sur un tableau ou il y a des liens hypertexte, permet de récupérer les liens concernés dans l'onglet de détail généré par le double click d'une cellule dans le TCD. Le programme fonctionne correctement, mais lors des premières utilisations il y a un message d'erreur '5' : 'Argument ou Appel de procédure incorrect' avec la possibilité de débogage. mais l'instruction pointée
passait sans aucun problème avec un F8 et, après deux ou trois blocages avec cette erreur, il n'y avait plus de problème !
Code : Sélectionner tout - Visualiser dans une fenêtre à part No_Onglet = CLng(Right(Sh.CodeName, Len(Sh.CodeName) - 5))
J'ai essayé plusieurs solutions trouvées sur le net, mais j'ai finalement mis un "on error resume next" devant la ligne et dupliqué la ligne incriminée et ça fonctionne bien.
J'ai ensuite eu un blocage avec le choix "continue" et pas d'erreur en pas à pas sur la ligne :
que j'ai résolu en positionnant le paramètre
Code : Sélectionner tout - Visualiser dans une fenêtre à part With Wb.VBProject.VBComponents(Feuille_Travail).CodeModule.InsertLines Lig, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)": Lig = Lig + 1Maintenant mon dernier problème en date est que le programme s'exécute, mais la feuille créée ne contient pas de code sauf quand j'ouvre la fenêtre debug et alors l'exécution est complète et tout se passe bien !
Code : Sélectionner tout - Visualiser dans une fenêtre à part Application.EnableCancelKey = xlDisabled
(les instructions utilisées sont, selon internet, "sensibles" au mode pas à pas et donc pas faciles à déboger!)
Toute cette longue présentation pour mettre en évidence les blocages d'exécution du VBA d'Excel2010 sans vrai motif qui m'ont fait perdre beaucoup de temps.
Je joins le code du sous programme concerné par ce problème, car je ne sais plus quoi faire pour l'utilisateur final de ce programme ait le moins de soucis possible !
Je vous remercie d'avoir lu ce post jusqu'à la fin et pour toute l'aide et les conseils que vous pourrez me prodiguer.
Cordialement,
Jim77420
Partager