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
anonymousA
Bonjour,
S'il s'agit d'une liste filtrée par Filtre Automatique p.e
With Range("_FilterDatabase")
'ici définit la plage filtrée visible Set plagefiltrevisible = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible)
'si on cherche la 1ere ligne de la plage filtrée visible en écrivant 'plagefiltrevisible.areas(1).rows(1).select
'si on cherche la dernière ligne de la plage filtrée visible With plagefiltrevisible .Areas(.Areas.Count).Rows(.Areas(.Areas.Count).Rows.Count).Select End With
End With
Il te suffit ensuite d'adapter à ce que tu souhaites
A+
Bonsoir à tous, Comment puis-je trouver et récupérer les références de la première cellule filtrée dans une liste ? Merci à tous et toutes Michel
Bonjour,
S'il s'agit d'une liste filtrée par Filtre Automatique p.e
With Range("_FilterDatabase")
'ici définit la plage filtrée visible
Set plagefiltrevisible = .Offset(1, 0).Resize(.Rows.Count - 1,
.Columns.Count).SpecialCells(xlCellTypeVisible)
'si on cherche la 1ere ligne de la plage filtrée visible en écrivant
'plagefiltrevisible.areas(1).rows(1).select
'si on cherche la dernière ligne de la plage filtrée visible
With plagefiltrevisible
.Areas(.Areas.Count).Rows(.Areas(.Areas.Count).Rows.Count).Select
End With
End With
Il te suffit ensuite d'adapter à ce que tu souhaites
A+
Bonsoir à tous,
Comment puis-je trouver et récupérer les références de la première
cellule filtrée dans une liste ?
Merci à tous et toutes
Michel
S'il s'agit d'une liste filtrée par Filtre Automatique p.e
With Range("_FilterDatabase")
'ici définit la plage filtrée visible Set plagefiltrevisible = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible)
'si on cherche la 1ere ligne de la plage filtrée visible en écrivant 'plagefiltrevisible.areas(1).rows(1).select
'si on cherche la dernière ligne de la plage filtrée visible With plagefiltrevisible .Areas(.Areas.Count).Rows(.Areas(.Areas.Count).Rows.Count).Select End With
End With
Il te suffit ensuite d'adapter à ce que tu souhaites
A+
Bonsoir à tous, Comment puis-je trouver et récupérer les références de la première cellule filtrée dans une liste ? Merci à tous et toutes Michel
AV
Comment puis-je trouver et récupérer les références de la première cellule filtrée dans une liste ?
Exemple avec ta liste en A2:A20 A1 est réservé à l'étiquette de colonne (nom de champ) Première ligne filtrée : Formule matricielle à valider par Ctrl+maj+entrée
Autre alternative vba : MsgBox [A2:A20].SpecialCells(xlCellTypeVisible)(1).Row
AV
Comment puis-je trouver et récupérer les références de la première cellule
filtrée dans une liste ?
Exemple avec ta liste en A2:A20
A1 est réservé à l'étiquette de colonne (nom de champ)
Première ligne filtrée :
Formule matricielle à valider par Ctrl+maj+entrée
Comment puis-je trouver et récupérer les références de la première cellule filtrée dans une liste ?
Exemple avec ta liste en A2:A20 A1 est réservé à l'étiquette de colonne (nom de champ) Première ligne filtrée : Formule matricielle à valider par Ctrl+maj+entrée
