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

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

A+
 

Robert

XLDnaute Barbatruc
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

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


Haut Bas