L
lolo
Guest
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
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