copier ligne

[a10]

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]

Bonjour A10, bonjour le forum,

Peut-être comme ça :

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]

Bonjour,

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

cette macro ci-dessus ne semble pas fonctionner.
Pourquoi ?

A+

 

[Robert]

Bonjour A10, bonjour le forum,

Il existe des dictionnaires en ligne. Tu devrais regarder le mot merci que tu ne sembles pas connaître...
Sinon, il y a un Select en trop dans ton code...

 

[a10]

MERCI


je vais essayer de le tester sans le select

a+

 

[a10]

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]

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...