XL 2016 Regrouper plusieurs classeurs dans 1

Scorpio

XLDnaute Occasionnel
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.
 

Fichiers joints

cp4

XLDnaute Impliqué
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.
VB:
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.
 

Discussions similaires


Haut Bas