Filtrer avec un lien hypertext

Hello tout le monde

dans mon tableau excel attaché, je veux quand je clique sur A4, A5 ou A7 , que la feuille "donnees" filtre et affiche seulement les ligne dont le nombre de jour respecte la plage dans le A4,A5 ou A7.

ca va me sauver beaucoup de temps et aussi apprendre nouvelle techniques sur Excel

100000 merci les experts

Bonsoir Greenline4,

Il est possible d'utiliser le filtre d'Excel selon une plage de critères. Voir si le fichier correspond à ta recherche.

Sans avoir à réaliser une macro VBA. Mais faisable si c'est plus ton besoin.

Bons tests, bonne continuation.

Merci pour la réponse mais c est vraiment pas ca du tout que je veux faire , si tu peux juste relire mon premier poste sur le sujet, j apprécierai

Merci

Salut greenline4, le fil

Si tu peux utiliser VBA teste ce petit bout de code que tu pourras améliorer...

Dans Feuil1 tu mets ce code

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim T, bas As Integer, haut As Integer, NbJours As Range, e As Range

    Set NbJours = Worksheets("Donnees").Range("D2:D10")
    If Not Intersect(Target, Range("A4:A7")) Is Nothing Then
        If InStr(1, Target, "@") > 0 Then
            T = Split(Target, "@", , vbTextCompare)
            bas = SearchIsNumber(CStr(T(0)))
            haut = SearchIsNumber(CStr(T(1)))
        Else
            bas = SearchIsNumber(Target.Value)
            haut = 0
        End If

        For Each e In NbJours
            If haut <> 0 Then
                If e > bas And e < haut Then
                    e.EntireRow.Hidden = True
                Else
                    e.EntireRow.Hidden = False
                End If
            Else
                If e > bas Then
                    e.EntireRow.Hidden = True
                Else
                    e.EntireRow.Hidden = False
                End If
            End If
        Next
    End If
End Sub

et dans un module celui-là

Option Explicit

Function SearchIsNumber(strSearch As String) As Integer
Dim j As Integer, dblNombre As Double, dblTempDate As Double

    For j = 1 To Len(strSearch)
        If IsNumeric(Mid(strSearch, j, 1)) Then
            dblNombre = Val(Mid(strSearch, j, Len(strSearch) - j + 1))
            dblTempDate = dblNombre
            j = j + Len(Str(dblNombre)) - 1
        End If
    Next

End Function

Bon courage...

Bonjour Greeline4,

A nouveau, j'ai adapté mon récent fichier pour un filtrage automatique par macro vba.

Selon clic sur une des cellules du tableau de l'onglet Table.

Ainsi tu as les 2 possibilités (manuel ou auto) pour filtrer.

Voir commentaires dans les deux feuilles.

Bons tests, bonne continuation.