Genial merci beaucoup,
Par contre juste deux dernières questions:
si je veux utiliser cette formule pour un autre document comment je peux faire, car comme tu me l'as mentionné si je change juste le nom d'une colonne la macro ne fonctionne plus?
Sub extract()
Dim FBase As Worksheet, FResult As Worksheet
Set FBase = Sheets("base")
Set FResult = Sheets("resultat")
Dim Plg As Range
With FBase
Set Plg = .Range("A1:V" & .Cells(Rows.Count, "G").End(xlUp).Row)
.Range("AB2").FormulaR1C1 = "=AND(RC7>=500000,RC15>5)"
Plg.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
"AB1:AB2"), CopyToRange:=FResult.Range("A1:V1"), Unique:=False
.Range("AB2").Clear
End With
End Sub
pourrais tu juste m'expliquer la partie en gras que je puisse mieux comprendre si tu as encore du temps?
ENcore une fois Merci de votre aide.