Comment trouver et obtenir la valeur de la première cellule visible après un filtrage dans Excel ?
Dans certains cas, vous pourriez avoir besoin d'obtenir la valeur de la première cellule visible dans une liste filtrée. Comment y parvenir ? Cet article vous montrera des méthodes pour résoudre ce problème.
Trouver et obtenir la valeur de la première cellule visible après un filtrage avec une formule matricielle
Trouver et obtenir la valeur de la première cellule visible après un filtrage avec VBA
Trouver et obtenir la valeur de la première cellule visible après un filtrage avec une formule matricielle
Vous pouvez utiliser la formule matricielle suivante pour récupérer la valeur de la première cellule visible dans une liste filtrée. Veuillez procéder comme suit.
1. Sélectionnez une cellule vide pour placer la première valeur visible, entrez la formule ci-dessous dedans, puis appuyez simultanément sur les touches Ctrl + Shift + Enter.
=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))
Remarque : Dans la formule, C2:C19 est la liste filtrée dont vous souhaitez retourner la valeur de la première cellule visible, C2 est la première cellule de la liste. Vous pouvez les modifier selon vos besoins.
Ensuite, vous pouvez voir la valeur de la première cellule visible dans la liste filtrée affichée dans la cellule sélectionnée, comme le montre la capture d'écran ci-dessus.
Trouver et obtenir la valeur de la première cellule visible après un filtrage avec VBA
Outre l'utilisation de la formule matricielle ci-dessus pour obtenir la valeur de la première cellule visible dans une liste filtrée, vous pouvez exécuter le script VBA ci-dessous pour rapidement retourner la première cellule visible d'une liste filtrée. Veuillez procéder comme suit.
1. Sélectionnez une cellule vide telle que E8 pour placer la valeur de la première cellule visible d'une liste filtrée.
2. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
3. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre du Module.
Code VBA : trouver et obtenir la valeur de la première cellule visible après un filtrage dans Excel
Sub FirstVisibleCell()
With Worksheets("Sheet1").AutoFilter.Range
ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
End With
End SubRemarque : Dans le code, Feuil1 est le nom de la feuille qui contient la liste filtrée. « C » est le nom de la colonne à partir de laquelle vous souhaitez obtenir la première valeur visible. Vous pouvez les modifier selon vos besoins.
4. Appuyez sur la touche F5 pour exécuter le code, puis la première cellule visible de la liste filtrée située dans la colonne C sera immédiatement insérée dans la cellule E8.
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels