Excel filtrer les données
Filtrer rapidement vos données Excel en 1 clic pour faciliter vos recherches !
🎯 Dans ce tutoriel, vous allez découvrir comment filtrer rapidement vos données Excel en un simple clic !
✅ Cette technique vous permettra de gagner du temps lors de vos recherches, en évitant de parcourir manuellement vos données.
👍 En effet, une fois que vous avez défini le ou les critères que vous souhaitez analyser, il vous suffit alors de cliquer sur "Rechercher", pour que vos données soient automatiquement filtrées.
😊 De plus, selon vos besoins, vous pouvez affiner votre recherche en ajoutant d'autres critères. Une fois que vous avez terminé d'analyser vos données, pour supprimer les filtres que vous avez notés, vous cliquez simplement sur "Effacer".
➡️ Ainsi, cela vous permet de changer de critères aussi souvent que vous le souhaitez, ce qui est nettement plus pratique que de modifier les critères de filtre à chaque fois !
Voir la vidéo pour suivre les différentes étapes :
Pour vous entraîner, vous pouvez :
-> Télécharger le fichier Excel utilisé dans la vidéo
👇
👇
Après avoir ouvert le lien :
- Vous cliquez sur "Fichier",
- puis sur "Enregistrer sous",
- et sur "Télécharger une copie".
📌↪️→ Code VBA à utiliser pour filtrer rapidement vos données Excel :
Sub Rechercher()
' Définir la plage de données
Dim PlageDonnees As Range
Set PlageDonnees = ThisWorkbook.Sheets("Gestion des salles").UsedRange.Offset(3, 0)
' Définir la plage de critères
Dim PlageCritères As Range
Set PlageCritères = ThisWorkbook.Sheets("Gestion des salles").Range("A1:" & Split(Cells(1, ThisWorkbook.Sheets("Gestion des salles").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).Column).Address, "$")(1) & "2")
If ThisWorkbook.Sheets("Gestion des salles").AutoFilterMode Then
ThisWorkbook.Sheets("Gestion des salles").ShowAllData
End If
' Appliquer le filtre avancé
PlageDonnees.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=PlageCritères
End Sub
Sub Effacer()
ThisWorkbook.Sheets("Gestion des salles").Range("A2:" & Split(Cells(1, ThisWorkbook.Sheets("Gestion des salles").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).Column).Address, "$")(1) & "2").ClearContents
If ThisWorkbook.Sheets("Gestion des salles").FilterMode Then
' Supprimer tous les filtres
ThisWorkbook.Sheets("Gestion des salles").ShowAllData
End If
End Sub
Un autre tutoriel qui pourrait vous intéresser :
