à propos des VBComponents

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:

---

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

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

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

Bonjour,

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

Essaie de remplacer :

Code:

---

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

---

par :

Code:

---

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

---

Sait-on jamais !

Cordialement,
C

Bonsoir

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

Merci quand même.

Bonne soirée