Supprimer via VBA une macro à l'intérieur d'une feuille

Bonjour,

Je n'ai trouvé qu'une seule réponse sur le sujet :(

Ma problématique :
A la suite d'une copie de feuille dans laquelle se trouve une macro, je voudrais supprimer la macro toute entière de la feuille copiée.

Pourriez-vous m'aider svp ?



J'ai uniquement trouvé ceci :

Code:

---

1 2 3

With Workbooks("Classeur1").VBProject.VBComponents("Feuil1").CodeModule .DeleteLines 1, .CountOfLines End With

---

Adapté à mon code, ça donne cela (à la base) :

Code:

---

ThisWorkbook.VBProject.VBComponents(Nom_Nouvelle_Feuille).CodeModule.DeleteLines 1, ThisWorkbook.VBProject.VBComponents(Nom_Nouvelle_Feuille).CodeModule.CountOfLines

---

Après multiples modifications et erreurs associées 'error 1004' 'error 9' 'error 3', j'ai trouvé une solution. Je dois nommer la feuille dans le code sous le nom VBE et nom Excel.

Code:

---

ThisWorkbook.VBProject.VBComponents("Feuil5").CodeModule.DeleteLines 1, ThisWorkbook.VBProject.VBComponents("Feuil5").CodeModule.CountOfLines

---

Mais cela ne me convient pas, je voudrais que ce soit variable.
Comment svp le remplacer par un nom de feuille variable style 'Nom_Nouvelle_Feuille', comme dans mon code de base ??

mercciiiiiii :D

Salut

lorsque tu manipules une feuille, tu peux connaître son nom de code via CodeName

Code:

---

Msgbox Thisworkbook.Worksheets("TonNomDansExcel").CodeName

---

hello,

Merci Jean-Philippe pour ton retour mais ce n'est du tout ce que je cherche..

Comme synthétisé initialement, ma variable 'Nom_Nouvelle_Feuille' fait référence à Feuil5. Je veux donc remplacer Feuil5 par ma variable dans le code soumis à la discussion pour que je ne sois pas figé sur la Feuil5.

merci ;)

Ok, mais ton nom de nouvelle feuille dans Excel, tu le récupères bien d'une facon ou d'un autre non ?

Je serai ainsi parti sur une syntaxe comme suit :

Code:

---

ThisWorkbook.VBProject.VBComponents(ThisWorkbook.Worksheets(Nom_Nouvelle_Feuille).CodeName).CodeModule.DeleteLines 1, _ ThisWorkbook.VBProject.VBComponents(ThisWorkbook.Worksheets(Nom_Nouvelle_Feuille).CodeName).CodeModule.CountOfLines

---

Bonjour,
Pourtant la réponse de Jean-Philippe que je salue au passage, répond parfaitement à votre demande.
Si vous voulez tout de même passer par une variable objet, il suffit d'ajouter le mot clé Set en assignant l'objet à la variable

Exemple

Code:

---

1 2 3 4

Sub t() Dim shtSales As Worksheet Set shtSales = ThisWorkbook.Worksheets("Vente") End Sub

---

Toutefois en attribuant comme valeur shtSales à la propriété CodeName de la feuille ayant comme nom Vente, vous obtiendrez le même résultat

A lire éventuellement mon billet sur le sujet VBA – CodeName d’une feuille Excel

Salut.

Ca relève pour moi d'un problème d'architecture de code, indépendamment de la pertinence des réponses données. Devoir manipuler du code par du code est un pis-aller mais est rarement une solution pérenne. Il me semble plus intéressant, tant qu'à revoir le code, de le reconstruire selon les bonnes pratiques.



PS: Ne pas oublier, si ma mémoire est bonne, de cocher la case "Accès approuvé au modèle d'objet du projet VBA" dans options/Centre de gestion de la confidentialité/Paramètres du centre de gestion de la confidentialité/Paramètres des macros.

Citation:

---

Envoyé par Jean-Philippe André

Ok, mais ton nom de nouvelle feuille dans Excel, tu le récupères bien d'une facon ou d'un autre non ?

Je serai ainsi parti sur une syntaxe comme suit :

Code:

---

ThisWorkbook.VBProject.VBComponents(ThisWorkbook.Worksheets(Nom_Nouvelle_Feuille).CodeName).CodeModule.DeleteLines 1, _ ThisWorkbook.VBProject.VBComponents(ThisWorkbook.Worksheets(Nom_Nouvelle_Feuille).CodeName).CodeModule.CountOfLines

---

---

OUI en effet !!! merciiii :) j'ai besoin de temps pour comprendre les sous-entendus mais expliqué ainsi c'est très clair :D
ça fonctionne parfaitement !

Encore un grand merci !
Merci aussi @Pierre et @Philippe

Citation:

---

Envoyé par Pierre Fauconnier

Salut.

Ca relève pour moi d'un problème d'architecture de code, indépendamment de la pertinence des réponses données. Devoir manipuler du code par du code est un pis-aller mais est rarement une solution pérenne. Il me semble plus intéressant, tant qu'à revoir le code, de le reconstruire selon les bonnes pratiques.



PS: Ne pas oublier, si ma mémoire est bonne, de cocher la case "Accès approuvé au modèle d'objet du projet VBA" dans options/Centre de gestion de la confidentialité/Paramètres du centre de gestion de la confidentialité/Paramètres des macros.

---

mon niveau n'est pas suffisamment élevé ;)

Juste mon avis sur la solution de JP...

J'aurais utilisé un With, pour la facilité de lecture du code ;)

Code:

---

1 2 3 4

With ThisWorkbook.VBProject.VBComponents(ThisWorkbook.Worksheets(Nom_Nouvelle_Feuille).CodeName).CodeModule .DeleteLines 1, .CountOfLines End With

---

Je répondrai tout à l'heure sur ma remarque concernant l'architecture.

Bien sûr que le With était de bon aloi, j'ai repris textuellement le code original, sans l'optimiser à tout le moins :oops:

Citation:

---

Envoyé par Jean-Philippe André

:oops:

---

Pas de souci, c'est juste pour raccourcir. Ca ne change évidemment rien à la pertinence de ta réponse :plusser: