Inserer des lignes vide entre lignes non vides Résolu

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

Votre réponse

Discussions similaires

Newsletters