Afin de transférer complètement les données de la plage de cellules actuelle vers un nouveau tableau, vous devez connaître la taille de la plage de cellules utilisée autour de la cellule active. Ou vous pouvez laisser Excel le faire pour vous et copier le g
Souhaitez-vous copier automatiquement toutes les cellules d'une plage contiguë de cellules dans une macro ? Ceci est particulièrement utile si vous souhaitez réagir de manière flexible aux entrées des utilisateurs et que vous ne connaissez pas la taille des zones de données entrées.
Vous pouvez utiliser une macro pour faire ce travail. La macro détermine toutes les cellules autour de la cellule active et copie exactement ces cellules dans un nouveau classeur.
La figure suivante montre un tableau avec trois zones de données différentes. Ils sont codés par couleur pour les rendre plus faciles à voir.
Toutes les cellules qui se connectent à des cellules voisines sans cellules vides sont considérées comme appartenant ensemble.
Avec une macro appropriée, vous pouvez vous assurer qu'après avoir cliqué sur une cellule dans une plage de cellules, toutes les cellules qui lui appartiennent sont copiées dans un nouveau tableau. Voici le code du programme approprié :
Sous-copier la zone actuelle ()
Faible zone source As Range
Dim NewSheet en tant que feuille de calcul
Définir la zone source = ActiveCell.CurrentRegion
Définir NeuesBlatt = Workbooks.Add.Worksheets (1)
Zone source.Destination de la copie : = NeuesBlatt.Range ("A1")
Fin du sous-marin
Avant d'appeler la macro, cliquez sur n'importe quelle cellule d'un tableau. La macro détermine toutes les cellules qui, avec la cellule sélectionnée, appartiennent à une plage et copie cette plage de données dans un nouveau classeur vide. La figure suivante montre à quoi ressemble le résultat après avoir appelé la macro si la cellule E9 du tableau de la première figure est sélectionnée avant le démarrage de la macro.
Pour entrer dans la macro, appuyez sur ALT F11 dans Excel pour afficher l'éditeur VBA. Sélectionnez la commande INSERT - MODULE dans l'éditeur VBA et entrez la macro. Pour démarrer la macro, activez la combinaison de touches ALT F8 dans Excel. Les deux raccourcis clavier pour démarrer l'éditeur VBA et la macro fonctionnent dans toutes les versions d'Excel.