Les applications MS Office sont conçues trèsintelligemment et je ne dis pas cela simplement parce que cela rend mon travail infiniment plus facile. 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 était absente 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 veille à ce que rien d’important ne fasse partie de l’offre finale. Cela dit, j’ai été surpris de constater que lorsque Excel vous permet d’insérer davantage 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 y parvenir, telles que la sélection du nombre de lignes à ajouter parmi celles existantes, puis l'utilisation de la fonction d'insertion. Vous pouvez également 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 à vous accorder cinq minutes, cette petite macro peut s’occuper de vous.
Comme cela nécessite une macro, vous devrezEnregistrez votre fichier en tant que fichier Excel activé par macro. Pour ce faire, cliquez sur la liste déroulante "Enregistrer en tant que type" dans la fenêtre "Enregistrer sous" et sélectionnez "Classeur activé Marco Excel (* xlsm)".
Ensuite, il est temps d’écrire la macro. Accédez à l'onglet Affichage et cliquez sur Macros pour en créer un. Nommez-le comme bon vous semble et cliquez sur "Créer". La fenêtre suivante s'ouvrira automatiquement.
Ce qui est pertinent ici sont les "Sub" et "End Sub"lignes. La ligne Sub contient le nom de votre macro, tandis que End Sub marque la fin des commnads 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 le texte suivant entre ces deux lignes.
Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
Ce code insérera cinq lignes à partir du haut. Il est référencé dans le code comme A1: A5. Pour la modifier selon 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 modifiez 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 gamme insérera 5 lignes. Pour trouver la plage correcte pour votre nombre de lignes, par exemple si vous souhaitez insérer 25 lignes de A99, vous allez ajouter 25 au point de référence afin 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 afin que seul le nombre change et non la lettre de la colonne. La macro doit être mise à jour à chaque fois que vous devez insérer des lignes dans enmass, mais il ne s’agit que d’une petite modification et elle fonctionne très bien.
Macro via le support Microsoft
commentaires