Recherche ou trie dans une colonne

bonjour

j'ai encore besoin d'aide, j'ai la macro suivante qui fonctionne bien:

Sub tri()
Range("b6:m610").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
            Range("b2:m3"), Unique:=False
End Sub

mais je voudrais avoir la ligne avant et aprés ma recherche comme dans le fichier joint

merci de votre aide par avance

philippe

Bonjour

Essaie avec ça :

Sub tri()

    Range("b6:m610").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
                Range("b2:m3"), Unique:=False
    For i = 7 To 610
        If Rows(i & ":" & i).EntireRow.Hidden = False Then
            Rows(i - 1 & ":" & i - 1).EntireRow.Hidden = False
            Rows(i + 1 & ":" & i + 1).EntireRow.Hidden = False
            i = i + 1
        End If
    Next i
End Sub

Et dis-moi le résultat.

Bye !

Bonjour philippe87,

bonjour gmb,

Une autre approche

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLig As Long
Dim C As Range
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$B$3" Then
        Application.ScreenUpdating = False
        Range("B7:B260").EntireRow.Hidden = False
        DerLig = Range("B" & Rows.Count).End(xlUp).Row
        Set C = Range("B7:B" & DerLig).Find(Target.Value, , xlValues, xlWhole)
        If Not C Is Nothing Then
            Range("B7:B260").EntireRow.Hidden = True
            C.Offset(-1).Resize(3).EntireRow.Hidden = False
        End If
    End If
End Sub

Le filtrage est effectué automatiquement lorsque la cellule B3 est modifiée

A+

bonsoir Gmb,

bonsoir Frangy,

merci pour vos réponses, les 2 solutions fonctionnent bien,

j'ai une question Frangy ta solution est très intéressante mais je voudrai savoir si on peut l'appliquer sur les colonnes G et L

si le fichier modifié

Philippe

Concrètement, tu veux appliquer le même type de filtrage sur 3 colonnes :

• si B3 est modifié, le filtre est appliqué sur la colonne B (et uniquement sur cette colonne),
• si G3 est modifié, le filtre est appliqué sur la colonne G (et uniquement sur cette colonne),
• si L3 est modifié, le filtre est appliqué sur la colonne L (et uniquement sur cette colonne).

C'est bien cela ?

A+

oui c'est biens ça

Ton fichier en retour

A+

bonjour Frangy

merci beaucoup pour ton aide

cordialement

philippe