Récupérer donnée d'une cellule filtrée

[Brigitte]

Bonjour tout le monde,

Mon souci du jour est le suivant :

- un fichier sur lequel je filtre selon mon souhait sur une colonne (A)
- une fois filtrée la colonne sur par exemple : 46.1, comment récupérer ce chiffre pour l'utiliser

En effet, en cellule Z139 (si filtré sur 46.1), je voudrais faire une formule qui :

- divise le montant figurant en Y139 par le dernier montant présent en colonne W
- donc je me dis que je ferais bien une division par le résultat de la recherche du dernier chiffre trouvé pour cette donnée (46.1)

Dans le fichier joint, déjà filtré (mais que vous pouvez défiltrer pour voir le reste), je voudrais donc obtenir en Y139 :

10.62 % (formule : =Y139/W93) soit la division du total par le montant de l'enveloppe figurant en colonne W.

Pour certains, l'enveloppe a pu évoluer au fil des délibérations, et donc il peut y avoir plusieurs montants, le dernier étant le bon à récupérer (plus ou moins élevé que les autres précédents).

Je préférerais une formule, de loin, à une macro. Vous pouvez pour vos tests, essayer avec :

- un filtrage sur 48, ou bien 49, ou encore 50.

CERISE sur le gâteau, parfois en colonne W, il y a autre chose qu'un chiffre, donc il faut l'utiliser seulement et seulement si il s'agit d'un montant numérique et pas du texte...

Merci d'avance.

ps : les données ne sont pas confidentielles puisque les infos sont le résultat de délibérations prises au fil du temps, et publiques et surtout ne veulent rien dire pour le commun des mortels... Donc pas de panique... L'exemple est au moins parlant.

 

[pierrejean]

Re : Récupérer donnée d'une cellule filtrée

Bonjour Brigitte (et bises)

Une fonction personnalisée en attendant les pros des formules

 

[Brigitte]

Re : Récupérer donnée d'une cellule filtrée

Coucou,

Tout à fait ce qu'il me fallait, ca marche d'enfer... J'ai testé sur plusieurs filtrages avec plein de cas différents, trop fort... Je garde !!! Mille mercis Pierre.

Faut que je vous appelle toi et Dany !

PS : ne pas s'étonner que le fichier fasse valeur dans plusieurs colonnes ; normal, je n'ai pas mis la feuille où va se faire la recherche... PAS UTILE pour la demande présente.

MERCI, j'ai même su remettre ta super fonction dans un module dans le bon classeur...

 

[Monique]

Re : Récupérer donnée d'une cellule filtrée

Bonjour,

Par formule
(formule matricielle, à valider par ctrl, maj et entrée)

 

[Brigitte]

Re : Récupérer donnée d'une cellule filtrée

Bonjour tout le monde,

Ben Monique, j'avais zappé ta réponse, je vais essayer, mille mercis et sorry !
Je viens de tester, ca marche... Bravo !

Mais pour le fun :

Pierre j'ai aujourd'hui un souci. Dans un de "mes cas", j'ai un chiffre mettons en W99 (c'est bien ce dernier chiffre que je veux récupérer) mais j'ai un mot "avenant 1" dans la cellule W134. Du coup, le résultat est #DIV/0!

Comment dire à ta fonction de récupérer la dernière valeur du filtrage en W mais surtout le dernier chiffre car je pensai (à tort ?) que isnumeric suffisait et là j'ai le cas, ca ne marche pas ?

Ma formule : =SI(ET(Y139>0;Y139<>"Inconnu");Y139/derwtrié();"")

Ta fonction derwtrié() :

Function derwtrié()
For n = Range("W65536").End(xlUp).Row To 1 Step -1
If Rows(n).Hidden = False And IsNumeric(Range("W" & n)) Then
derwtrié = Range("W" & n).Value
Exit Function
End If
Next n
End Function

Merci d'avance.

 

[pierrejean]

Re : Récupérer donnée d'une cellule filtrée

Re

Bises Brigitte

Teste ceci:

Function derwtrié()
For n = Range("W65536").End(xlUp).Row To 1 Step -1
If Range("W" & n) <> "" Then
 If Rows(n).Hidden = False And IsNumeric(Range("W" & n)) Then
   derwtrié = Range("W" & n).Value
   Exit Function
 End If
End If
Next n
End Function

 

[Brigitte]

Re : Récupérer donnée d'une cellule filtrée

Bonjour et Merci Pierre,


Impeccable... j'avais rajouté une ligne et quand j'ai recopié la formule avec derwtrié(), une fois mise à jour ta fonction dans l'éditeur vbe, j'ai oublié de changer la réf de la cellule 139 qui devenait 140... alors ca me donnait rien... une fois ma méprise réparée, ca fonctionne impec...
Total j'ai deux solutions super, merci à vous les champions !