Problème code avec barre de recherche

Bonjour à tous,

J'ai à nouveau besoin de vous !!!

Je souhaite créer une barre de recherche dans ma feuille (tableau) mais impossible de faire fonctionne le code voici ce que cela me dit :

Est-ce que vous pouvez m'aider

merci à tous

bonjour,

textbox1 se trouve-t-elle bien sur sheets(3) ?

Oui

peux-tu mettre un extrait de ton classeur dans lequel on peut reproduire le problème ?

Voici le fichier

Merci de ton aide

Pour moi Sheets(1).Name vaut "SUIVI ALIGNEMENT". Pas Sheets(3)

bonjour

tu n'as que 2 feuilles dans ton classeur, donc adresser la 3ème feuille n'est pas possible. essaie ceci, utilise le nom de la feuille pas son index.

Private Sub TextBox1_Change()
'Déclaration de la variable
Dim ligne As Integer

    Application.ScreenUpdating = False
    'une boucle en For se termine par Next
    Set wssa = Sheets("suivi alignement")
    For ligne = 11 To 1000
        wssa.Range("f" & ligne).EntireRow.Hidden = False
        'Si la fenêtre de recherche n'est pas vide alors
        If TextBox1.Value <> "" Then
            'Si la ou les premières valeur de la cellule dans ma colonne "f" est égale à le valeur de celle de ma fenêtre alors
            If wssa.Cells(ligne, 6).Value Like TextBox1.Value & "*" Then
                wssa.Range("f" & ligne).EntireRow.Hidden = False
                Else
                wssa.Range("f" & ligne).EntireRow.Hidden = True
            End If
        End If
    Next ligne
    Application.ScreenUpdating = True
    TextBox1.Text = UCase(TextBox1.Text)

End Sub

Private Sub TextBox2_Change()
'Déclaration de la variable
Dim ligne As Integer
    Application.ScreenUpdating = False
    Set wssa = Sheets("suivi alignement")
    'une boucle en For se termine par Next
    For ligne = 11 To 1000
        wssa.Range("g" & ligne).EntireRow.Hidden = False
        'Si la fenêtre de recherche n'est pas vide alors
        If TextBox2.Value <> "" Then
            'Si la ou les premières valeur de la cellule dans ma colonne "g" est égale à le valeur de celle de ma fenêtre alors
            If wssa.Cells(ligne, 7).Value Like TextBox2.Value & "*" Then
                wssa.Range("g" & ligne).EntireRow.Hidden = False
                Else
                wssa.Range("g" & ligne).EntireRow.Hidden = True
            End If
        End If
    Next ligne
    Application.ScreenUpdating = True

End Sub

Super ca marche

Merci beaucoup de ton aide