Ajout de lignes dans une feuille de calcul

Résolu
SanPelegrino Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -  
SanPelegrino Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -
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:

2 réponses

jordane45 Messages postés 38484 Date d'inscription   Statut Modérateur Dernière intervention   4 746
 
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

0
SanPelegrino Messages postés 20 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Jordane

Ca fonctionne à merveille :)

SanPelegrino
0