Astuce VBA please

Tonyvbanoob -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
Réponse 2 / 2
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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.
0

Discussions similaires

Echelle de fête foraine
Chuchoteur -
Bob -

24 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Roulette / Jeu casino
anonym -
laudan -

17 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses