Sujet Précédent Sujet Suivant

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

Réponse 1 / 2
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

Discussions similaires

indiquer au tri personnalisé que mon entete comporte 4 lignes
sam130242 -
sam130242 -

10 réponses
Nombre de lignes d'un paragraphe
gorby1980 -
gorby1980 -

6 réponses
convertir fichier pdf en publisher
malaju -
contrariness -

1 réponse
suppression ligne vide
van_van -
van_van -

2 réponses
Trouver un correspondant Allemand
Gaspard118 -
Gaspard118 -

4 réponses
Un contact apparaît toujours hors ligne
leslie069 -
Utilisateur anonyme -

7 réponses