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

[jper]

Bonjour,
Je désirai savoir comment récupérer les informations suite à une succession de filtres.
Dans l'exemple en pièce jointe j'ai filtré le champ marque ( Belvedere) le champ anomalie (1)
Tout cela je sais le faire en VBA.
Par contre je ne sais pas comment récupérer les valeurs restantes dans le champs n° CG.
D'avance merci pour votre aide.
Cordialement,
Jean-François

 

[sousou]

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

 

[jper]

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

 

[sousou]

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

 

[jper]

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

 

[sousou]

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?

 

[jper]

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

 

[sousou]

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

 

[jper]

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

 

[jper]

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

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

 

[Hasco]

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

 

[jper]

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