Fonction Autofilter

Signaler
-
Messages postés
1
Date d'inscription
jeudi 22 avril 2021
Statut
Membre
Dernière intervention
22 avril 2021
-
Bonjour,
J'ai un problème urgent, j'ai une base de donnée qui a 7 colonnes et mon but est de pouvoir faire un filtre sur chacune de ses colonne en fonction de ce que je mettre sur mon combobox : J'ai crée ce code mais il me met la méthode autofilter de la classe a échoué.

Dim Crit1 As String
Dim Crit2 As String
Dim Crit3 As String
Dim Crit4 As String
Dim Crit5 As String
Dim Crit6 As String
Dim Crit7 As String

Sheets("BDD").Range("A3:AI400").Select

Crit1 = ComboBox1
Crit2 = ComboBox2
Crit3 = ComboBox3
Crit4 = ComboBox4
Crit5 = ComboBox5
Crit6 = ComboBox6
Crit7 = ComboBox7



If Crit1 <> "" Then
Feuil21.Cells(1, 2).AutoFilter Field:=2, Criteria1:=Crit1, visibledropdown:=False
End If
If Crit2 <> "" Then
Cells(1, 3).AutoFilter Field:=3, Criterial:=Crit2, visibledropdown:=False
End If
If Crit3 <> "" Then
Cells(1, 4).AutoFilter Field:=4, Criterial:=Crit3, visibledropdown:=False
End If
If Crit4 <> "" Then
Cells(1, 6).AutoFilter Field:=6, Criterial:=Crit4, visibledropdown:=False
End If
If Crit5 <> "" Then
Cells(1, 7).AutoFilter Field:=7, Criterial:=Crit5, visibledropdown:=False
End If
If Crit6 <> "" Then
Cells(1, 8).AutoFilter Field:=8, Criterial:=Crit6, visibledropdown:=False
End If
If Crit7 <> "" Then
Cells(1, 34).AutoFilter Field:=34, Criterial:=Crit7, visibledropdown:=False
End If


End Sub


Configuration: Windows / Firefox 78.0

1 réponse

Messages postés
1
Date d'inscription
jeudi 22 avril 2021
Statut
Membre
Dernière intervention
22 avril 2021

J'ai corrigé ( Feuil21.cells) sur les autres lignes et (Criterial au lieu Criteria1)