Microsoft 365 Récupérer information après filtre

sousou

XLDnaute Barbatruc

• 21 Décembre 2021

• #2

Bonjour
Tu testes les lignes si masquées ou pas (hidden)

 

Vote positif 0 Vote négatif

J

jper

XLDnaute Nouveau

• 21 Décembre 2021

• #3

Bonjour,
Merci pour ta réponse, mais je ne comprend pas tout a fait ta réponse.
Si je l'interprète, je dois pour chaque cellule (exemple D3) faire le test si elle masqué ou pas et faire cela sur l'ensemble de la colonne D. Car c'est la colonne dont j'ai besoin du résultat.
D'avance merci,
Cordialement

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 21 Décembre 2021

• #4

Quelquechose comme cela, sur les lignes entières
Que veut-tu faire des résultats tu les mets où?

 

Vote positif 0 Vote négatif

J

jper

XLDnaute Nouveau

• 21 Décembre 2021

• #5

Si tu prends mon fichier d'exemple, j'ai besoin de récupérer la liste des N° de CG (unique à la fin) qui correspond à la sélection de filtre en cascade:

• en premier choix d'une marque (BELVEDERE dans l'exemple fournis) - colonne K
• en deux choix d'anomalie = 1 - colonne T

et enfin il me reste la liste des N°CG - colonne D

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 21 Décembre 2021

• #6

Je ne comprend pas tout.
Dans ton exemple, il reste 14 lignes, tu as les numéros en colonnes D, Mais que veux-tu en faire?

 

Vote positif 0 Vote négatif

J

jper

XLDnaute Nouveau

• 21 Décembre 2021

• #7

J'ai besoin de récupérer les 14 valeurs N°CG pour les mettre dans une feuille et les comparer à une liste globale de N°CG pour ensuite construire un TCD

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 21 Décembre 2021

• #8

Essaie ceci
Comme je ne sais ce que tu fait des données, je les ai mis dans une phrsase

Public phrase
Sub recup()
For Each lg In Sheets(1).Rows
cg = lg.Columns(4)
If lg.Hidden = False And cg <> "" And cg <> "N° CG" Then
Call traite(cg)
End If


Next
MsgBox phrase
End Sub

' là tu faits ce que tu veux de la donnée
Sub traite(cg)
phrase = phrase & Chr(13) & cg

End Sub

 

Vote positif 0 Vote négatif

J

jper

XLDnaute Nouveau

• 21 Décembre 2021

• #9

Merci pour ton retour.
Je vais voir comment je vais adapté ta réponse à mon code
Je te tiendrai surement au courant la semaine prochaine

 

Vote positif 0 Vote négatif

J

jper

XLDnaute Nouveau

• 24 Décembre 2021

• #10

jper à dit:

Merci pour ton retour.
Je vais voir comment je vais adapté ta réponse à mon code
Je te tiendrai surement au courant la semaine prochaine

Cliquez pour agrandir...

Merci, ça fonctionne très bien et cela m'a permis de récupérer la liste des N° de CG sur laquelle je vais pouvoir faire des comparaison.
un grand merci et passe de bonne fête de fin d'année

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 24 Décembre 2021

• #11

Bonjour,

Voici d'autre méthodes pour excel 365.
Deux par la fonction FILTRE dont une avec un tableau structuré
Une par Requête de filtrage Power Query
et une autre valable à partir de excel 2010 pas la fonction agregat.

Cordialement

 

Pièces jointes

• Filtres.xlsx

  727.7 KB · Affichages: 6

Vote positif 0 Vote négatif

J

jper

XLDnaute Nouveau

• 25 Décembre 2021

• #12

Merci pour ton retour qui sera surement plus rapide que celle que j'ai faite
Je te tiendrai au courant du résultat.

 

Vote positif 0 Vote négatif