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

• Report rights infringement
• published: 23 Feb 2016
• views: 4257

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