Fonction
Bonjour, je débute sur excel et je vais essayer d'être la plus clair possible...
Donc je voudrais faire en sorte que mon tableau ce filtre automatiquement en fonction d'un mot dans une cellule.
Par exemple :
si je rentre le mot "échelle" dans ma cellule C10
je veut que mon tableau ce filtre pour me sortir toute les lignes où le mots échelle apparait dans ma deuxième colone.
je ne sais pas si c'est possible mais sa rendrait mon fichier beaucoup plus efficace!
merci d'avance!
Bonjour Eva_21,
Oui c'est possible avec une formule matricielle ou en VBA.
Joins un fichier si tu veux que l'on puisse t'aider.
Bonjour,
Le plus simple c'est l'option "insérer un tableau croisé dynamique" tu pourras filtrer les noms ou données que tu souhaites ;
sans toucher à ta base de données initiale.
Bonjour le fil, bonjour le forum,
Si B10 de ton tableau ne contient pas le mot échelle, après filtrage, la ligne 10 sera masquée... Donc impossible d'utiliser l'événementielle Change. Sans le fichier, difficile de te faire la meilleure proposition :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter)
O.Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:=O.Range("C10").Value 'filtre la colonne 2 en fonction de la cellule C10
End SubBonjour Eva et
Un exemple
Regarde dans les onglets PLAT#
edit : bonjour à tous, je n'avais pas encore lu vos contributions ! désolé
merci, je joint un fichier ,
Sachant que ma version d'excel est de 2013 sa ne pose pas de soucis ?
Bien sur ... je ne peut pas donner mon fichier original, le but est de faire une fiche par agence d'intérim et par équipe.... je veut gagner un maximum de temps en les préparant.
Je ne sais pas si je suis très claire
Re,
Code à placer dans l'onglet Feuil2 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
If Target.Value = "" Then Me.ShowAllData: Exit Sub
If Me.FilterMode = True Then Me.ShowAllData
Range("A4").CurrentRegion.AutoFilter Field:=5, Criteria1:=Range("B2")
End SubBonjour Eva,
Une contribution (le code est visible dans l'éditeur VBA - ALT + F11 - dans le module de la feuille 2) :
Edit : ThauThème est plus rapide, je demande un contrôle anti dopage !
Re,
@Pedro
Agence 4 ne fonctionne pas. Si on efface B2, le tableau n'apparaît pas en entier...
J'ai revu ma copie !