Autres (RESOLU) Afficher la valeur filtrée dans une cellule

chaelie2015 · 11 Mars 2022

Bonjour Forum
ci rattaché fichier exemple, je souhaite afficher le titre filtré dans une cellule.
exemple :
si je sélectionne dans le filtre de la colonne F que A alors afficher dans G2 = A et ainsi de suite.
Merci par avance

job75 · 11 Mars 2022

Bonjour chaelie2015,

On peut utiliser cette fonction VBA :

VB:

Function ListeFiltre(r As Range) As String
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
For Each r In r
    If Not r.Rows.Hidden And CStr(r) <> "" Then d(r.Value) = ""
Next
ListeFiltre = Join(d.keys, " - ") 'concaténation
End Function

A placer dans un module standard.

A+

job75 · 11 Février 2025

Bonjour,

Votre formule est un peu lourde, il vaut mieux :

Code:

=SIERREUR(NOMPROPRE(TEXTE(--("1/"&A5);"mmm"));"")

A+

Kostrovit · 11 Février 2025

job75 à dit:
Bonjour,

Votre formule est un peu lourde, il vaut mieux :

Code:

=SIERREUR(NOMPROPRE(TEXTE(--("1/"&A5);"mmm"));"")

A+

Il doit y avoir une erreur, la formule renvoie un blanc alors qu'elle pointe une case comportant une date ? Ce que je souhaite c'est ne rien afficher si la colonne date n'est pas saisie Est-ce que la fonction Sierreur gère ça ? Certes ma formule est plus lourde mais la fonction choisir permet de personnaliser les abréviations.
Bien à vous.

job75 · 11 Février 2025

Oui pardon, utilisez :

Code:

=REPT(NOMPROPRE(TEXTE(A5;"mmm"));ESTNUM(A5))

Kostrovit · 11 Février 2025

job75 à dit:
Oui pardon, utilisez :

Code:

=REPT(NOMPROPRE(TEXTE(A5;"mmm"));ESTNUM(A5))

Oui ça marche, il faut que j'ajoute la gestion des cases blanches dans A

Code:

=SI(A5="";"";REPT(NOMPROPRE(TEXTE(A5;"mmm"));ESTNUM(A5)))

A moins que vous ayez une autre façon de faire ça.
Bien à vous
K

job75 · 11 Février 2025

Kostrovit à dit:
il faut que j'ajoute la gestion des cases blanches dans A

Code:

=SI(A5="";"";REPT(NOMPROPRE(TEXTE(A5;"mmm"));ESTNUM(A5)))

A moins que vous ayez une autre façon de faire ça.

Avec la fonction REPT et le test ESTNUM(A5) c'est suffisant, pas besoin de SI..

Autres (RESOLU) Afficher la valeur filtrée dans une cellule

chaelie2015

XLDnaute Accro

Pièces jointes

job75

job75

XLDnaute Barbatruc

Kostrovit

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Kostrovit

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires

Autres (RESOLU) Afficher la valeur filtrée dans une cellule

chaelie2015

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

Kostrovit

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Kostrovit

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency