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