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

chaelie2015 · 26 Février 2022

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 · 27 Février 2022

chaelie2015 à dit:
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.

TooFatBoy · 26 Février 2022

Bonjour,

Peut-être comme ça :

VB:

    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 · 26 Février 2022

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 · 26 Février 2022

Marcel32 à dit:

Bonjour,

Peut-être comme ça :

VB:

    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

VB:

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 · 26 Février 2022

Marcel32

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

Sinon pour reprendre l'idée du filtre automatique

VB:

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 · 26 Février 2022

Staple1600 à dit:
Marcel32

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

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

Je vais chercher le fil en question.

Staple1600 · 26 Février 2022

Re

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

TooFatBoy · 26 Février 2022

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 · 26 Février 2022

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 · 26 Février 2022

Staple1600 à dit:

Marcel32

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

Sinon pour reprendre l'idée du filtre automatique

VB:

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 · 26 Février 2022

Staple1600 à dit:
Voici le fil en question

Oui, je viens de le trouver. Merci.

Staple1600 à dit:
Je voulais juste dire qu'en théorie, on avait quitté la boucle

Mais apparemment, on y retourne

OK, je comprends.

Staple1600 · 26 Février 2022

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 · 26 Février 2022

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 · 27 Février 2022

chaelie2015 à dit:
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 · 27 Février 2022

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

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

chaelie2015

XLDnaute Accro

Pièces jointes

TooFatBoy

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

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

chaelie2015

XLDnaute Accro

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires