Astuce VBA please

Question

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.

Configuration: Windows XP / Chrome 22.0.1229.79

ccm81 · Answer

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

eriiic · Answer

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.

Astuce VBA please

2 réponses

Discussions similaires

Newsletters