Connaître N° 1ère ligne d'une plage de cellules

[Jeanvaljean]

Salut le forum,

Quelqu'un connaîtrait-il l'équivalant de :

lastrow = Range("A5").CurrentRegion.End(xlDown).Row (donnant le numéro de la dernière ligne d'une plage de cellules), pour obtenir le numéro de la première ligne????

Merci d'avance,

Jeanvaljean

 

[Pierrot93]

Re : Connaître N° 1ère ligne d'une plage de cellules

Bonjour JeanValjean

si j'ai bien compris ta demande, si toutes les lignes de la plage concernée sont renseignées, essaye comme ceci :

x = Range("A65536").End(xlUp).End(xlUp).Row

bon après midi
@+

 

[Jeanvaljean]

Re : Connaître N° 1ère ligne d'une plage de cellules

Salut Pierro,

cette formule ne répond pas à mon pb car elle me renvoie à la valeur x=1.

Or je voudrai connaître le numéro de la première ligne d'une plage de cellule obtenue après un filtrage automatique....

@+ Jean

 

[wilfried_42]

Re : Connaître N° 1ère ligne d'une plage de cellules

Bonjour à tous : re jeanpierre

Range("A1").select
Sendkeys "{DOWN}"
No_ligne = activecell.row

 

[Jeanvaljean]

Re : Connaître N° 1ère ligne d'une plage de cellules

wilfried,

J'obtiens également le même résultat No_ligne = 1.

@+ Jean

 

[pierrejean]

Re : Connaître N° 1ère ligne d'une plage de cellules

bonjour Jeanvaljean

Salut Pierrot

Salut Wilfred

Autre solution

x=Range("A5").CurrentRegion.Row

 

[Jeanvaljean]

Re : Connaître N° 1ère ligne d'une plage de cellules

Salut PierreJean

Désolé mais j'obtiens toujours la même valeur x = 1.

et lorsque je fais :

lastrow = Range("A5").CurrentRegion.End(xlDown).Row (j'obtiens bien le numéro de ma dernière ligne).

A moins qu'il faut compter le nombre de lignes de cette plage et le soustraire au numéro de la dernière ligne pour connaître celui de la première?

Jean

 

[pierrejean]

Re : Connaître N° 1ère ligne d'une plage de cellules

re

est-ce que par hasard la CurrentRegion n'aurait pas sa 1ere ligne a 1 ??

voir essai joint

 

[Pierrot93]

Re : Connaître N° 1ère ligne d'une plage de cellules

Re, bonjour Wilfried, PierreJean

une autre solution, en supposant que la zone à filtrer soit A2:B70 :

z = Range("A2:B70").SpecialCells(xlCellTypeVisible).Cells(1).Row

@+

 

[Jeanvaljean]

Re : Connaître N° 1ère ligne d'une plage de cellules

Je comprends pourquoi, j'obtiens toujours 1 aux différentes solutions évoquées, car le tri est fait dans un tableau avec les 5 premières lignes correspondants à mes entêtes de colonnes.

Et lorsque je fais mon fitrage, le résultat obtenu est contiguë à ces 5 premières lignes et j'obtiens par conséquent 1.

Peut-être me faudrait-il une ligne vide entre les 2?

Jean....

 

[Pierrot93]

Re : Connaître N° 1ère ligne d'une plage de cellules

Re

tu n'aurais pas des cellules fusionnées des fois... sans doute que ton fichier en pièce jointe nous aiderait à t'aider...

@+

 

[Pierrot93]

Re : Connaître N° 1ère ligne d'une plage de cellules

Re

dans mon dernier code remplace A2 par A6, peut être que...

 

[Jeanvaljean]

Re : Connaître N° 1ère ligne d'une plage de cellules

une ligne vide entre mes 5 lignes d'entêtes et le résultat de mon filtrage....

Jean...

 

[Jeanvaljean]

Re : Connaître N° 1ère ligne d'une plage de cellules

Bon, finalement j'ai trouvé la solution : je teste les cellules les unes après les autres jusqu'à obtenir mon critère de filtre toto, et à ce moment là, la valeur Firstrow correspond à mon numéro de ligne....

Do Until Range("E" & firstrow).Value = "toto"
firstrow = firstrow + 1
Loop

Si toutefois, il y avait plus simple je suis preneur!!!

Bonne soirée à tous et merci de votre coup de main

Jeanvaljean

 

[Pierrot93]

Re : Connaître N° 1ère ligne d'une plage de cellules

Re

suis même pas sur que tu ais lus mes dernières questions et propositions...