XL 2016 Filter par un "range" de cellules VBA

sharkantipav

XLDnaute Occasionnel
Bonjour,
J'ai 2 fichiers excel, le 1er correspond a mes operations quotidiennes et le second a tte mes operations depuis toujours.
A la fin de chaque j'ai une macro qui verifie les operations quotidiennes et qui les met dans le gros fichiers Operations.

Sur le fichier j'ai un filtre. Le resultat de ce filtre me donne par exemple 5 resultat.
comment je peux prendre les 5 resultat de la colonne A du fichier 1 et filtrer avec ces valeurs la colonne A du fichier 2 a l'aide VBA

Merci bcp
 

Hieu

XLDnaute Impliqué
Salut,

J'te propose un bout de code à l'aveuglette, à adapter:
VB:
Sub mlaqsck()
Dim res(1 To 5)
Set fic1 = "fichier1.xlsx"
Set fic2 = "fichier2.xlsx"

For i = 1 To 5
    res(i) = Workbooks(fic1).Range("a" & i)
Next i

For Each c In Workbooks(fic2).Column("a")
    For i = 1 To 5
        If c = res(i) Then
            c.EntireRow.Hidden = True
            Exit For
        End If
    Next i
Next c
End Sub

PS : on ne se répète jamais assez, mais avec un fichier excel, ce serait tellement plus simple...
 

Discussions similaires

Réponses
12
Affichages
454
Réponses
40
Affichages
2 K

Statistiques des forums

Discussions
312 945
Messages
2 093 818
Membres
105 847
dernier inscrit
Ponette94