Inserer des lignes vide entre lignes non vides

Résolu/Fermé

nonossov Messages postés 610 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 15 avril 2019 à 11:06
nonossov Messages postés 610 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 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
Supprimer lignes vides excel fin de tableau - Forum Excel
Supprimer page word vide - Guide
Coeur vide ✓ - Forum Facebook
Excel trier par ordre alphabétique en gardant les lignes - Guide
Insérer une vidéo dans powerpoint - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
15 avril 2019 à 11:24

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 lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
15 avril 2019 à 13:18

Merci infiniment

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

le frigo ne marche pas....

Afficher toutes les lignes masquées excel

Formaté mais pas de connexion Internet ?

Internat nourriture