VBA: Relier un filtre excel à une InputBox
wikika
Messages postés
58
Statut
Membre
-
wikika Messages postés 58 Statut Membre -
wikika Messages postés 58 Statut Membre -
Bonjour à tous,
J'essaie tant bien que mal de relier un filtre à une InputBox (excel 2007)
J'aimerais filtrer ma colonne 19 intitulé "country" en A19 sur une des données ("FRA" ou "HKG" ou "SGP"...j'ai plus de 40 pays)
J'essaie ceci mais sans résultat (erreur 438)
Sub country()
Dim country As String
country = InputBox("filtre sur quel critère ?")
Selection.autofilters Field:=19, Criterial:=country
End Sub
Merci pour votre aide
Cordialement
WM
J'essaie tant bien que mal de relier un filtre à une InputBox (excel 2007)
J'aimerais filtrer ma colonne 19 intitulé "country" en A19 sur une des données ("FRA" ou "HKG" ou "SGP"...j'ai plus de 40 pays)
J'essaie ceci mais sans résultat (erreur 438)
Sub country()
Dim country As String
country = InputBox("filtre sur quel critère ?")
Selection.autofilters Field:=19, Criterial:=country
End Sub
Merci pour votre aide
Cordialement
WM
A voir également:
- VBA: Relier un filtre excel à une InputBox
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Find vba - Astuces et Solutions
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
2 réponses
Bonjour,
L'erreur dans ton code c'est le "S" en trop sur AutoFilter
Essayes ce code :
Sub country()
Dim country As String
Nb_Lgn = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Nb_Col = Sheets(1).Cells(1, Columns.Row).End(xlToLeft).Column
country = InputBox("filtre sur quel critère ?")
ActiveSheet.Range(Cells(1, 1), Cells(Nb_Lgn, Nb_Col)).AutoFilter Field:=1, Criteria1:=country
End Sub
L'erreur dans ton code c'est le "S" en trop sur AutoFilter
Essayes ce code :
Sub country()
Dim country As String
Nb_Lgn = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Nb_Col = Sheets(1).Cells(1, Columns.Row).End(xlToLeft).Column
country = InputBox("filtre sur quel critère ?")
ActiveSheet.Range(Cells(1, 1), Cells(Nb_Lgn, Nb_Col)).AutoFilter Field:=1, Criteria1:=country
End Sub
