XL 2019 problème de code vba

[Dadi147]

Bonjour, pouvez-vous modifier le code pour être plus rapide?

Sub Filter_()
Dim Criteria_MH(100) As String
 Dim i As Integer
 Application.ScreenUpdating = False

Sheets("sh").Activate Range("A2:A12").Select

 For i = 0 To Selection.Count

Criteria_MH(i) = Selection(i)

Next

Sheets("sh2").Range("A3:A100").AutoFilter Field:=1, Criteria1:=Criteria_MH, Operator:=xlFilterValues

Sheets("sh2").Activate

 Application.ScreenUpdating = True

End Sub

 

[Dadi147]

Bonjour, pouvez-vous modifier le code pour être plus rapide?

Sub Filter_()
Dim Criteria_MH(100) As String
 Dim i As Integer
 Application.ScreenUpdating = False

Sheets("sh").Activate Range("A2:A12").Select

 For i = 0 To Selection.Count

Criteria_MH(i) = Selection(i)

Next

Sheets("sh2").Range("A3:A100").AutoFilter Field:=1, Criteria1:=Criteria_MH, Operator:=xlFilterValues

Sheets("sh2").Activate

 Application.ScreenUpdating = True

End Sub

bonjour c'est quoi le problème ?

 

[vgendron]

bonjour
pas de pb
sub Filter_()
msgbox "Terminé"
end sub

 

[vgendron]

bonjour c'est quoi le problème ?

va voir la charte du forum