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

MJ13

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

Pièces jointes

  • test filtre.zip
    22.2 KB · Affichages: 93

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
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

Code:
 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
 

Pièces jointes

  • Copie de test filtre.zip
    22.8 KB · Affichages: 124

MJ13

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

Discussions similaires

Réponses
6
Affichages
323

Statistiques des forums

Discussions
311 997
Messages
2 084 447
Membres
102 579
dernier inscrit
JLB35