Inserer des lignes vide entre lignes non videsRésolu/Fermé

Question

Bonjour mes amis,

j'ai cette macro qui insert une ligne vide  entre deux lignes non vide,

Est ce que vous pouvez m'aider à modifier cette macro pour qu'elle puisse inserer un nombre au choix des lignes vides ? 

NB: La macro va me demander d'enter le nombre des lignes non vide qui je veux inserer.


La macro: https://www.cjoint.com/c/IDpjgituwvi



Merci infiniment



Configuration: Windows / Firefox 52.0

cs_Le Pivert · Answer

Bonjour,

comme ceci:

Public Sub ajout_ligne()
Dim lig As Long, DerLig As Long
Dim i As Integer
Dim nbre As Integer
nbre = InputBox("Entrez le nombre de lignes à ajouter", "Ajout de lignes", "2")
    DerLig = Cells(Rows.Count, 1).End(xlUp).Row - 1
    For lig = DerLig To 1 Step -1
    For i = 1 To nbre
        Rows(lig + 1).Insert
        Next
    Next lig
End Sub

Inserer des lignes vide entre lignes non vides

1 réponse

Newsletters