Discussion :

[Deb42]

Bonjour à tous,
Dans ma Feuille, j'ai une macro qui colore des lignes en fonction du texte inscrit dans la textbox1.
Dans mon Workbook, j'ai une macro qui efface les textbox à la fermeture du fichier.

Mon objectif est de pouvoir rechercher un nom dans un tableau et le visualiser facilement.
Je bloque sur ces 2 points :
=> Comment réinitialiser la mise en forme à la fermeture du fichier? actuellement, lorsque je ferme mon fichier les lignes restent colorées en vert. Et lorsque je rouvre le fichier, j'ai une erreur 1004.
=> Comment ajouter un filtre sur ma sélection? mon tableau comporte des centaines de lignes, je souhaite ne visualiser que les lignes contenant le texte recherché.

Merci par avance pour votre aide!

Le code de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Compare Text
'RECHERCHER UNE LIGNE EN FONCTION DU NOM
Private Sub TextBox1_Change()
 
    Application.ScreenUpdating = False
    L = Sheets("zzz").Range("a65536").End(xlUp).Row + 1
 
    If TextBox1 = "" Then
        For Ligne = 10 To L
        Rows(Ligne).Interior.ColorIndex = 0 'fond transparent
        Next
    End If
 
    If TextBox1 <> "" Then
        For Ligne = 10 To L
            If Cells(Ligne, 4) Like "*" & TextBox1 & "*" Then
                Rows(Ligne).Interior.ColorIndex = 43 'fond vert
                Else: Rows(Ligne).Interior.ColorIndex = 0
            End If
        Next
    End If
 
End Sub

Le code du workbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_Open()
Sheets("zzz").TextBox1.Text = ""
Sheets("zzz").TextBox2.Text = ""
End Sub

[Thautheme]

Bonjour Deb, bonjour le forum,

Si la ligne 9 de ton tableau contient les étiquettes, je te propose d'utiliser le filtre automatique avec les code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub TextBox1_Change()
ActiveSheet.Range("A9").AutoFilter field:=4, Criteria1:="*" & TextBox1.Value & "*"
If TextBox1.Value = "" And Sheets("zzz").AutoFilterMode = True Then Sheets("zzz").Range("A9").AutoFilter
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
Sheets("zzz").TextBox1.Value = ""
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("zzz").AutoFilterMode = True Then Sheets("zzz").AutoFilter
ThisWorkbook.Save
End Sub

[Deb42]

Bonjour Thautheme, bonjour à tous,
Merci beaucoup de t'être penché sur ma question!
Ce code fonctionne... 1 fois. Mais si j'efface ma textbox et que je remets du texte, il y a un bug : la ligne d'étiquettes disparait.
D'autre part, le code supprime les filtres, or je souhaite les conserver (en mettant "Sélectionner tout").

Mais grâce à ton code, j'ai découvert la fonction AutoFilter ! Et j'ai pu rechercher plus efficacement des bouts de code sur l'excellent site de Jacques Boisgontier (http://boisgontierjacques.free.fr/pa...FiltreAuto.htm). Voici donc ce que j'ai écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'RECHERCHER UNE LIGNE EN FONCTION DU NOM
Private Sub TextBox1_Change()
 Sheets("zzz").Protect Contents:=True, UserInterfaceOnly:=True
 nom = "*" & Replace(Me.TextBox1, " ", "*") & "*"
 ActiveSheet.Range("$a$9:$bl$1000").AutoFilter Field:=4, Criteria1:=nom
End Sub

Et j'ai rajouté une msgbox pour empêcher de fermer le fichier avec un filtre activé (sinon, tout plante...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If MsgBox("Avez-vous annulé tous les filtres ?", 36, "Confirmation") = vbNo Then
        Cancel = True
    End If
 
    If Sheets("zzz").TextBox1.Value <> "" Then
    MsgBox ("Annulez le filtre avant de fermer le document !")
    Cancel = True
    End If

Pour le moment, cela répond à ma demande ;-)
Encore merci.