Microsoft 365 Dernière ligne non vide

walido78 · 23 Mai 2019

Bonjour,
Je viens vers vous parce que j'ai un problème :
Pourriez-vous m'aider en fait pour corriger la boucle, je veux que ce soit jusqu'a la dernière ligne non vide au lieu de A200

Code:

Sub CopieColonneA() 'Copie la Colonne A de Retenue à la colonne A de AMT
 FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
  Worksheets("Retenue").Range("A3:A200").Copy _
    Destination:=Worksheets("AMT").Range("A3")
    
End Sub

youky(BJ) · 23 Mai 2019

Salut bien,
Petite solution facile
Bruno

VB:

Sub CopieColonneA() 'Copie la Colonne A de Retenue à la colonne A de AMT
 FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
  Worksheets("Retenue").Range("A3:A" & FinalRow).Copy _
    Destination:=Worksheets("AMT").Range("A3")
End Sub

Microsoft 365 Dernière ligne non vide

walido78

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Discussions similaires