Bug Excel lors d'une tentative de modif de code VBA

Bonjour,

Navré de vous importuner mais je suis dans une impasse et je cherche un peu d'aide...

Pour les besoins d'une petite application Excel, je dois effectuer des modifications sur certaines portions de code VBA.

Lorsque je supprime des lignes dans le code associé aux feuilles, cela fonctionne. Lorsque j'ajoute du code, cela fonctionne toujours. En revanche, quelques secondes à peine après la mise à jour du code, une erreur fait planter Excel en force. Ceci se produit aussi en mode débogage : je passe bien l'instruction mais ensuite, passé deux ou trois secondes, Excel tombe en rideau.

Il y a sans doute un vice de procédure dans mon bazar mais les multiples modifications que j'ai apportées n'ont rien changé...

L'un d'entre vous aurait-il une explication ?

Merci par avance.

Bonjour et bienvenu sur le Forum de DVP

Citation:

---

Envoyé par aerodynamique

L'un d'entre vous aurait-il une explication ?

---

Sans un bout de code, Non !

En effet, désolé d'avoir omis l'essentiel.
Voici les deux instructions :

Code:

---

1 2 3 4 5 6 7 8

With ActiveWorkbook.VBProject.VBComponents(iComponent).CodeModule 'Fonctionne bien .DeleteLines 1, .CountOfLines   'Provoque le plantage .InsertLines 1, sCode End With

---

Voilà... je ne détaille pas le contenu de sCode, car il n'y a rien de particulier.

Soir Bon, qqch comme

Code:

---

1 2 3 4 5 6

With ThisWorkbook.VBProject.VBComponents("ModuleA").CodeModule Debut = .ProcStartLine("MacroADetruire", vbext_pk_Proc) NbLignes = .ProcCountLines("MacroADetruire", vbext_pk_Proc) .deleteLines Debut, NbLignes End With

---

Sinon voir http://silkyroad.developpez.com/VBA/VisualBasicEditor/

bonsoir

En complément de la réponse de Kiki29, l'utilisation de DeleteLines et InsertLines, dans une même instruction With, peut aussi être la source du plantage.


bonne soirée
michel

Bonsoir,

Merci pour ces réponses. J'ai consulté le tutorial et j'ai réalisé quelques adaptations de mon programme pour faire un code plus propre. J'ai aussi supprimé mon With.

L'erreur subsiste toujours...
Je poursuis mes recherche, merci pour votre aide

Bonne soirée

rebonsoir

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim iComponent As String, sCode As String   iComponent = "Module1" sCode = "Sub laMacro()" & vbCrLf & _ "Range(""A1"").Value = ""Coucou""" & vbCrLf & _ "End Sub"   With ActiveWorkbook.VBProject.VBComponents(iComponent).CodeModule .DeleteLines 1, .CountOfLines End With   With ActiveWorkbook.VBProject.VBComponents(iComponent).CodeModule .InsertLines 1, sCode End With

---

bonne soirée
michel

Et pourquoi ne pas utiliser "ReplaceLine".

Citation:

---

Envoyé par L'aide

Remplace une ligne de code existante par une ligne de code spécifiée.

---

As-tu vérifié le code après l'écriture de la ligne ?

Bonjour,

Faute de trouver la cause de problème j'ai au moins pu le corriger. J'ai fini par comprendre que toutes les instructions qui écrivaient des informations dans une des pages du classeur APRES le code de mise à jour des éléments VBA provoquaient le plantage d'Excel. En décalant ces éléments avant la mise à jour du code, tout fonctionne. Peut-être est-ce lié au fait que ces écritures sollicitaient sur les feuilles du code qui venait tout juste d'être ajouté.

En tout cas merci pour votre aide

@+