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 :

[Excel 2003] - Copier/Coller code VBA automatiquement


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Inscrit en
    Novembre 2009
    Messages
    51
    Détails du profil
    Informations forums :
    Inscription : Novembre 2009
    Messages : 51
    Points : 33
    Points
    33
    Par défaut [Excel 2003] - Copier/Coller code VBA automatiquement
    Bonjour

    J'ai parcouru le fofo à la recherche d'une réponse mais je n'ai pas trouvé alors j'ouvre une nouvelle discussion.

    Question:
    Comment peut-on copier/coller le code VBA contenu dans une feuille Excel vers une autre autre feuille Excel (toutes les deux font parties du même classeur)?

    Explication:
    Voici un exemple concret de ce que souhaite réaliser:

    Voila ce qui existe déjà:
    • J'ai une feuille "A" qui contient le code suivant:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    private sub exemple()
    msgbox("bonjour")
    end sub
    • Je créais automatiquement une nouvelle feuille (nommé B).


    Voici la partie qui reste à développer
    Je voudrais créer un code qui automatise la copie du code VBA contenue dans la feuille "A" (cf. "voici ce qui existe déjà") et le colle automatiquement dans la nouvelle feuille "B".

    Si quelqu'un à une idée je suis preneur.

    Cordialement
    n0vo

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 255
    Points
    34 255
    Par défaut
    salut,

    en recherchant rapidement avec le mot clé VBE dans la , je trouve cet exemple de code qui peut te servir de base :
    http://access.developpez.com/faq/?pa...pCodebddFermee

    en utilisant ensuite l'aide en ligne , tu trouveras des exemples de ligne à coder à la volée, exemple pour écrire en haut d'un moduleOption Explicit:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.VBE.CodePanes(1).CodeModule.InsertLines 1, "Option Explicit"
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

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

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    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
    Nouveau membre du Club
    Inscrit en
    Novembre 2009
    Messages
    51
    Détails du profil
    Informations forums :
    Inscription : Novembre 2009
    Messages : 51
    Points : 33
    Points
    33
    Par défaut
    Je te remercie "jpcheck" je vais regarder avec l'aide fourni je te tien au courant!

    PS: "VBE" pas forcement évidant quand on pas d'idée pour la recherche d'info.

  4. #4
    Nouveau membre du Club
    Homme Profil pro
    Automaticien
    Inscrit en
    Avril 2012
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Manche (Basse Normandie)

    Informations professionnelles :
    Activité : Automaticien
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2012
    Messages : 14
    Points : 30
    Points
    30
    Par défaut
    Bonjour

    pour donner une idée un bout de code qui crée une feuille et ajoute le code de Feuil1 dans la feuille créée

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Option Explicit
     
    Sub ajout_code()
    Dim S As String, Wsh As Worksheet
     
      With ThisWorkbook.VBProject.VBComponents("Feuil1").CodeModule
        S = .Lines(1, .CountOfLines)
      End With
     
      Set Wsh = Worksheets.Add
      With ThisWorkbook.VBProject.VBComponents(Wsh.Name).CodeModule
        .AddFromString S
      End With
      Set Wsh = Nothing
    End Sub
    si ça peut aider

    cordialement

  5. #5
    Nouveau membre du Club
    Inscrit en
    Novembre 2009
    Messages
    51
    Détails du profil
    Informations forums :
    Inscription : Novembre 2009
    Messages : 51
    Points : 33
    Points
    33
    Par défaut
    Merci beaucoup "samuel50", je me suis fortement inspiré de ton code pour effectuer mon copier/coller VBA:

    Code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
        Sheets.Add
        ActiveSheet.Name = "Nom_Feuille_B"
    Sheets("Nom_Feuille_A").Select
        With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
            S = .Lines(1, .CountOfLines)
        End With
        Sheets(Nom_Feuille_B).Select
        With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
            .AddFromString S
        End With
    Les aides:
    Lien pour l'utilisation "VBComponents"
    Lien pour activer l'activation du model VBA

    Voila le sujet est complet.
    Merci tous.

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

Discussions similaires

  1. [XL-2007] Macro copier coller dans VBA Excel
    Par inho89 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 11/05/2015, 00h04
  2. VBA Excel 2003 Copier ligne sous plusieurs conditions
    Par Harreauv dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 31/01/2013, 19h40
  3. Problème de copier coller en vba à partir d'excel
    Par Psycho185 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 09/06/2011, 14h47
  4. Réponses: 3
    Dernier message: 27/08/2007, 00h36
  5. Réponses: 5
    Dernier message: 14/02/2006, 15h32

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