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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas