Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Si un filtre est en application sur la Feuil1
'------------------------------- Sub Premiere_Ligne_Du_Filtre() On Error Resume Next With Worksheets("Feuil1") 'à déterminer If .FilterMode = True Then With .Range("_FilterDatabase") MsgBox .Offset(1).Resize _ (.Rows.Count - 1, .Columns.Count). _ SpecialCells(xlCellTypeVisible).Row End With Else Msgbox "Aucun filtre particulier en place" End If End With End Sub '-------------------------------
"Al" a écrit dans le message de news: 48943e20$0$11221$ Bonjour,
Dans une macro, Suite à un filtre, je veux récupérer dans à l'aide d'une fonction le numéro de la 1ére ligne filtrée....
Avez vous une idée ?
D'avance Merci Al
Si un filtre est en application sur la Feuil1
'-------------------------------
Sub Premiere_Ligne_Du_Filtre()
On Error Resume Next
With Worksheets("Feuil1") 'à déterminer
If .FilterMode = True Then
With .Range("_FilterDatabase")
MsgBox .Offset(1).Resize _
(.Rows.Count - 1, .Columns.Count). _
SpecialCells(xlCellTypeVisible).Row
End With
Else
Msgbox "Aucun filtre particulier en place"
End If
End With
End Sub
'-------------------------------
"Al" <Al@wanadoo.fr> a écrit dans le message de news:
48943e20$0$11221$426a74cc@news.free.fr...
Bonjour,
Dans une macro,
Suite à un filtre, je veux récupérer dans à l'aide d'une fonction le numéro
de la 1ére ligne filtrée....
'------------------------------- Sub Premiere_Ligne_Du_Filtre() On Error Resume Next With Worksheets("Feuil1") 'à déterminer If .FilterMode = True Then With .Range("_FilterDatabase") MsgBox .Offset(1).Resize _ (.Rows.Count - 1, .Columns.Count). _ SpecialCells(xlCellTypeVisible).Row End With Else Msgbox "Aucun filtre particulier en place" End If End With End Sub '-------------------------------
"Al" a écrit dans le message de news: 48943e20$0$11221$ Bonjour,
Dans une macro, Suite à un filtre, je veux récupérer dans à l'aide d'une fonction le numéro de la 1ére ligne filtrée....