Copier des données d'une feuille Excel à une autre à l'aide d'une macro

Table des matières

Vous pouvez utiliser une macro pour copier des données d'une feuille de calcul Excel vers une autre feuille du même classeur

Souhaitez-vous transférer le contenu d'une zone d'une feuille de calcul à une autre ? C'est facile à faire avec l'utilisation interactive d'Excel. Mais comment faire le travail avec une macro ? Créez une boucle qui parcourt toutes les cellules que vous souhaitez copier. Voici à quoi ressemble la macro :

Sous-zone de copie ()
Dim Quelltab en tant que feuille de calcul
Onglet cible faible en tant que feuille de calcul
Dim Cell As Range
Compteur dim aussi long
Compteur = 1
Plage = "A1 : A10"
Définir l'onglet source = ActiveWorkbook.Worksheets ("Table1")
Définir l'onglet cible = ActiveWorkbook.Worksheets ("Table2")
Pour chaque cellule dans SourceTab.Range ("A1: A10")
Tableau cible Cellules (compteur, 1) = cellule
Compteur = compteur + 1
Cellule suivante
Fin du sous-marin

Dans la définition de la variable "Onglet source", vous spécifiez le nom de la table source au sein du classeur. Il s'agit de la feuille de calcul à partir de laquelle vous souhaitez copier les données. Dans la macro il s'agit de la feuille "Table1".

Utilisez la balise "Target tab" pour définir le nom de la feuille de calcul dans laquelle vous souhaitez copier les données.

La zone A1 : A10 est copiée dans la macro. Si vous souhaitez utiliser une zone différente, ajustez la macro en conséquence.

Vous utilisez la balise "Compteur" pour contrôler la ligne de la table cible dans laquelle l'insertion des cellules doit commencer. Les données sont copiées les unes sous les autres dans les cellules

Pour entrer dans la macro, appuyez sur ALT F11 dans Excel pour afficher l'éditeur VBA. Utilisez la commande INSERER - MODULE pour insérer une feuille de module vide. Pour démarrer la macro directement à partir d'Excel, utilisez la combinaison de touches ALT F8.

Copier une feuille de calcul entière dans un classeur

Vous avez également la possibilité de copier l'intégralité de la feuille de calcul dans un classeur à l'aide d'une macro. Pour copier la feuille active du classeur en cours à la fin du classeur, utilisez la macro suivante :

Sous CopyActiveTable ()
ActiveSheet.Copy After : = Feuilles de calcul (Worksheets.Count)
Fin du sous-marin

Une fois la macro démarrée, une feuille de calcul est ajoutée au classeur actif. Il s'agit de la copie de la feuille de calcul qui était active lorsque la macro a été appelée. Afin de distinguer les deux feuilles de calcul l'une de l'autre, Excel crée un numéro consécutif derrière la feuille de calcul copiée. La figure suivante montre à quoi cela ressemble dans le registre de table après la copie de la feuille de calcul « Ventes » :

Vous contribuerez au développement du site, partager la page avec vos amis

wave wave wave wave wave