Autofiltre lié à une textbox

Bonjour à tous,

Je voudrais lier le contenu d'une textbox contenant le nom d'un élève avec le filtre d'une page contenant les notes de tous les élèves par matière.

Manuellement le filtre est sympa

mais j'aimerais le lier à l'onglet du formulaire ou on voit sa photo d'abord. (Quand y'en a une )

Private Sub notElv_Click()
'LD sur le nom: Donne les infos de l'élève
    Dim i%, ws As Worksheet, tb As ListObject
    Application.ScreenUpdating = False
    Set ws = Sheets("notes")
    Set tb = ws.ListObjects("not")
        'Range("A1").AutoFilter
        'tb.DataBodyRange(7, 2).AutoFilter
    'masque
    For i = 1 To tb.ListRows.Count
        If tb.DataBodyRange(i, 2).Value <> Me.nomE.Value Then
            'Rows("i+1:i+1").Select
            'Selection.EntireRow.Hidden = True
        End If
    Next i
   ' Selection.AutoFilter
    'ActiveSheet.ListObjects("not").Range.AutoFilter Field:=2, Criteria1:="Me.nomE.Value"
    Application.ScreenUpdating = True
    Unload Me
End Sub

Mais j'arrive pas à trouver le bon code pour filtrer.

Merci de votre aide.

Bonjour

Et nous on peut pas aller dans le VBA mot de passe...

A+ François

Bonjour fanfan38,

Désolé, voila le code accessible.

Bonjour

Ci joint ma solution

A+ François

Merci, mais même en réouvrant le classeur, j'arrive pas à activer les macros

Bonjour

Je comprend pas. Les macros sont activées vu que tu avais un formulaire (userform)....

enregistre le fichier sur ton disque dur...

Renomme le fichier et coche valider les macros au demarrage de ce fichier...

A+ François

Je suis arrivé à activer les macros, mais le code n'a pas changé

Comment tu lances ton formulaire?

J'ai vu clic droit...

Donc problème corrigé

A+ François

En clic droit.

Tu peux me donner le code ?

    [not].Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:=Me.nomE

A+ Franàçois

Ps: Attention! il faut un "Application.EnableEvents=false en debut de macro et un Application.EnableEvents=true en fin de macro

Super, çà fonctionne, mais dés l'évènement change.

Même pas besoin de cliquer sur le bouton en bas, pourquoi ?

Private Sub notElv_Click()
'LD sur le nom: Donne les infos de l'élève
    Dim i%, ws As Worksheet, tb As ListObject
    Application.ScreenUpdating = False
    Application.EnableEvents = True
    Set ws = Sheets("notes")
    Set tb = ws.ListObjects("not")
    [not].Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:=Me.nomE
    Application.EnableEvents = False
    Application.ScreenUpdating = True
    Unload Me
End Sub

Décidément

Bonjour

Je n'ai pas vu le bouton...

Problème corrigé

A+ François