1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2016 Regrouper plusieurs classeurs dans 1

Discussion dans 'Forum Excel' démarrée par Scorpio, 7 Janvier 2019.

  1. Scorpio

    Scorpio XLDnaute Occasionnel

    Inscrit depuis le :
    17 Septembre 2016
    Messages :
    467
    "J'aime" reçus :
    1
    Utilise:
    Excel 2016 (PC)
    Bonjour à tous,
    J'ai ici, 5 classeurs et je regroupe les données de ces 5 classeurs dans le classeur "RECAP".
    Les 5 classeurs sont pas ouvert.
    Le code fonctionne, mais pas terrible, lors du regroupage, le bouton dans RECAP ce déplace de droite à gauche,
    Est-ce que un membre pourrais, s'il vous plaît, me donner un petit coup de pouce, merci.
    A+++

    Attention: dans le code, adapter l'adresse ou se trouve les classeur.
     

    Pièces jointes:

    • Lile.xlsx
      Taille du fichier:
      15.5 Ko
      Affichages:
      9
    • Lyon.xlsx
      Taille du fichier:
      15.4 Ko
      Affichages:
      8
    • Marseille.xlsx
      Taille du fichier:
      15.4 Ko
      Affichages:
      6
    • Orange.xlsx
      Taille du fichier:
      9.3 Ko
      Affichages:
      7
    • Paris.xlsx
      Taille du fichier:
      10.3 Ko
      Affichages:
      6
    • Recap.xlsm
      Taille du fichier:
      30.2 Ko
      Affichages:
      14
  2. Chargement...

    Discussions similaires - Regrouper plusieurs classeurs Forum Date
    XL 2010 Regrouper plusieurs classeurs en un seul Forum Excel 17 Février 2017
    Comment regrouper des données de plusieurs Classeurs automatiquement Forum Excel 8 Avril 2015
    regrouper plusieurs classeurs en un seul excel2003 Forum Excel 20 Mars 2014
    Regrouper plusieurs classeurs excel en Un Forum Excel 14 Novembre 2008
    Regrouper des données de plusieurs classeurs Forum Excel 31 Octobre 2007

  3. cp4

    cp4 XLDnaute Impliqué

    Inscrit depuis le :
    7 Novembre 2015
    Messages :
    517
    "J'aime" reçus :
    32
    Utilise:
    Excel 2010 (PC)
    Bonsoir,

    Evite les Select, ils ralentissent le code pour rien.

    Ensuite clic-droit sur ton bouton puis comme sur l'image, pour qu'il ne bouge plus
    Bouton qui se déplace.JPG
    Corrige le début de ton code comme ci-dessous, je n'ai pas téléchargé les fichiers donc pas tester.
    Code (Visual Basic):
    Sub CreationSynthese()
    ' Initialisation
    Columns("A:C").Delete Shift:=xlToLeft
     
    Range("A1") = "Région"
    Range("B1") = "Immeuble"
    Range("C1") = "Nombre"
    JaunePale = 13434879
    Range("A1:C1").Interior.Color = JaunePale
    Range("A1:C1").Font.Bold = True

    ' Parcours de tous les fichiers
    ' -----------------------------
    Bonne soirée.
     
  4. Scorpio

    Scorpio XLDnaute Occasionnel

    Inscrit depuis le :
    17 Septembre 2016
    Messages :
    467
    "J'aime" reçus :
    1
    Utilise:
    Excel 2016 (PC)
    Bonjour cp4,
    Super, merci de ton aide, apparemment, cela fonctionne mieux.
    Merci beaucoup et a+++
     

Partager cette page