Re : moteur de recherche- Utilisation filtre avancé ? explication
Code dans la feuille
-Clic droit sur le nom d'onglet
-Visualiser le code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A2:F100], Target) Is Nothing And Target.Count = 1 Then
[m2] = Cells(Target.Row, "f")
[l2] = Cells(Target.Row, "e")
[A2:F100].Interior.ColorIndex = xlNone
Cells(Target.Row, "a").Resize(, 6).Interior.ColorIndex = 3
End If
End Sub
Code dans un module
-Alt+F11
-Insertion/Module
Sub extrait()
Sheets("base de personnel ").Range("A1:G29").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Sheets("données").Range("I1:I2"), CopyToRange _
:=Range("Result!Extract"), Unique:=False
Sheets("result").Select
[C2:I1000].Sort , key1:=[I2]
End Sub
Bouton
-Onglet développeur
-Insérer
-choisir bouton
-Attacher la macro Extrait
http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreElabProfil.xls
JB