XL 2016 Filter par un "range" de cellules VBA

sharkantipav · 1 Septembre 2016

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 · 3 Septembre 2016

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...

XL 2016 Filter par un "range" de cellules VBA

sharkantipav

XLDnaute Occasionnel

Hieu

XLDnaute Impliqué

Discussions similaires