[ RESOLU ] Macro RECHERCHE à corriger

Vous avez besoin d'aide pour votre programmation en VBA ou sur l'utilisation d'Excel, c'est ici que ça se passe !
Verrouillé
Avatar de l’utilisateur
wisefun77
Membre unique
Membre unique
Messages : 12
Enregistré le : 30 juin 2014, 12:57

[ RESOLU ] Macro RECHERCHE à corriger

Message par wisefun77 »

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.
je vous joins le fichier

Merci
Modifié en dernier par wisefun77 le 03 juillet 2014, 20:53, modifié 2 fois.

Avatar de l’utilisateur
Admin
Administrateur
Administrateur
Messages : 513
Enregistré le : 29 mai 2014, 14:43

Re: Macro RECHERCHE à corriger

Message par Admin »

Bonjour,
vérifiez bien l'ajout des pièces jointes, apparement les extensions de type .xls ne sont pas prisent en compte !
Privilégiez les formats compressés comme .zip.

Cdlt

Avatar de l’utilisateur
wisefun77
Membre unique
Membre unique
Messages : 12
Enregistré le : 30 juin 2014, 12:57

Re: Macro RECHERCHE à corriger

Message par wisefun77 »

Bonjour,
pas grave je fait le fichier.
projet_gestion_1feuille(2).zip
Merci
Vous n’avez pas les permissions nécessaires pour voir les fichiers joints à ce message.

kfjm
Membre confirmé
Membre confirmé
Messages : 6
Enregistré le : 29 mai 2014, 16:32

Re: Macro RECHERCHE à corriger

Message par kfjm »

Par exemple :

Code : Tout sélectionner

Private Sub TextBox7_Change()

    Application.ScreenUpdating = False
    
    For ligne = 2 To Range("A" & Rows.Count).End(xlUp).Row         'ligne 2 à la dernière ligne remplie de la colonne "A"
        If Cells(ligne, 1) Like "*" & UCase(TextBox7) & "*" Then   'fonction Ucase pour ne pas tenir compte des majuscules ou minuscule
            For j = 1 To 6                                         '1 à 6 pour tout tes textbox
                Me("textbox" & j) = Cells(ligne, j)
            Next j
            Exit For                                               '-> pas utile sauf si tu veux avoir le premier mot correspondant de la colonne
        End If
        Next
        
End Sub

Avatar de l’utilisateur
wisefun77
Membre unique
Membre unique
Messages : 12
Enregistré le : 30 juin 2014, 12:57

Re: Macro RECHERCHE à corriger

Message par wisefun77 »

Bonsoir kfjm,

Super travail en plus bien expliqué.
BRAVO

Merci très sincèrement

Verrouillé