Cette vidéo va vous montrer comment réaliser une consolidation de plusieurs feuilles dans un classeur. br br Vous trouverez ci-dessous le code VBA complet avec les commentaires : br br br 'Déclaration des variables au niveau du Module br br Dim i As Integer, j As Integer, k As Integer br Dim DerniereLigne As Integer br Dim LastRowConsolidation As Integer br br br '*************************************************** br ' Procédure permettant d'effacer les données de br ' la consolidation afin d'éviter les doublons br '*************************************************** br br Sub EffaceConsolidation() br br 'On se positionne sur la feuille Consolidation br Worksheets("Consolidation").Select br 'On sélectionne la plage correspondante aux données à effacer br Rows("6:1000000").Select br 'On efface le contenu et la mise en forme br Selection.Clear 'ou Selection.delete shift:=xlUp br 'On se repositionne sur le premier enregistrement à copier br Range("A6").Select br br End Sub br br '**************************************************** br ' Procédure permettant de réaliser une consolidation br ' ou synthèse sur autre feuille. br '**************************************************** br br Sub Consolider() br br 'On désactive le raffraichissement de l'écran (scintillement) br Application.ScreenUpdating = False br 'On appelle la procédure permettant d'effacer les données br EffaceConsolidation br 'On va créer une boucle permettant de lire toutes les feuilles à consolider br 'ici nous avons 12 feuilles = Janvier à Décembre br br For j = 1 To 12 'on parcours les 12 premières feuilles br br 'On sélectionne la première feuille br Sheets(j).Select br 'On se positionne sur la dernière ligne non vide br DerniereLigne = Range("A1000000").End(xlUp).Row br 'On parcours tout le tableau à partir de la ligne pour copier chacune ligne br For i = 6 To DerniereLigne br 'On sélectionne la première feuille br Sheets(j).Select br 'On sélectionner la première ligne br Rows(i).Select br 'On copie la ligne br Selection.Copy br 'Où, sur la feuille consolidation, il faut donc la sélectionner br Sheets("Consolidation").Select br 'Il faut trouver la dernière ligne non vide de la feuille consolidation br LastRowConsolidation = Range("A1000000").End(xlUp).Row + 1 br 'On sélectionne la cellule vide et la première colonne br Cells(LastRowConsolidation, 1).Select br 'Une fois positionné, on colle les données br ActiveSheet.Paste br Application.CutCopyMode = False br br Next i br br Next j br br 'On réactive le raffraichissement de l'écran (scintillement) br Application.ScreenUpdating = True br 'On affiche un message qui prévient que la consolidation est terminée br MsgBox "La consolidation est terminée...