Macro RECHERCHE à corriger

Bonjour,

J'ai fait une adaptation d'une macro recherche que je possédait.

Mais je n'arrive pas à supprimer la ligne color dans le UserFormFiltrer.

Private Sub TextBox7_Change()
Application.ScreenUpdating = False
    With Sheets("Planning")
        .Range("A2:A2400").Interior.ColorIndex = 0
        If TextBox7 <> "" Then
            For ligne = 2 To 2400
                If .Cells(ligne, 1) Like "*" & TextBox7 & "*" Then
                    .Cells(ligne, 1).Interior.ColorIndex = 0
                    For j = 1 To 5
                        Me("textbox" & j) = .Cells(ligne, j)
                    Next j
                    Exit For
                End If
            Next
        End If
    End With
End Sub

Voici le fichier

Merci

Bonjour,

J'ai pas trop compris ce que tu cherches à faire... et la ligne color..

Merci d'expliquer afin que je reproduise le souci et te donne une solution

Crdlt

Bonjour Dan,

je voudrais faire une macro recherche , mais je n'ai pas besoin de colorer les lignes.

J'ai voulu supprimer l'objet interior, mais BUG

Merci

re

Toujours pas clair...

je voudrais faire une macro recherche , mais je n'ai pas besoin de colorer les lignes.

J'ai voulu supprimer l'objet interior, mais BUG

L'instruction Interior concerne ce que tu as dans ta cellule

Ton code fait intervenir un critère couleur. Tu veux chercher sur le critère couleur ou simplement sur le critère de la textbox ?

Donne plus d'explications afin que l'on comprenne

Crdlt

Bonjour Dan,

Oui tu as raison je me suis mal exprimé.

Je viens de trouver une solution

Je vais changer le code par celui-ci

Private Sub TextBox7_Change()

    Application.ScreenUpdating = False

    For ligne = 2 To Range("A" & Rows.Count).End(xlUp).Row        
        If Cells(ligne, 1) Like "*" & UCase(TextBox7) & "*" Then  
            For j = 1 To 6                                         
                Me("textbox" & j) = Cells(ligne, j)
            Next j
            Exit For                                              
        End If
        Next

End Sub

Merci pour votre aide

Re

Ok. C'est d'ailleurs ce que j'avais sous le coude pour te donner

Bizarre que cela est type top identique...

Bonne journée

crdlt

Bonjour DAN,

Oui mais cela ne fonctionne pas.

Je ne peux faire de recherches exacts.

J'ai donc pris l'ancien code.

Merci