Insérer un nombre personnalisé de lignes dans Excel avec cette macro simple

Les applications MS Office sont conçues de manière très intelligente et je ne dis pas cela simplement parce qu'elles facilitent infiniment mon travail. Je le dis parce que c'est vrai. Il y a quelques jours, nous avons publié un article sur l'insertion de vidéos YouTube dans Office 2013 et constaté que l'option n'était pas présente dans MS Excel simplement parce qu'elle n'y était pas nécessaire. C’est le type d’intelligence dont je parle; savoir quelles fonctionnalités sont nécessaires dans un type d'application spécifique. Il s'assure que rien d'irréaliste ne fait partie de l'offre finale. Cela dit, j'ai été surpris de constater que lorsque Excel vous permet d'insérer plus de lignes dans une feuille de calcul, il ne vous permet pas de sélectionner le nombre de lignes que vous souhaitez ajouter. Vous avez d'autres solutions pour accomplir cela, comme la sélection du nombre de lignes que vous souhaitez ajouter à partir des lignes existantes, puis l'utilisation de la fonction d'insertion. Ou vous pouvez répéter l'étape d'insertion de ligne pour autant de lignes que vous le souhaitez. C'est répétitif, mais si vous êtes prêt à consacrer cinq minutes, cette petite macro peut prendre en charge le travail pour vous.

Étant donné que cela nécessite une macro, vous devrez enregistrer votre fichier en tant que fichier Excel compatible avec les macros. Pour ce faire, cliquez sur la liste déroulante "Enregistrer sous type" dans la fenêtre Enregistrer sous et sélectionnez "Classeur Excel activé par Marco (* xlsm).

Ensuite, il est temps d'écrire la macro. Accédez à l'onglet Affichage et cliquez sur Macros pour en créer une nouvelle. Nommez-le comme vous voulez et cliquez sur «Créer». La fenêtre suivante s'ouvrira automatiquement.

Ce qui est pertinent ici, ce sont les lignes «Sub» et «End Sub». La sous-ligne contiendra le nom de votre macro tandis que la sous-fin marque la fin des commnades dans cette macro. Puisque vous venez de le créer, il ne devrait y avoir rien entre ces lignes comme dans la capture d'écran ci-dessus. Collez ce qui suit entre ces deux lignes.

Dim CurrentSheet As Object 'Boucle à travers toutes les feuilles sélectionnées. Pour chaque feuille actuelle dans ActiveWindow. SelectedSheets 'Insérez 5 lignes en haut de chaque feuille. CurrentSheet. Plage ("a1: a5"). FullyRow. Insérez la feuille CurrentSheet suivante. 

Ce code insérera cinq lignes du haut. Il est référencé dans le code comme A1: A5. Pour le modifier en fonction de vos besoins, vous devez modifier cette plage. La première valeur sert de référence à l'endroit où les lignes seront insérées. Si vous le changez en A100, les lignes seront insérées après les quatre-vingt-dix-neuf premières lignes. Après avoir défini le point de référence, vous devez entrer le nombre de lignes.

Les numéros de ligne sont définis par la plage de cellules A1: A5. Cette plage insérera 5 lignes. Pour trouver la plage correcte pour votre nombre de lignes, par exemple, vous souhaitez insérer 25 lignes de A99, vous ajouterez 25 au point de référence pour qu'il soit A99 et moins une cellule de celui-ci. C'est à dire. A100 + 99 - 1 = A198. Vous ajoutez des lignes et non des colonnes, donc seul le nombre changera et non la lettre de la colonne. La macro doit être mise à jour chaque fois que vous devez insérer des lignes, mais ce n'est qu'une petite modification et cela fonctionne très bien, donc cela vaut le temps passé.

Macro via le support Microsoft