Bonjour,

J'ai un fichier avec un filtre sur chaque colonne.

Je veux dans mon programme récupérer les différents éléments présents dans ma colonne P.

Donc récupérer la même liste que lorsque l'on clique sur le bouton en regard de la colonne filtrée.

Pour l'instant j'ai mis en "dur" .

Le code actuel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub compte()
Dim sheetAno As String, sheetRes As String, NomFichier As String

shano = "ANO"
SHres = "Résultats"
NomFichier = "TEST"

' Recopie de l'onglet du fichier dans ce classeur
Workbooks(NomFichier).Sheets _
(shano).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        
' Creation d'un nouvel onglet
Add_sheet SHres, True
    
Dim F2 As Worksheet
Set F2 = Worksheets(SHres)

'Ici les différentes erreurs possibles issues de la colonne P du fichier test
Dim Tableau(1 To 11) As String
Tableau(1) = 112
Tableau(2) = 180
Tableau(3) = 181
Tableau(4) = 192
Tableau(5) = 201
Tableau(6) = 204
Tableau(7) = 231
Tableau(8) = 243
Tableau(9) = 244
Tableau(10) = 300
Tableau(11) = 450

For i = LBound(Tableau) To UBound(Tableau)
    F2.Cells(i, 1) = Tableau(i)
    F2.Cells(i, 2) = compte_erreur(F2.Cells(i, 1), shano)
Next

End Sub