Bonjour à tous,
Ci-dessous un programme VBA me permettant d'effectuer 3 filtres d'affiler, a priori le premier fonctionne mais les 2 derniers non. Est-ce que quelqu'un pourrait m'éclairer ? Merci d'avance pour votre aide.
Sub Graph()
Dim First As Range
Dim Second As Range
Dim Machine As Range
'Filtre de la machine
Set Machine = Range("C2")
If Machine <> "" Then
Sheets("Données J").Select
ActiveSheet.Range("$A$2:$I$10000").AutoFilter Field:=1, Criteria1:= _
Machine.Value
Sheets("Données J+1").Select
ActiveSheet.Range("$A$2:$I$10000").AutoFilter Field:=1, Criteria1:= _
Machine.Value
Else
End If
'Filtre S-1
Set First = Range("A2")
If First <> "" Then
Sheets("Données J").Select
ActiveSheet.Range("$B$2:$I$10000").AutoFilter Field:=2, Criteria1:= _
First.Value
Else
End If
'Filtre S-2
Set Second = Range("B2")
If First <> "" Then
Sheets("Données J+1").Select
ActiveSheet.Range("$B$2:$I$10000").AutoFilter Field:=2, Criteria1:= _
Second.Value
Else
End If
End Sub
Ci-dessous un programme VBA me permettant d'effectuer 3 filtres d'affiler, a priori le premier fonctionne mais les 2 derniers non. Est-ce que quelqu'un pourrait m'éclairer ? Merci d'avance pour votre aide.
Sub Graph()
Dim First As Range
Dim Second As Range
Dim Machine As Range
'Filtre de la machine
Set Machine = Range("C2")
If Machine <> "" Then
Sheets("Données J").Select
ActiveSheet.Range("$A$2:$I$10000").AutoFilter Field:=1, Criteria1:= _
Machine.Value
Sheets("Données J+1").Select
ActiveSheet.Range("$A$2:$I$10000").AutoFilter Field:=1, Criteria1:= _
Machine.Value
Else
End If
'Filtre S-1
Set First = Range("A2")
If First <> "" Then
Sheets("Données J").Select
ActiveSheet.Range("$B$2:$I$10000").AutoFilter Field:=2, Criteria1:= _
First.Value
Else
End If
'Filtre S-2
Set Second = Range("B2")
If First <> "" Then
Sheets("Données J+1").Select
ActiveSheet.Range("$B$2:$I$10000").AutoFilter Field:=2, Criteria1:= _
Second.Value
Else
End If
End Sub