Discussion :

[GstiWis]

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 :

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

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

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

Code :

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

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 :

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

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

[Jean-Philippe André]

Salut

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

Code :

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

Msgbox Thisworkbook.Worksheets("TonNomDansExcel").CodeName

[GstiWis]

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

[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 :

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

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

[Philippe Tulliez]

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 :

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

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

[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.

[GstiWis]

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 :

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

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
ça fonctionne parfaitement !

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

[GstiWis]

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é

[Pierre Fauconnier]

Juste mon avis sur la solution de JP...

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

Code :

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

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.

[Jean-Philippe André]

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

[Pierre Fauconnier]

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