Ajout de lignes dans une feuille de calcul

Résolu/Fermé

SanPelegrino Messages postés 19 Date d'inscription vendredi 10 juin 2016 Statut Membre Dernière intervention 27 octobre 2023 - 11 mars 2017 à 01:44
SanPelegrino Messages postés 19 Date d'inscription vendredi 10 juin 2016 Statut Membre Dernière intervention 27 octobre 2023 - 11 mars 2017 à 02:38

Bonjour

J'aimerais pouvoir ajouter un nombre précis de lignes (78) à partir d'un point quelconque. Donc si je suis à la ligne 122, j'aimerais activer la macro et 78 lignes s'ajouteraient. Même chose si je suis à la ligne 400. Je veux être en mesure d'exécuter la macro à partir de la cellule où mon curseur se trouvera.

Des idées ? J'ai fait le tour du net et sans succès :(

Merci

A voir également:

Ajout de lignes dans une feuille de calcul
Feuille de pointage excel - Télécharger - Tableur
Site de vente en ligne particulier - Guide
Calcul moyenne excel - Guide
Aller à la ligne dans une cellule excel - Guide
Formule de calcul excel - Guide

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 4 650
11 mars 2017 à 02:07

Bonjour,

Une rapide recherche sur le net te donne plein de solutions ...
Par exemple :
https://www.thespreadsheetguru.com/the-code-vault/2014/5/28/insert-single-or-multiple-excel-rows-with-vba

Une petite adaptation et hop le tour est joué ...
ceci devrait marcher :

Sub InsertRows()

Dim nbRowToInsert as Integer
Dim Ligne_start as Long
Dim Ligne_end as Long

nbRowToInsert  = 78
Ligne_start = ActiveCell.Row
Ligne_end = Ligne_start + nbRowToInsert  
    
ActiveSheet.Rows(Ligne_start & ":" & Ligne_end).Insert Shift:=xlDown, _
  CopyOrigin:=xlFormatFromLeftOrAbove 'or xlFormatFromRightOrBelow

End Sub

Réponse 2 / 2

SanPelegrino Messages postés 19 Date d'inscription vendredi 10 juin 2016 Statut Membre Dernière intervention 27 octobre 2023
11 mars 2017 à 02:38

Merci Jordane

Ca fonctionne à merveille :)

SanPelegrino

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

exo pix

Qui sont les personnes dans mon ajout rapide de Snapchat ?

Comment savoir comment on nous a ajouté sur Snap

Feuille de score belote

Discussions similaires

Newsletters