Menu

Inserer des lignes vide entre lignes non vides [Résolu]

Messages postés
529
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
22 avril 2019
- - Dernière réponse : nonossov
Messages postés
529
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
22 avril 2019
- 15 avril 2019 à 13:18
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
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
5990
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
421
1
Merci
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


Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 40434 internautes nous ont dit merci ce mois-ci

nonossov
Messages postés
529
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
22 avril 2019
-
Merci infiniment
Commenter la réponse de cs_Le Pivert