Autres (RESOLU)Rechercher et masquer les lignes non concernés

[chaelie2015]

Bonsoir FORUM
cette discussion ressemble la précédente mais cette fois,je souhaite masquer les lignes non concernés par la recherche.
Merci par avance.

 

[TooFatBoy]

Bonjour,

Peut-être comme ça :

    For ligne = 2 To 365
        If Cells(ligne, 3) Like "*" & TextBox1 & "*" Then
            ActiveSheet.Range("A" & ligne).EntireRow.Hidden = False
        Else
            ActiveSheet.Range("A" & ligne).EntireRow.Hidden = True
        End If
    Next

 

[Staple1600]

Re

Pourquoi ne pas passer par le filtre automatique?
(Le contenu de la TextBox1 peut servir de critère)
Et surtout le filtre automatique permet plusieurs options de filtre chronologique.

 

[chaelie2015]

Bonjour,

Peut-être comme ça :

    For ligne = 2 To 365
        If Cells(ligne, 3) Like "*" & TextBox1 & "*" Then
            ActiveSheet.Range("A" & ligne).EntireRow.Hidden = False
        Else
            ActiveSheet.Range("A" & ligne).EntireRow.Hidden = True
        End If
    Next

Bonsoir Marcel
Oui c'est ça mais il est très lourd

Option Compare Text


Private Sub Textbox1_Change() 'Recherche 
Application.ScreenUpdating = False
Range("c2:c365").Interior.ColorIndex = 2
   
   
   
   
   If TextBox1 <> "" Then
        For ligne = 2 To 365
            If Cells(ligne, 3) Like "*" & TextBox1 & "*" Then
                Cells(ligne, 3).Interior.ColorIndex = 37
                ActiveSheet.Range("C" & ligne).EntireRow.Hidden = False
            Else
                ActiveSheet.Range("C" & ligne).EntireRow.Hidden = True
            End If
        Next
    End If
   
End Sub

A+

 

[Staple1600]

Marcel32

C'était déjà dans le fil d'origine 😉

Sinon pour reprendre l'idée du filtre automatique

Private Sub TextBox1_Change()
If Len(TextBox1) = 10 Then
ActiveSheet.Columns(3).AutoFilter Field:=1, Criteria1:="=" & CDate(TextBox1.Value), Operator:=xlAnd
ActiveSheet.AutoFilter.Range.Interior.ColorIndex = 37
Else
On Error Resume Next
ActiveSheet.AutoFilterMode = False
ActiveSheet.Columns(3).Interior.ColorIndex = 2
End If
End Sub

 

[TooFatBoy]

Marcel32

C'était déjà dans le fil d'origine 😉

Oups... pas vu. Désolé. 🙁

Je vais chercher le fil en question. 😉

 

[Staple1600]

Re

Enfin la boucle était dans le fil
(et moi aussi 😉, pas dans la boucle mais dans le fil 😉)

 

[TooFatBoy]

Je ne vois pas trop ce que tu veux dire. 🙁

Mais j'ai pris le fichier qu'il a donné ici dans sa question, et j'ai essayé de l'adapter.
J'ai changé ce qui était fait dans la boucle : au lieu d'afficher en bleu, ça montre/masque les lignes concernées.
C'est tout. 😉

 

[Staple1600]

Re

=>Marcel32
Voici le fil en question

Autres - (RESOLU)Textbox dans une feuille pour recherche format Date

Bonjour Forum je souhaite ajouter a la Textbox1 dans la feuille une exigence ( textbox01) format date jjjj jj/mm/aaaa lors de la saisie. Private Sub TextBox1_Change() 'Recherche date Application.ScreenUpdating = False Range("c2:c365").Interior.ColorIndex = 2 If...

www.excel-downloads.com

Je voulais juste dire qu'en théorie, on avait quitté la boucle 😉

Mais apparemment, on y retourne 😉

Tout comme j'efface mes cellules avec les doigts, je masque mes lignes avec un filtre
Mais cela c'est mon choix comme dirait Evelyne T. 😉
NB: Evidemment, je fais cela comme un bonhomme (sans une once de VBA, tout à la mano et en maillot de corps 😉)

 

[chaelie2015]

Marcel32

C'était déjà dans le fil d'origine 😉

Sinon pour reprendre l'idée du filtre automatique

Private Sub TextBox1_Change()
If Len(TextBox1) = 10 Then
ActiveSheet.Columns(3).AutoFilter Field:=1, Criteria1:="=" & CDate(TextBox1.Value), Operator:=xlAnd
ActiveSheet.AutoFilter.Range.Interior.ColorIndex = 37
Else
On Error Resume Next
ActiveSheet.AutoFilterMode = False
ActiveSheet.Columns(3).Interior.ColorIndex = 2
End If
End Sub

Bonsoir JM
ce n'est pas le même fichier, cette fois c'est des textes et non pas des dates.
j'ai fait le fichier test en pièce jointe
merci

 

[TooFatBoy]

Voici le fil en question

Oui, je viens de le trouver. Merci. 👍

Je voulais juste dire qu'en théorie, on avait quitté la boucle 😉

Mais apparemment, on y retourne 😉

OK, je comprends.

 

[Staple1600]

Re

=>chaelie2015
Date ou Texte, le filtre automatique piloté en VBA sera plus rapide qu'une boucle.
M'en vais voir ton nouveau fichier exemple.

 

[chaelie2015]

Re
regarder mon fichier dans message #10, si je saisi "az" normalement j'aurai "azzzz et azert"
mais ce n'est pas le cas.
a+

 

[TooFatBoy]

Bonsoir Marcel
Oui c'est ça mais il est très lourd

Une nouvelle proposition où, tout comme @Staple1600, j'utilise un filtre automatique.

Deux exemples dans le fichier :
- le 1er avec une plage de données,
- le 2e avec un tableau structuré (beaucoup plus pratique).

En espérant que cette proposition soit moins lourde. 😉

 

[Staple1600]

Bonjour le fil

=>Marcel32
Comme dirait l'autre "j'achèttttte!"
Bien vu le coup du VisibleDropDown

Maintenant une question me turlupine en ce dimanche matin
Pourquoi le VBA alors que ma souris sait faire ?

NB: La question est à destination du demandeur 😉