Filtrage automatique
Bonjour à tous,
Je suis amené à fréquemment ouvrir un fichier qui est mis à jour très régulièrement par mes collaborateurs.
J’aimerais créer une petite macro VBA avec une petite icône dans la barre d’accès rapide qui me permette de filtrer plusieurs colonne mon tableau sans créer ou toucher à l’existant.
Je suis parti sur une variable qui prends en compte mon tableau (A2:EW200)
Définir ma feuille et mon classeur
Filtrer les colonnes avec .Autofilter
Et filtrer en excluant un critère —> cela m’évite de rentrer plein d’information
Parce que ce sont des chiffres de retard qui bouge tout le temps
J’aimerais exclure les 0 et les vides
J’ai demandé de l’aide à ChatGPT mais une erreur objet requis survient :
Sub FiltrerDonnees()
Dim PlageDonnees As Range
'Définition de la plage de données
Set PlageDonnees = Feuilles("carnet_cmd").Range("A2:EW2000")
'Filtrer sur Baba dans la colonne A
PlageDonnees.AutoFilter Field:=1, Criteria1:="Baba"
'Filtrer sur ILOT1 dans la colonne D
PlageDonnees.AutoFilter Field:=4, Criteria1:="ILOT1"
'Filtrer sur tout en excluant les 0 et les cellules vides dans la colonne F
PlageDonnees.AutoFilter Field:=6, Criteria1:="<>0", Criteria2:="<>"
End Sub
Si vous avez une idée je suis preneur :)
Bonjour Skeeprossett,
Je te suggère de remplacer "Feuilles" par "Sheets" dans la ligne de code :
'Définition de la plage de données
Set PlageDonnees = Feuilles("carnet_cmd").Range("A2:EW2000")Bonsoir
D’accord merci de votre , mais nous sommes d’accord ma variable écrite comme ci-dessus est fonctionnelle ? Elles est convenablement déclarée ? Sa fonction set est respecté au niveau de la syntaxe ? Je n’y connais pas grand chose c’est pour ça :)
Bonjour Skeeprosett,
Oui, syntaxiquement le code est valide. Pour t'en assurer dans l'éditeur VBE d'EXCEL :
- Tu réalises la modification proposée : 'Sheets' à la place de "Feuilles".
- Tu compiles le projet :
- Tu ne dois pas rencontrer d'erreur de compilation.
Merci pour le temps et l’implication.
Bonne journée à vous Gérard !