XL 2019 VBA consolidation de plusieurs tableaux

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

Lion54

XLDnaute Nouveau
Bonsoir à tous,

Je commence dans la programation VBA. J'aurais besoin de votre aide svp si qqun veut bien m aiser.
J'ai un fichier Excel avec plusieurs onglets qui contiennent chacun un tableau au format identique. J'aurais donc besoin de programmer de manière automatique via Macro les étapes suivants:
1) Copier le tableau qui se trouve dans tous les onglets verts et les coller dans l'onglet intitulé 'Reporting' l'un à la suite de l'autre, l'entete doit etre repris qu'une seule fois sur la première ligne de l'onglet 'reporting'. Le but étant de créer un seul tableau qui sera utilisé par la suite pour faire un tableau croisé dynamique.
2) Supprimer les onglets D à F de J à P
3) mettre en forme de manière esthétique

j'ai mis le fichier en PJ.

Pouvez svp m'aider

En vous remerciant
 

Pièces jointes

Solution
mapomme
Re 😉,

Une v2 avec vos trois demandes.

Dans le code, il y a maintenant une constante qui contient les noms des feuilles à exclure de la consolidation.
  • c'est à vous de définir cette constante et de la maintenir à jour
  • les noms des onglets sont séparés par un point-virgule
  • vous pouvez y laisser trainer des noms de feuilles non présentes dans le classeur
  • le nom de cette constante est : OngletsExclus
Voici le début du code montrant la constante à adapter :
VB: 
'onglets à exclure pour le tableau final
'les noms des onglets sont séparés par des "point-virgule" sans espace
'ne pas oublier les onglets "reporting", "quaterly report" et"Annual report"

Const OngletsExclus = "reporting;quaterly report;Annual...
Trier par date Trier par votes
J'ai trouvé 🙂.
J ai juste renommé sheets 1 par reporting 2 et ca fonctionne.
Peux tu stp me dire à quelle niveau dois je qjouter le commentaire : ".Cells(ligneCible, "a").PasteSpecial xlPasteFormats"?

J ai fait comme suit mais ca ne fonctionne pas.
Set plage = F.Range("a" & premLig & ":u" & derLig) 'plage à copier
'première ligne vide de la feuille "Reporting" (dernière ligne +1)
ligneCible = .Cells(.Rows.Count, "a").End(xlUp).Row + 1
If Combien = 1 Then ligneCible = 1 'si première copie, on collera vers la ligne 1
plage.Copy .Cells(ligneCible, "a").PasteSpecial xlPasteFormats 'la copie
End If

Merci encore pour ton aide
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
XL 2016 Récupérer les valeurs de chaque titre à partir de plusieurs onglets
Réponses
4
Affichages
367
bnolwalid
B
Z
  • Question Question
Microsoft 365 Segment commun avec plusieurs onglets source de données
Réponses
12
Affichages
582
Zazagally
Z
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
708
Laliepomm
L
F
  • Question Question
Power Query Compiler des donner de plusieurs tableaux sur un seul (automatiquement)
Réponses
6
Affichages
708
Fëa
F
A
  • Résolu(e)
Microsoft 365 Copier la même cellule de plusieurs onglets dans différentes colonnes
2
Réponses
23
Affichages
1 K
AlexiaC
A
F
  • Question Question
Microsoft 365 Remplissage automatique d'un tableau d'après des tableaux de plusieurs feuilles différentes.
Réponses
8
Affichages
947
Fëa
F
A
  • Question Question
XL 2019 Tri plage + arrondis montants en VBA
Réponses
4
Affichages
473
Amilo
A
P
  • Question Question
Microsoft 365 gestion de stock avec plusieurs date de production sur même produit
Réponses
12
Affichages
2 K
pouetpouetlagalette
P
M
  • Question Question
Autres Créer tableau automatique et séparation de texte
Réponses
8
Affichages
712
fanfan38
fanfan38
O
  • Question Question
XL 2013 Tableau crée par VBA avec des données provenant de différents tableaux
Réponses
1
Affichages
536
onyirimba
O
M
  • Résolu(e)
XL 2016 VBA - Traitement de données en fonction de plusieurs critères avec Dictionary
2
Réponses
29
Affichages
1 K
Mak_tarmak
M
king76
  • Question Question
XL 2016 Calculer des données sur plusieurs colonnes
Réponses
7
Affichages
694
king76
king76
V
  • Question Question
XL 2016 Combiner plusieurs feuilles de plusieurs fichiers
2
Réponses
16
Affichages
2 K
vivi21
V
R
  • Question Question
XL 2010 VBA : consolidation
Réponses
2
Affichages
851
Rousseau Benoit
R
A
  • Résolu(e)
Microsoft 365 Transformation et consolidation en VBA
2 3 4
Réponses
50
Affichages
5 K
Amilo
A
W
  • Question Question
XL 2019 Peupler une listbox à partir de plusieurs feuilles ayant un nom spécifique.
Réponses
7
Affichages
1 K
WG95
W
L
  • Question Question
Microsoft 365 VBA fichier excel
Réponses
1
Affichages
540
tbft
tbft
S
  • Résolu(e)
Autres excel 2021 VBA : Comment modifier un choix dans un segment d'un TCD (annuler & sélectionner) ?
Réponses
1
Affichages
4 K
Scoub
S
E
  • Question Question
Microsoft 365 Besoin de votre aide pour formule :)
2
Réponses
26
Affichages
2 K
Excelée
E
M
  • Question Question
Microsoft 365 recuperer les données de plusieurs onglets
Réponses
2
Affichages
975
marcmarc
M
Retour