Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel récupérer la valeur de la cellule fitrée

récupérer la valeur de la cellule fitrée

6 réponses
Avatar
Philippe de PARIS
Bonjour,

Est il possible de récupérer dans une cellule
la valeur de la cellule filtrée (sous la ligne de filtrage automatique) et
qui lorsque l'on actionne le filtre varie ?

MERCI de votre grande aide...

Phil
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Daniel
Bonjour.
Pour un filtre en A1 :

Sub test1()
Dim Plage As Range
Set Plage = Range("A2",
Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible)
MsgBox Plage(1, 1)
End Sub

Cordialement.
Daniel
"Philippe de PARIS" a écrit dans le
message de news: %
Bonjour,

Est il possible de récupérer dans une cellule
la valeur de la cellule filtrée (sous la ligne de filtrage automatique) et
qui lorsque l'on actionne le filtre varie ?

MERCI de votre grande aide...

Phil



Avatar
Philippe de PARIS
Merci,

et si l'on souhaite le récupérer dans la cellule g8 par ex ?


"Daniel" a écrit dans le message de news:

Bonjour.
Pour un filtre en A1 :

Sub test1()
Dim Plage As Range
Set Plage = Range("A2",
Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible)
MsgBox Plage(1, 1)
End Sub

Cordialement.
Daniel
"Philippe de PARIS" a écrit dans le
message de news: %
Bonjour,

Est il possible de récupérer dans une cellule
la valeur de la cellule filtrée (sous la ligne de filtrage automatique)
et qui lorsque l'on actionne le filtre varie ?

MERCI de votre grande aide...

Phil







Avatar
michdenis
Bonjour Philippe,

Je n'ai pas vraiment saisi le sens de ta question mais si tu désires afficher le contenu de la cellule G8

Msgbox Range("G8")


Salutations!


"Philippe de PARIS" a écrit dans le message de news:
Merci,

et si l'on souhaite le récupérer dans la cellule g8 par ex ?


"Daniel" a écrit dans le message de news:

Bonjour.
Pour un filtre en A1 :

Sub test1()
Dim Plage As Range
Set Plage = Range("A2",
Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible)
MsgBox Plage(1, 1)
End Sub

Cordialement.
Daniel
"Philippe de PARIS" a écrit dans le
message de news: %
Bonjour,

Est il possible de récupérer dans une cellule
la valeur de la cellule filtrée (sous la ligne de filtrage automatique)
et qui lorsque l'on actionne le filtre varie ?

MERCI de votre grande aide...

Phil







Avatar
Philippe de PARIS
bonjour,

je souhaite que le résultat s'affiche dans une cellule exemple g8...

merci d'avance
salutations


"michdenis" a écrit dans le message de news:
u$E$
Bonjour Philippe,

Je n'ai pas vraiment saisi le sens de ta question mais si tu désires
afficher le contenu de la cellule G8

Msgbox Range("G8")


Salutations!


"Philippe de PARIS" a écrit dans le
message de news:
Merci,

et si l'on souhaite le récupérer dans la cellule g8 par ex ?


"Daniel" a écrit dans le message de news:

Bonjour.
Pour un filtre en A1 :

Sub test1()
Dim Plage As Range
Set Plage = Range("A2",
Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible)
MsgBox Plage(1, 1)
End Sub

Cordialement.
Daniel
"Philippe de PARIS" a écrit dans le
message de news: %
Bonjour,

Est il possible de récupérer dans une cellule
la valeur de la cellule filtrée (sous la ligne de filtrage automatique)
et qui lorsque l'on actionne le filtre varie ?

MERCI de votre grande aide...

Phil












Avatar
michdenis
Bonsoir Philippe,

En supposant que ceci fonctionne selon tes souhaits :

L'exécution de cette macro suppose que ton filtre automatique est en application au moment de lancer cette macro.

Adapte le nom de la feuille dans la procédure.

'--------------------
Sub test1()

Dim Plage As Range

With Worksheets("Feuil1")
Set Plage = .Range("_FilterDataBase").Offset(1).SpecialCells(xlCellTypeVisible)
.Range("A8").Value = Plage(1, 1).Value
End With

End Sub
'--------------------


Salutations!





"Philippe de PARIS" a écrit dans le message de news: %
bonjour,

je souhaite que le résultat s'affiche dans une cellule exemple g8...

merci d'avance
salutations


"michdenis" a écrit dans le message de news:
u$E$
Bonjour Philippe,

Je n'ai pas vraiment saisi le sens de ta question mais si tu désires
afficher le contenu de la cellule G8

Msgbox Range("G8")


Salutations!


"Philippe de PARIS" a écrit dans le
message de news:
Merci,

et si l'on souhaite le récupérer dans la cellule g8 par ex ?


"Daniel" a écrit dans le message de news:

Bonjour.
Pour un filtre en A1 :

Sub test1()
Dim Plage As Range
Set Plage = Range("A2",
Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible)
MsgBox Plage(1, 1)
End Sub

Cordialement.
Daniel
"Philippe de PARIS" a écrit dans le
message de news: %
Bonjour,

Est il possible de récupérer dans une cellule
la valeur de la cellule filtrée (sous la ligne de filtrage automatique)
et qui lorsque l'on actionne le filtre varie ?

MERCI de votre grande aide...

Phil












Avatar
AV
je souhaite que le résultat s'affiche dans une cellule exemple g8...


En supposant la plage à filtrer en A2:Ax (nommée "plg") avec en A1 l'étiquette
de colonne:
Pour afficher la valeur de la première cellule filtrée de la plage et afficher
vide s'il n'y a pas de filtre appliqué :
En G8 matricielle (validation par ctrl + maj + entrée)
=SI(SOUS.TOTAL(3;plg)=NBVAL(plg);"";INDEX(plg;EQUIV(1;SOUS.TOTAL(3;DECALER(plg;L
IGNE(plg)-MIN(LIGNE(plg));;1));0)))

S'il y a 2 ou plusieurs champs dans la BD...
Si le filtre est appliqué sur la plage "plg" et que tu veuilles récupérer la
valeur de la 1° ligne filtrée de la plage "zzz"
En G8 matricielle (validation par ctrl + maj + entrée)
=SI(SOUS.TOTAL(3;plg)=NBVAL(plg);"";INDEX(zzz;EQUIV(1;SOUS.TOTAL(3;DECALER(plg;L
IGNE(plg)-MIN(LIGNE(plg));;1));0)))

AV