copier ligne

a10

XLDnaute Impliqué
Bonjour

j'ai à copier lignes A7 à O15 de la feuille A
Ces lignes sont à recopier sur la feuille B en dessous de la dernière ligne qui est vide.

Je crois que le code est xlup ? mais je ne me souviens plus.


Merci de votre aide
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour A10, bonjour le forum,

Peut-être comme ça :

VB:
Sub Macro1()
Dim DEST As Range

Set DEST = IIf(Sheets("Feuil2").Range("A1").Value = "", Sheets("Feuil2").Range("A1"), Sheets("Feuil2").Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0))
Sheets("Feuil1").Range("A7:O15").Copy DEST
End Sub
 

a10

XLDnaute Impliqué
BONJOUR

Sheets("feuil2").Select.Range("A1").Sheets("feuil2").Select.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0))

VOICI CE QUE J AI TESTE
Sheets("feuil2").Range("A1").Sheets("feuil2").Select.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0))

mais cela ne semble pas fonctionner

a+
 

Robert

XLDnaute Barbatruc
Repose en paix
VB:
Sub Macro1()

If Sheets("Feuil2").Range("A1") = "" Then
  Sheets("Feuil1").Range("A7:O15").Copy Sheets("Feuil2").Range("A1")
Else
  Sheets("Feuil1").Range("A7:O15").Copy Sheets("Feuil2").Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
End If
End Sub

Comme tu peux le constarer, aucun Select...
 

Discussions similaires

Réponses
7
Affichages
287

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal