Trouver la dernière ligne vide

[guy974]

Bonjour,

Comment feriez-vous en VBA pour :

1/ trouver la dernière ligne vide en recherchant (de bas en haut) sur la colonne A,

2/ Coller le champs ("C1:F5") dans la cellule A de la dernière ligne vide

En vous remerciant

Guy

 

[nat54]

Re : Trouver la dernière ligne vide

Bonjour,

Tu as de la chance 😀 ; j'avais cherché ca en stage avec mon tuteur

et il m'avait donné la soluce qui peut paraître bête au 1er abord

[/FONT]
[FONT=Arial][FONT=Book Antiqua][SIZE=2]If [a2] ="""" Then Range(" a1").Activate Else Selection.End(xlDown).Select   [/SIZE][/FONT][/FONT]
[FONT=Book Antiqua][SIZE=2][FONT=Arial]    [/FONT][FONT=Arial]ActiveCell.Activate[/FONT][/SIZE][/FONT]
[FONT=Arial][FONT=Book Antiqua][SIZE=2]    ActiveCell.Offset(1, 0).Activate  [COLOR=teal]‘pour se placer sur la prochaine ligne vierge[/COLOR][/SIZE][/FONT][/FONT]
[FONT=Arial][FONT=Book Antiqua][SIZE=2]   [/SIZE][/FONT][/FONT]
[FONT=Book Antiqua][SIZE=2][FONT=Arial]   [/FONT][FONT=Arial]ActiveSheet.Paste[/FONT][/SIZE][/FONT]
[FONT=Book Antiqua]

 

[ERIC S]

Re : Trouver la dernière ligne vide

Bonjour

nouvligne = Range("A65536").End(xlUp).Row + 1
Range("C1:F5").Select
Selection.Copy
Cells(nouvligne, 1).Select
ActiveSheet.Paste

un conseil, utiliser plutôt
Range("A65536").End(xlUp)
que
End(xlDown)

car le down te donnera la première cellule vide alors qu'en partant de -65536 et en remontant tu trouves l adernière non vide de la colonne

 

[guy974]

Re : Trouver la dernière ligne vide

génial
merci beaucoup

 

[nat54]

Re : Trouver la dernière ligne vide

un conseil, utiliser plutôt
Range("A65536").End(xlUp)
que
End(xlDown)

car le down te donnera la première cellule vide alors qu'en partant de -65536 et en remontant tu trouves l adernière non vide de la colonne

Bonjour,

merci du conseil
c'est vrai qu'ensuite je devais dire, aller à la ligne suivante