Inserer deux lignes entre chaque ligne et copier la ligne du bas
malek958
Messages postés
2
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour
Quelqu'un aurait-il une macro qui permettrai d'insérer deux lignes entre chaque ligne et copier la ligne du bas sur les lignes insérées.
J'ai déjà cette macro pour insérer deux lignes mais je n'ai pas trouver comment copier la ligne du bas sur les deux lignes insérées :
Sub InsertionLigne()
Dim i As Integer
For i = 65 To 0 Step -1
Cells(i + 1, 1).Select
ActiveCell.Offset(1).Resize(2, 1).EntireRow.Insert
Next
End Sub
Merci de votre aide.
Quelqu'un aurait-il une macro qui permettrai d'insérer deux lignes entre chaque ligne et copier la ligne du bas sur les lignes insérées.
J'ai déjà cette macro pour insérer deux lignes mais je n'ai pas trouver comment copier la ligne du bas sur les deux lignes insérées :
Sub InsertionLigne()
Dim i As Integer
For i = 65 To 0 Step -1
Cells(i + 1, 1).Select
ActiveCell.Offset(1).Resize(2, 1).EntireRow.Insert
Next
End Sub
Merci de votre aide.
A voir également:
- Excel insérer une ligne entre chaque ligne
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Aller à la ligne excel - Guide
- Formule somme excel ligne - Guide
- Insérer liste déroulante excel - Guide
2 réponses
Bonjour
Essaies ceci
Cdlmnt
Essaies ceci
Const lideb = 2
Const lifin = 65
Public Sub OK()
Dim li As Long
For li = lifin To lideb Step -1
Rows(li).Insert
Rows(li + 1).Copy Cells(li, 1)
Rows(li).Insert
Rows(li + 1).Copy Cells(li, 1)
Next li
End Sub
Cdlmnt
