Bonsoir a tous.
Comment peut on recuperer par macro le premier N° de la ligne (qui apparait
en bleu) lors de l'execution d'un filtre élaboré filtré sur place ?
En espérant que ma question soit suffisament claire!
Merci
En VBA, cela pourrait donner quelque chose comme ceci :
'---------------------------------- Sub test() Dim Rg As Range, C As Range, R As Range, S As Long With Worksheets("Feuil2") If .FilterMode = True Then Set Rg = .Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible) Else MsgBox "aucun filtre en application sur la feuille." Exit Sub End If End With For Each C In Rg.Areas For Each R In C.Rows If R.EntireRow.Hidden = False Then If R.Row <> 1 Then S = R.Row Exit For End If End If Next Next MsgBox S
End Sub '----------------------------------
"StDonat" a écrit dans le message de news:
Bonsoir a tous. Comment peut on recuperer par macro le premier N° de la ligne (qui apparait en bleu) lors de l'execution d'un filtre élaboré filtré sur place ? En espérant que ma question soit suffisament claire! Merci
En VBA, cela pourrait donner quelque chose comme ceci :
'----------------------------------
Sub test()
Dim Rg As Range, C As Range, R As Range, S As Long
With Worksheets("Feuil2")
If .FilterMode = True Then
Set Rg = .Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
Else
MsgBox "aucun filtre en application sur la feuille."
Exit Sub
End If
End With
For Each C In Rg.Areas
For Each R In C.Rows
If R.EntireRow.Hidden = False Then
If R.Row <> 1 Then
S = R.Row
Exit For
End If
End If
Next
Next
MsgBox S
End Sub
'----------------------------------
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de news:
4E7DA7CD-8E87-4B2B-914D-6E583AC09A1D@microsoft.com...
Bonsoir a tous.
Comment peut on recuperer par macro le premier N° de la ligne (qui apparait
en bleu) lors de l'execution d'un filtre élaboré filtré sur place ?
En espérant que ma question soit suffisament claire!
Merci
En VBA, cela pourrait donner quelque chose comme ceci :
'---------------------------------- Sub test() Dim Rg As Range, C As Range, R As Range, S As Long With Worksheets("Feuil2") If .FilterMode = True Then Set Rg = .Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible) Else MsgBox "aucun filtre en application sur la feuille." Exit Sub End If End With For Each C In Rg.Areas For Each R In C.Rows If R.EntireRow.Hidden = False Then If R.Row <> 1 Then S = R.Row Exit For End If End If Next Next MsgBox S
End Sub '----------------------------------
"StDonat" a écrit dans le message de news:
Bonsoir a tous. Comment peut on recuperer par macro le premier N° de la ligne (qui apparait en bleu) lors de l'execution d'un filtre élaboré filtré sur place ? En espérant que ma question soit suffisament claire! Merci
