copier ligne

Robert

XLDnaute Barbatruc

Repose en paix

• 2 Janvier 2019

• #2

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

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 7 Janvier 2019

• #3

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+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Janvier 2019

• #4

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

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 9 Janvier 2019

• #5

MERCI


je vais essayer de le tester sans le select

a+

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 9 Janvier 2019

• #6

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+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Janvier 2019

• #7

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

 

Vote positif 0 Vote négatif