Numéro de ligne par filtre répondant aux critères

[MJ13]

Bonjour,

Comment en formule et en VBA, trouver le numéro de la première ligne d'un filtre (voir fichier joint).

Merci d'avance à tous les formulistes et les VBAistes.

 

[BOISGONTIER]

Re : Numéro de ligne par filtre répondant aux critères

Bonjour,

=EQUIV(1;(SOUS.TOTAL(3;INDIRECT("b"&LIGNE(B2:B1000))));0)+1
Valider avec Maj+Ctrl+Entrée

 If Range("b:b").SpecialCells(xlCellTypeVisible).Areas(1).Count > 1 Then
     x = 2
  Else
    x = Range("b:b").SpecialCells(xlCellTypeVisible).Areas(2).Item(1).Row
  End If
  MsgBox x

JB
Formation Excel VBA JB

 

[MJ13]

Re : Numéro de ligne par filtre répondant aux critères

Bonjour jacques, le forum

Merci beaucoup. La, c'est la classe.
C'est quand même pas évident à trouver tout seul cette formule et ce code (c'est pour cela aussi que j'aime bien ce forum).
Je vais les garder précieusement.