criteria1 et 2

[Christian]

Bonjour à tous,
Je vais essayer de résoudre mon poblème autrement. En mettant 2 critères de recherche - par ex. crteria2:='F1'. Mais j'ignore comment adapter ma macro ci-dessous. Qui peux m'aider?
Merci d'avance

Christian

Application.ScreenUpdating = False
Sheets('EQ').Select
Range('B4:J607').Select
Selection.ClearContents
Range('B1:J1').Select
Sheets('AFFSS').Select
Range('B4').Select
Selection.AutoFilter Field:=6, Criteria1:='1'
Range('B5:J607').Select
Selection.Copy
Sheets('EQ').Select
Cells(4, 2).Select
ActiveSheet.Paste Destination:=ActiveCell
Range('B4').Select
Application.CutCopyMode = False
Range('B4:J13').Select
Selection.Sort Key1:=Range('J4'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range('B4:J607').Select
Range('B1:J1').Select
Sheets('AFFSS').Select
Selection.AutoFilter
Range('B1:J1').Select
Sheets('EQ').Select
Range('B1:J1').Select
Application.ScreenUpdating = True

 

[porcinet82]

salut,

Desole mais je ne vois pas du tout de quoi tu parles, c'est surement la suite d'un post precedent!!!

c'est pas la peine d'ouvrir 15 posts pour la meme questions!!!

@+