Discussion :

[aerodynamique]

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.

[Invité]

Bonjour et bienvenu sur le Forum de DVP

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

Sans un bout de code, Non !

[aerodynamique]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[kiki29]

Soir Bon, qqch comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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/

[SilkyRoad]

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

[aerodynamique]

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

[SilkyRoad]

rebonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Et pourquoi ne pas utiliser "ReplaceLine".

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 ?

[aerodynamique]

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

@+