• Initiateur de la discussion Initiateur de la discussion Murdoc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Murdoc

XLDnaute Nouveau
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
 
Re : Filtre vba

Bonsoir,

Second est une fonction Excel (reservée).
Code:
Sub Graph()
'Filtre de la machine
Set Machine = Sheets("Feuil1").Range("C2")
If Machine <> "" Then
    Sheets("Données J").Range("$A$2:$I$10000").AutoFilter Field:=1, Criteria1:=Machine.Value
    Sheets("Données J+1").Range("$A$2:$I$10000").AutoFilter Field:=1, Criteria1:=Machine.Value
End If
'Filtre S-1
Set MonFirst = Sheets("Feuil1").Range("A2")
If First <> "" Then
    Sheets("Données J").Range("$B$2:$I$10000").AutoFilter Field:=2, Criteria1:=MonFirst.Value
End If

'Filtre S-2
Set MonSecond = Sheets("Feuil1").Range("B2")
If First <> "" Then
    Sheets("Données J+1").Range("$B$2:$I$10000").AutoFilter Field:=2, Criteria1:=MonSecond.Value
End If
End Sub

Il n'est pas necessaire de faire les Select.
Voir le fichier joint
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
804
Réponses
5
Affichages
182
Réponses
3
Affichages
193
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
3
Affichages
339
Réponses
2
Affichages
153
Réponses
4
Affichages
461
Réponses
10
Affichages
281
Retour