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

Pierrot93

XLDnaute Barbatruc

• 31 Octobre 2007

• #2

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 :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

J

Jeanvaljean

Guest

• 31 Octobre 2007

• #3

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 31 Octobre 2007

• #4

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

 

Vote positif 0 Vote négatif

J

Jeanvaljean

Guest

• 31 Octobre 2007

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 31 Octobre 2007

• #6

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

bonjour Jeanvaljean

Salut Pierrot 🙂

Salut Wilfred 🙂

Autre solution

Code:

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

 

Vote positif 0 Vote négatif

J

Jeanvaljean

Guest

• 31 Octobre 2007

• #7

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 31 Octobre 2007

• #8

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

 

Pièces jointes

• firstlin.xls

  23.5 KB · Affichages: 87

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Octobre 2007

• #9

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 :

Code:

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

@+

 

Vote positif 0 Vote négatif

J

Jeanvaljean

Guest

• 31 Octobre 2007

• #10

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....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Octobre 2007

• #11

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...

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Octobre 2007

• #12

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

Re

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

 

Vote positif 0 Vote négatif

J

Jeanvaljean

Guest

• 31 Octobre 2007

• #13

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...

 

Vote positif 0 Vote négatif

J

Jeanvaljean

Guest

• 31 Octobre 2007

• #14

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🙂

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Octobre 2007

• #15

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...

 

Vote positif 0 Vote négatif