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 :

Récupération automatique des données d'une feuille de saisie


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Mai 2007
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Mai 2007
    Messages : 23
    Par défaut Récupération automatique des données d'une feuille de saisie
    bonjour,

    je vous explique doucement...

    j'ai un classeur avec 4 feuille, je souhaite remplir la première et automatiser le remplissage des 3 autre feuille

    par contre je ne doit remplir que les colonnes de A à M, et laisser les colonnes se trouvant après M tel quel

    j'espère avoir été clair...

    merci d'avance pour vos réponses
    Fichiers attachés Fichiers attachés

  2. #2
    Membre averti
    Inscrit en
    Juillet 2008
    Messages
    42
    Détails du profil
    Informations forums :
    Inscription : Juillet 2008
    Messages : 42
    Par défaut
    si je comprend pas bien tu veut copier les colonne A à M de ton premier classeur dans les trois autres???

  3. #3
    Membre averti
    Inscrit en
    Mai 2007
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Mai 2007
    Messages : 23
    Par défaut
    oui

    mais il faut que ça se mette à jour au fur et a mesure que l'on renseigne le premier onglet ..

    merci de ta reponse

  4. #4
    Membre averti
    Inscrit en
    Juillet 2008
    Messages
    42
    Détails du profil
    Informations forums :
    Inscription : Juillet 2008
    Messages : 42
    Par défaut
    Voila le code que j'utiliserai. Il copiera les ligne de A à M. Pour que ceci se mette à jour automatiquement il suffit que tu appel la fonction quand t'a na besoin. soit dans ton code soit avec un bouton (UserForm)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Function recopie_colonne_A_à_M()
        Workbooks("nom_classeur1").Worksheets(1).Activate
        Columns("1:8").Select
        Selection.Copy
        Workbooks("nom_classeur2").Worksheets(1).Activate
        Columns("1:8").Select
        ActiveSheet.Paste
        Selection.Copy
        Workbooks("nom_classeur3").Worksheets(1).Activate
        Columns("1:8").Select
        ActiveSheet.Paste
    End Function
    J'ai pas compris l'histoire de l'onglet mais si tu m'explique je verrai comment on peut intégrer le code du dessus au tien.

  5. #5
    Membre averti
    Inscrit en
    Mai 2007
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Mai 2007
    Messages : 23
    Par défaut
    j'appelle les onglets les 4 feuilles qui sont dans le classeur (que j'ai mis en pièce jointe de mon 1 post)

  6. #6
    Membre averti
    Inscrit en
    Juillet 2008
    Messages
    42
    Détails du profil
    Informations forums :
    Inscription : Juillet 2008
    Messages : 42
    Par défaut erreur
    Désolé à la place de 1 à 8 c'est 1 à 13!!!

  7. #7
    Membre averti
    Inscrit en
    Juillet 2008
    Messages
    42
    Détails du profil
    Informations forums :
    Inscription : Juillet 2008
    Messages : 42
    Par défaut
    code pour le module
    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
    16
    Function recopie_colonne_A_à_M()
        Workbooks("18844 SAS M 1 000 001Aa - BASL SAS.xls").Worksheets(1).Activate
        Columns("A:M").Select
        Selection.Copy
        Worksheets(2).Activate
        Columns("A:M").Select
        ActiveSheet.Paste
        Selection.Copy
        Worksheets(3).Activate
        Columns("A:M").Select
        ActiveSheet.Paste
        Selection.Copy
        Worksheets(4).Activate
        Columns("A:M").Select
        ActiveSheet.Paste
    End Function
    code pour le bouton
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton1_Click()
        Call recopie_colonne_A_à_M
    End Sub
    Fichiers attachés Fichiers attachés

  8. #8
    Membre averti
    Inscrit en
    Mai 2007
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Mai 2007
    Messages : 23
    Par défaut
    super !!!

    par contre y a t'il possibilité que les colonnes après M ne se décale pas suite a une insertion dans le 1 onglet

  9. #9
    Membre averti
    Inscrit en
    Juillet 2008
    Messages
    42
    Détails du profil
    Informations forums :
    Inscription : Juillet 2008
    Messages : 42
    Par défaut
    je comprend pas. Tu parle d'une insertion de colonne?? Entre A et M? Après M?

  10. #10
    Membre averti
    Inscrit en
    Mai 2007
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Mai 2007
    Messages : 23
    Par défaut
    j'ai capter, en fait il faut que je rajoute dans ta macro


    au lieux de A:M => A:XX

    comme sa toute les cellules se décale


    merci encore

    pour ta rapidités d'exécution et pour ta réponse

    merci, merci, merci
    si jamais j'ai un soucis demain je me permet de te re contacter demain

  11. #11
    Membre averti
    Inscrit en
    Juillet 2008
    Messages
    42
    Détails du profil
    Informations forums :
    Inscription : Juillet 2008
    Messages : 42
    Par défaut
    ok ça marche!!!
    pense à mettre résolu au cas ou quelqu'un est un peu le même soucis!!

Discussions similaires

  1. Réponses: 0
    Dernier message: 25/02/2011, 13h45
  2. récupérer des données d'une feuille
    Par frankyss dans le forum Autres Logiciels
    Réponses: 6
    Dernier message: 20/02/2007, 20h20
  3. Importer des données d'une feuille Excel vers TABLE
    Par souminet dans le forum Bases de données
    Réponses: 1
    Dernier message: 07/11/2006, 09h10
  4. [VBA] Transmettre des données d'une feuille à l'autre
    Par Overflow64 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 20/12/2005, 09h58
  5. [CR]Importer des données d'une feuille excel
    Par rolan dans le forum SAP Crystal Reports
    Réponses: 3
    Dernier message: 17/12/2004, 22h32

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