Inserer des lignes automatiques
Résolu/Fermé
A voir également:
- Inserer des lignes automatiques
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Insérer une vidéo dans powerpoint - Guide
- Insérer table des matières word - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
2 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
13 janv. 2017 à 18:53
13 janv. 2017 à 18:53
Bonjour,
adaptez nom de feuille
adaptez nom de feuille
Sub Insert_Ligne()
Application.ScreenUpdating = False 'fige ecran
With Worksheets("feuil1")
derlig = .Range("A" & Rows.Count).End(xlUp).Row 'derniere cellule non vide colonne A
'boucle de balayage pour insertion lignes
For N = derlig To 2 Step -1
.Rows(N & ":" & N + 5).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next N
End With
Application.ScreenUpdating = True 'defige ecran
End Sub
