comment trouver la derniere rangée ???

[simsim]

Bonjour,

j'aurais voulu savoir comment trouver la derniere rangée dans une feuille ?

je m'explique je voudrais envoyer plusieurs valeurs provenant d'un form dans la feuil2 (toutes les valeurs seront mises sur differentes cellules mais dans la meme rangée)
Comment faire pour trouver en fait la derniere ligne libre de feuil2

quelqu'un peut m'aider !!! (j'attrape mal a la tete)
merci d'avance
@+

 

[JMG]

Bonjour simsim

Essaye ceci
soit tu fais un xlDown en commencant par A1
soit un xlUp en commencant par A65534


Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select


A+ JMG

 

[Fred]

Petit exemple pour toi mais il y a d'autres methodes; par contre il ne faut pas avoir de lignes vide dans cette colonne entre tes données, sinon la premiere cellule vide sera selectionnée :

Sub ligne_vide()
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

End Sub

 

[simsim]

Salut

Un grand merci pour vos reponses

@+

 

[Sylvain]

on peut utiliser une formule
=nb.si(a1:a1000;"<>"")+1

a+

 

[STéphane]

c'est mieux de commencer par le bas comme suggéré parJMG
range("A65534").end(xlup).select

pour pas se casser la tête sur les cellules vides intercalées.

bye
stephane