Inserer des lignes vide entre lignes non vides
Résolu/Fermé
nonossov
Messages postés
611
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 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 15 avril 2019 à 13:18
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 15 avril 2019 à 13:18
A voir également:
- Inserer des lignes vide entre lignes non vides
- Insérer signature word - Guide
- Site de vente en ligne gratuit entre particulier - Guide
- Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
- En ligne sur messenger alors que non ✓ - Forum Facebook
- Coeur vide ✓ - Forum Facebook
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
15 avril 2019 à 11:24
15 avril 2019 à 11:24
Bonjour,
comme ceci:
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
15 avril 2019 à 13:18