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