Inserer des lignes vide entre lignes non vides

Résolu

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention -
nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention - 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

A voir également:

Inserer des lignes vide entre lignes non vides
Comment supprimer une page vide sur word - Guide
Partager des photos en ligne - Guide
Insérer video powerpoint - Guide
Caractere vide - Guide
Insérer signature word - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention

Merci infiniment

Discussions similaires

le frigo ne marche pas....

Internat nourriture

EXCEL : Supprimer des lignes vides à la fin

Comment faire les coeur vide sur FB

raccourci coeur blanc

Votre réponse

Discussions similaires