Mise en forme de cellules en fonction d'une textbox

Version imprimable

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:

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:

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

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:

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:

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

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:

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:

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.