Astuce VBA please

[Fermé]
Signaler
-
Messages postés
24205
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
24 octobre 2021
-
Bonjour,

Je souhaiterai copier toute une ligne de la même feuille vers la ligne qui se trouve en dessous,
ligne 6
inseré sur ligne 7
ligne 8
inséré sur ligne 9
loop
jusqu'a ce que la 1000ème ligne

C'est possible ?

Je sais que oui ;) mais je trouve pas le "offset" qui convient...

Venez moi en aide please.

Merci à tous.

2 réponses

Messages postés
10161
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
23 octobre 2021
2 232
bonsoir

un exemple (changer les lignes de début et de fin)

Const lideb = 6
Const lifin = 14

Public Sub copie()
Dim li As Long
With ActiveSheet
  For li = lideb To lifin Step 2
    .Rows(li).EntireRow.Copy .Cells(li + 1, 1)
  Next li
End With
End Sub

bonne suite
Messages postés
24205
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
24 octobre 2021
6 937
Bonjour,

Ce qui revient à insérer une ligne en 6 :
Rows(6).Insert Shift:=xlDown 

(et éventuellement supprimer la ligne 1002)

eric

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.