Insérer des lignes entre 2 celulles
Fermé
amandineannelise
Messages postés
1
Date d'inscription
jeudi 2 mai 2013
Statut
Membre
Dernière intervention
2 mai 2013
-
2 mai 2013 à 12:00
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 2 mai 2013 à 12:16
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 2 mai 2013 à 12:16
A voir également:
- Insérer des lignes entre 2 celulles
- Insérer signature word - Guide
- Insérer une vidéo dans powerpoint - Guide
- Insérer liste déroulante excel - Guide
- Insérer table des matières word - Guide
- Insérer filigrane word - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 750
Modifié par pijaku le 2/05/2013 à 12:17
Modifié par pijaku le 2/05/2013 à 12:17
Bonjour,
A adapter :
Cordialement,
Franck P
A adapter :
Sub InsereLignes()
Dim lig As Long, drlig As Long
Dim nbLign As Byte, lignDep As Byte
Dim NomFeuil As String
'A ADAPTER ----------------------------------------
drlig = Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne col A
nbLign = 12 'pour insérer 13 lignes indiquer 12...
lignDep = 2 'pour signifier que le tableau commence ligne 1
NomFeuil = "Feuil1" 'nom de la feuille concernée
'Fin ADAPT------------------------------------------
Application.ScreenUpdating = False
With Sheets(NomFeuil)
For lig = drlig To lignDep Step -1
.Rows(lig & ":" & lig + nbLign).Insert Shift:=xlDown
Next lig
End With
Application.ScreenUpdating = True
End Sub
Cordialement,
Franck P
