Excel Downloads
Forum

Précédent   Excel Downloads Forums > Archives > Forum Excel Downloads - Archives > Comment récupérer les informations d'un filtre automatique ???
Vous inscrire
S'inscrire FAQ Membres Calendrier Recherche Messages du jour Marquer les forums comme lus


 
 
LinkBack Outils de la discussion
Vieux 14/10/2004, 09h55   #1 (permalink)
lolo
 
Messages: n/a
Par défaut Comment récupérer les informations d'un filtre automatique ???

Bonjour,

Je cherche à connaitre le code qui me permettrait de récupérer facilement les informations qui sont contenues dans la liste qui apparait lorsqu'on click sur l'onglet d'un filtre automatique d'une colonne.

J'espère avoir était clair dans mes explications !!! Sinon, voir la copie écran que j'ai faite ...


Merci, à ceux qui s'interresseront à mon problème sachant qu'il est inutile de me proposer un programme car j'en ai fait un ... voir ci-dessous pour les plus courageux ... Mais je suis sûr qu'en quelques lignes de programme on peut le faire sans faire cette machine à gaz !!!

------------------------------------------------------------------------------------------------
Sub Empl_Frns()

Dim fournisseur As New Collection
Dim i As Long, j As Long, fin As Long

'initialisation des variables
fin = Sheets("Synthèse").Cells(1, 100)
j = 1
fournisseur.Add Sheets("Synthèse").Cells(3, 18)

For i = 4 To fin

If Sheets("Synthèse").Cells(i, 18) <> "" And Sheets("Synthèse").Cells(i, 11) = "Q" Then

j = 1

For Each f In fournisseur

If Sheets("Synthèse").Cells(i, 18) <> fournisseur(j) Then
j = j + 1
End If

Next

If fournisseur.Count = j - 1 Then fournisseur.Add Cells(i, 18)

End If

Next i

'Création de la feuille "Fournisseur"
Sheets.Add.Name = "Fournisseur"

'Nom des fournisseurs et nombres de fois qu'on les rencontre
For i = 1 To fournisseur.Count

Sheets("Fournisseur").Cells(i + 1, 1) = fournisseur(i)

For j = 4 To fin

If Sheets("Synthèse").Cells(j, 18) = fournisseur(i) Then

Sheets("Fournisseur").Cells(i + 1, 2) = Sheets("Fournisseur").Cells(i + 1, 2) + 1

End If

Next j

Next i
Fichiers attachés
Type de fichier : zip filtreExcel.zip (24,6 Ko, 0 affichages)
 
ANNONCES
Vieux 14/10/2004, 22h10   #2 (permalink)
Celeda
 
Messages: n/a
Par défaut Re: Comment récupérer les informations d'un filtre automatique ???

Bonsoir,

lolo, tu aurai du mettre un fichier excel et pas un gif, voyons voyons...


mais y a un truc qui m'echappe : tu veux récupérer toutes les données qui se trouvent dans le filtre _ ici par exemple toutes les lignes qui vont s'afficher pour les nombres de 013 à M68

si c'est le cas, en faisant F5, options, cocher seulement les lignes visibles, tu fais un copier coller sur cette selection


ou bien veux-tu seulement les lignes des nombres 013 ET M68?
si oui, c'est pareil, même méthode

ou bien alors j'ai rien compris de ce que tu voulais

d'autre part, il est certain qu'en macro oh si!! tu peux faire un copier coller des lignes issues de la sélection du filtre et je pense que dans le forum, il y a du avoir quelques macros de faites là-dessus, quelques messieurs ont laissé des codes.

Celeda
 
Vieux 14/10/2004, 23h23   #3 (permalink)
Dan
 
Messages: n/a
Par défaut Re: Comment récupérer les informations d'un filtre automatique ???

Bonsoir,

Je ne sais pas si cela peut t'aider mais voici un petit fichier explicatif que j'avais posté il ya quelques temps en réponse à une demande. Malheureusement, je ne retrouve plus le fil.

@+ Dan
Fichiers attachés
Type de fichier : zip Recup_donnees-121027.zip (8,6 Ko, 6 affichages)
 
ANNONCES
 



Outils de la discussion

Règles de messages
Vous pouvez ouvrir de nouvelles discussions : nonoui
Vous pouvez envoyer des réponses : nonoui
Vous pouvez insérer des pièces jointes : nonoui
Vous pouvez modifier vos messages : nonoui

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui



Fuseau horaire GMT +2. Il est actuellement 17h30.


(C) 2006 Excel Downloads