Discussion :

[salseropom]

Bonjour,

J'ai une macro qui génère du code VBA dans une autre macro (la procédure Sub Worksheet_Change(ByVal Target As Range)).
Quand l'éditeur de macros est ouvert, ma macro (qui génère le code VBA) fonctionne très bien. En revanche, s'il est fermé, ma macro plante.

Code :

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

1
2
3
4
5
6
7
8
 
nomVB = Sheets(wsGCD.name).CodeName '-> renvoie Feuil5
 
'ajout de la procedure dans la feuille
With wbRef021.VBProject.VBComponents(nomVB).CodeModule '-> si l'éditeur de macros est fermé, ma macro plante à cette ligne (l'indice n'appartient pas à la sélection)
    x = .CountOfLines + 1
    .InsertLines x, ligne
End With

Est-ce une obligation que d'ouvrir l'éditeur de macros si on veut créer du code VBA dans un classeur ? Je n'ai jamais lu cette remarque dans un quelconque tuto...

Merci beaucoup pour votre aide

[Invité]

Bonjour,

On suppose que la bibliothèque MicroSoft Visual Basic for Application Extensibility est bien activée.

"Ma macro plante" - C'est vague ! Tu peux être plus précis ?

Non ce n'est pas une obligation que l'éditeur soit ouvert. Je n'ai jamais eu ce genre de problème avec du VBA qui génère du VBA. Et je l'utilise régulièrement.

Cordialement,
C

[salseropom]

Bonjour

je viens d'activer la bibliothèque MicroSoft Visual Basic for Application Extensibility 5.3 qui ne l'était pas, mais j'ai toujours un plantage.

Plantage = message d'erreur "l'indice n'appartient pas à la sélection". La ligne incriminée est celle que j'ai mise dans le code de mon tout 1e message.
Pour l'instant, la seule solution que j'ai trouvée pour ne plus avoir cette erreur est de forcer l'ouverture de l'éditeur de macros, que je ferme ensuite...
Donc je ne pense pas que le problème vienne de ma ligne de code, mais sûrement d'une configuration d'Excel un peu bizarre (une librairie non activée peut-être...)

Merci en tous cas

[Invité]

Bonjour,

Il y a un nom qu'il ne reconnaît pas.

Essaie de remplacer :

Code :

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

1
2
 
With wbRef021.VBProject.VBComponents(nomVB).CodeModule

par :

Code :

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

1
2
 
With ActiveWorkbook.VBProject.VBComponents(nomVB).CodeModule

Sait-on jamais !

Cordialement,
C

[salseropom]

Bonsoir

malheureusement, votre idée ne fonctionne pas...

Merci quand même.

Bonne soirée