Ajout de lignes dans une feuille de calcul Résolu

Question

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

jordane45 · Answer

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

SanPelegrino · Answer

Merci Jordane
Ca fonctionne à merveille :)
SanPelegrino

Ajout de lignes dans une feuille de calcul

2 réponses

Discussions similaires

Newsletters