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 :

Insertion de code dans une feuille


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de babybell
    Homme Profil pro
    Retraité Bancaire
    Inscrit en
    Septembre 2008
    Messages
    495
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Retraité Bancaire
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Septembre 2008
    Messages : 495
    Par défaut Insertion de code dans une feuille
    Bonjour amis du forum
    Est-il possible, par macro, d'insérer un code dans une feuille que l’on vient de créer par macro ?
    Merci de vos solutions à mes problèmes

  2. #2
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    Oui c'est possible, tu as un tutoriel sur la manipulation de l'éditeur VBA par macro à l'adresse ci-dessous. Tu y trouveras un exemple pour ajouter une procédure évènementielle SelectionChange dans la Feuil1 du classeur actif.

    http://silkyroad.developpez.com/VBA/VisualBasicEditor/

  3. #3
    Membre éclairé Avatar de babybell
    Homme Profil pro
    Retraité Bancaire
    Inscrit en
    Septembre 2008
    Messages
    495
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Retraité Bancaire
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Septembre 2008
    Messages : 495
    Par défaut
    Merci fring

    Bonne journée

  4. #4
    Membre éclairé Avatar de babybell
    Homme Profil pro
    Retraité Bancaire
    Inscrit en
    Septembre 2008
    Messages
    495
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Retraité Bancaire
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Septembre 2008
    Messages : 495
    Par défaut
    Bonjour le Forum

    J'ai bien trouvé la réponse dans le tuto, mais je bute sur la 1ère ligne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    With ActiveWorkbook.VBProject.VBComponents("Feuil16").CodeModule
    car j'aimerai, plutôt que de spécifier "Feuil16", j'attribue un nom de variable.
    La macro que je fais créé à chaque début de mois un onglet qui porte le nom du mois précédent, et c'est dans ce nouvel onglet que je voudrais mettre le code.

    S'il existe une soluce, merci de me l'indiquer.

  5. #5
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Si la feuille que tu ajoutes se trouve d'office en dernière position, tu peux faire ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    With ActiveWorkbook.VBProject.VBComponents(Sheets(Sheets.Count).CodeName).CodeModule
    En passant par une variable ça donnerait quelque chose de ce style
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Dim NewSh As Worksheet
     
    Set NewSh = Sheets.Add
    NewSh.Move after:=Sheets(Sheets.Count)
     
    With ActiveWorkbook.VBProject.VBComponents(NewSh.CodeName).CodeModule

  6. #6
    Membre éclairé Avatar de babybell
    Homme Profil pro
    Retraité Bancaire
    Inscrit en
    Septembre 2008
    Messages
    495
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Retraité Bancaire
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Septembre 2008
    Messages : 495
    Par défaut
    Encore merci fring, ça fonctionne très bien.

    bon après-midi

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

Discussions similaires

  1. [Excel] Insertion de valeurs dans une feuille excel via php
    Par rockncaly dans le forum Bibliothèques et frameworks
    Réponses: 1
    Dernier message: 27/01/2012, 15h12
  2. Problème de suppression du code dans une feuille
    Par Denis_67 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 26/05/2011, 20h50
  3. [XL-2003] créer un code dans une feuille pas encore créer
    Par guigui71 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 12/01/2011, 10h26
  4. insertion d'image dans une feuille EXcel
    Par Jacbour dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 27/08/2010, 20h19
  5. Import code dans une feuille provoque un bug
    Par mfm dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 19/04/2008, 14h19

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