Excel VBA - Comment réaliser une consolidation de plusieurs feuilles avec une macro

Описание: Cette vidéo va vous montrer comment fusionner ou combiner plusieurs feuilles dans une nouvelle feuille en utilisant une procédure VBA.

Code VBA :

'Déclaration des variables au niveau du Module

Dim i As Integer, j As Integer, k As Integer
Dim DerniereLigne As Integer
Dim LastRowConsolidation As Integer


'***************************************************
' Procédure permettant d'effacer les données de
' la consolidation afin d'éviter les doublons
'***************************************************

Sub EffaceConsolidation[]

'On se positionne sur la feuille Consolidation
Worksheets["Consolidation"].Select
'On sélectionne la plage correspondante aux données à effacer
Rows["6:1000000"].Select
'On efface le contenu et la mise en forme
Selection.Clear 'ou Selection.delete shift:=xlUp
'On se repositionne sur le premier enregistrement à copier
Range["A6"].Select

End Sub

'****************************************************
' Procédure permettant de réaliser une consolidation
' ou synthèse sur autre feuille.
'****************************************************

Sub Consolider[]

'On désactive le raffraichissement de l'écran scintillement
Application.ScreenUpdating = False
'On appelle la procédure permettant d'effacer les données
EffaceConsolidation
'On va créer une boucle permettant de lire toutes les feuilles à consolider
'ici nous avons 12 feuilles Janvier à Décembre

For j = 1 To 12 'on parcours les 12 premières feuilles

'On sélectionne la première feuille
Sheets[j].Select
'On se positionne sur la dernière ligne non vide
DerniereLigne = Range["A1000000"].End[xlUp].Row
'On parcours tout le tableau à partir de la ligne pour copier chacune ligne
For i = 6 To DerniereLigne
'On sélectionne la première feuille
Sheets[j].Select
'On sélectionner la première ligne
Rows[i].Select
'On copie la ligne
Selection.Copy
'Où, sur la feuille consolidation, il faut donc la sélectionner
Sheets["Consolidation"].Select
'Il faut trouver la dernière ligne non vide de la feuille consolidation
LastRowConsolidation = Range["A1000000"].End[xlUp].Row + 1
'On sélectionne la cellule vide et la première colonne
Cells[LastRowConsolidation, 1].Select
'Une fois positionné, on colle les données
ActiveSheet.Paste
Application.CutCopyMode = False

Next i

Next j

'On réactive le raffraichissement de l'écran scintillement
Application.ScreenUpdating = True
'On affiche un message qui prévient que la consolidation est terminée
MsgBox "La consolidation est terminée...", vbOKOnly + vbInformation, "Message"

End Sub

================================================
Consulter ma Boutique en ligne :
https://learnaccess.kneo.me/shop
================================================ *********************************************************************************************************
Utiliser mon lien de parrainage pour acheter un produit Tesla et obtenir des crédits gratuits :
kilomètres gratuits en Superchargeur
des vêtements et accessoires.

https://ts.la/jeanpaul673722
*************************************************************************************************************