lolo

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

filtreExcel.zip (24,6 Ko, 0 affichages)