Dans cet article, nous allons apprendre à VBA comment écrire la macro pour consolider les données dans Microsoft Excel.

Consolider les données: -Cette option est utilisée pour résumer les données de plages séparées, en consolidant les résultats en une seule sortie.

Prenons un exemple pour comprendre comment combiner les données via VBA. Nous avons 3 classeurs Excel, nommés A, B et C. Chaque classeur a Sheet1 avec les nombres dans la plage A2: A4. Maintenant, nous voulons récupérer la somme de tous les classeurs dans un fichier Excel avec la somme des nombres et le nom du fichier.

Fichier A: –

image 1

Fichier B: –

image 2

Fichier C: –

image 3

Consolider: –

image 4

Pour consolider les données, suivez les étapes ci-dessous: –

  • Insérez un formulaire utilisateur, puis insérez 3 zones d’étiquette, 3 zones de texte et un bouton de commande.

  • Double-cliquez sur le bouton de commande pour attribuer la macro.

  • Écrivez le code ci-dessous: –

Sub Consolidate()

Range("A1").Select

ActiveCell.Value = "Name"

Range("B1").Select

ActiveCell.Value = "Amount"

Range("A2").Select

ActiveCell.Value = "A"

Range("A3").Select

ActiveCell.Value = "B"

Range("A4").Select

ActiveCell.Value = "C"Range("B2").SelectWorkbooks.OpenFileName:="D:\Data\A.xlsx"

Workbooks.OpenFileName:="D:\Data\B.xlsx"

Workbooks.OpenFileName:="D:\Data\C.xlsx"Windows("Consolidate").Activate

Selection.Consolidate Sources:=Array("'D:\Data\[A.xlsx]sheet1'!R2C1:R4C1", _

"'D:\Data\[B.xlsx]sheet1'!R2C1:R4C1", "'D:\Data\[C.xlsx]sheet1'!R2C1:R4C1"), Function:=xlSum

Windows("A.xlsx").Activate

ActiveWorkbook.Close

Windows("B.xlsx").Activate

ActiveWorkbook.Close

Windows("C.xlsx").Activate

ActiveWorkbook.Close

End Sub

Explication du code: – * Tout d’abord, nous définirons les valeurs de la plage, puis nous définirons le chemin de chaque fichier. Ensuite, nous définirons quelle fonction fonctionnera pour chaque fichier et quel calcul nous voulons consolider.

  • Pour exécuter le code, appuyez sur la touche F5.

  • Tous les fichiers seront ouverts et VBA renverra la somme à tous les fichiers, puis placera le résultat devant le nom du fichier.

image 5

C’est ainsi que nous pouvons consolider les nombres et récupérer dans un seul fichier à partir de différents fichiers dans Microsoft Excel via VBA.

image 48

Si vous avez aimé nos blogs, partagez-les avec vos amis sur Facebook. Et vous pouvez également nous suivre sur Twitter. Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer, compléter ou innover notre travail et le rendre meilleur pour vous. Écrivez-nous à[email protected]