Inserer deux lignes entre chaque ligne et copier la ligne du bas

Fermé
malek958 Messages postés 2 Date d'inscription mardi 12 avril 2016 Statut Membre Dernière intervention 12 avril 2016 - 12 avril 2016 à 09:46
ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 - 12 avril 2016 à 11:56
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.
A voir également:

2 réponses

ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
12 avril 2016 à 11:56
Bonjour

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
1