comment trouver la derniere rangée ???

J

JMG

Guest

• 18 Mai 2002

• #2

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

 

Vote positif 0 Vote négatif

F

Fred

Guest

• 18 Mai 2002

• #3

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

 

Vote positif 0 Vote négatif

S

simsim

Guest

• 19 Mai 2002

• #4

Salut

Un grand merci pour vos reponses

@+

 

Vote positif 0 Vote négatif

S

Sylvain

Guest

• 19 Mai 2002

• #5

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

a+

 

Vote positif 0 Vote négatif

S

STéphane

Guest

• 21 Mai 2002

• #6

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

 

Vote positif 0 Vote négatif