IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Supprimer via VBA une macro à l'intérieur d'une feuille [XL-2019]


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Homme Profil pro
    comptabiltité
    Inscrit en
    juin 2021
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : comptabiltité

    Informations forums :
    Inscription : juin 2021
    Messages : 5
    Points : 4
    Points
    4
    Par défaut 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 : 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

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA, C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    14 267
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA, C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 14 267
    Points : 33 411
    Points
    33 411
    Par défaut
    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
    Cycle de vie d'un bon programme :
    1/ ca fonctionne 2/ ca s'optimise 3/ ca se refactorise

    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016 et Access 2019

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Candidat au Club
    Homme Profil pro
    comptabiltité
    Inscrit en
    juin 2021
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : comptabiltité

    Informations forums :
    Inscription : juin 2021
    Messages : 5
    Points : 4
    Points
    4
    Par défaut
    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

  4. #4
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA, C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    14 267
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA, C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 14 267
    Points : 33 411
    Points
    33 411
    Par défaut
    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
    Cycle de vie d'un bon programme :
    1/ ca fonctionne 2/ ca s'optimise 3/ ca se refactorise

    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016 et Access 2019

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  5. #5
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    janvier 2010
    Messages
    10 894
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : janvier 2010
    Messages : 10 894
    Points : 26 078
    Points
    26 078
    Billets dans le blog
    34
    Par défaut
    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
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Ma dernière contribution : VBA - Les macros complémentaires

  6. #6
    Responsable
    Office & Excel


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    novembre 2003
    Messages
    18 264
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 18 264
    Points : 52 863
    Points
    52 863
    Billets dans le blog
    119
    Par défaut
    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.
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes billets de blog sur DVP
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  7. #7
    Candidat au Club
    Homme Profil pro
    comptabiltité
    Inscrit en
    juin 2021
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : comptabiltité

    Informations forums :
    Inscription : juin 2021
    Messages : 5
    Points : 4
    Points
    4
    Par défaut
    Citation Envoyé par Jean-Philippe André Voir le message
    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

  8. #8
    Candidat au Club
    Homme Profil pro
    comptabiltité
    Inscrit en
    juin 2021
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : comptabiltité

    Informations forums :
    Inscription : juin 2021
    Messages : 5
    Points : 4
    Points
    4
    Par défaut
    Citation Envoyé par Pierre Fauconnier Voir le message
    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é

  9. #9
    Responsable
    Office & Excel


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    novembre 2003
    Messages
    18 264
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 18 264
    Points : 52 863
    Points
    52 863
    Billets dans le blog
    119
    Par défaut
    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.
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes billets de blog sur DVP
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  10. #10
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA, C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    14 267
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA, C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 14 267
    Points : 33 411
    Points
    33 411
    Par défaut
    Bien sûr que le With était de bon aloi, j'ai repris textuellement le code original, sans l'optimiser à tout le moins
    Cycle de vie d'un bon programme :
    1/ ca fonctionne 2/ ca s'optimise 3/ ca se refactorise

    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016 et Access 2019

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  11. #11
    Responsable
    Office & Excel


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    novembre 2003
    Messages
    18 264
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 18 264
    Points : 52 863
    Points
    52 863
    Billets dans le blog
    119
    Par défaut
    Citation Envoyé par Jean-Philippe André Voir le message
    Pas de souci, c'est juste pour raccourcir. Ca ne change évidemment rien à la pertinence de ta réponse
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes billets de blog sur DVP
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Supprimer ou renommer une feuille si elle existe
    Par Peerl dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 10/01/2020, 09h00
  2. Réponses: 8
    Dernier message: 26/03/2014, 09h52
  3. [AC-2007] Lancer une macro excel via VBA?
    Par EmmanuelleC dans le forum VBA Access
    Réponses: 4
    Dernier message: 10/09/2010, 11h47
  4. Réponses: 1
    Dernier message: 18/06/2008, 09h32
  5. execute une macro via vba sous access
    Par nes dans le forum Access
    Réponses: 4
    Dernier message: 28/03/2006, 23h15

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo