Bonjour à tous
J aimerai inséré une boite de dialogue qui vienne remplir les infos pour effectuer un filtre. mon fichier est trop gros pour mettre un exemple, quelq'un peut il donner un coup de main, je joint ma macro dites moi si cela peut convenir.
Sub chercher()
'
' chercher Macro
Range("N4").Select
Sheets("Mars").Select
' CETTE LIGNE CI DESSOUS A METTRE UNE BOITE
ActiveSheet.ListObjects("T_MARS").Range.AutoFilter Field:=1, Criteria1:= _
"FRCDG21"
'Sélectionner la première cellule vide au bas de la colonne
Range("A1").End(xlDown).Offset(0, 27).Select
'partir de A1 selectionne la derniere ligne non vide se decalle de 27 colonne et remonre en a1
' selectionne pour revenir en A1
Range(Selection, Cells(1)).Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("A Chercher").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],INVENTAIRE!C[-11],2,FALSE)"
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AB$152").AutoFilter Field:=13, Criteria1:="#N/A"
ActiveSheet.Range("$A$1:$AB$152").AutoFilter Field:=3, Criteria1:="FRCDG21"
Columns("I:I").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("INVENTAIRE").Select
Rows("3:300").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("T_Inventaire[[#Headers],[Unit Number]]").Select
Sheets("A Chercher").Select
Selection.Copy
Sheets("INVENTAIRE").Select
Columns("B:B").Select
ActiveSheet.Paste
End Sub