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

chaelie2015

XLDnaute Accro
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.
 

Pièces jointes

  • CHARLIE Masquer ligne non concerné.xlsm
    21.2 KB · Affichages: 7

chaelie2015

XLDnaute Accro
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Re

=>Marcel32
Voici le fil en question

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

XLDnaute Accro
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
 

Pièces jointes

  • CHARLIE Masquer ligne non concerné.xlsm
    18.5 KB · Affichages: 3
Dernière édition:

TooFatBoy

XLDnaute Barbatruc
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. ;)
 

Pièces jointes

  • Chaelie textbox texte.xlsm
    22 KB · Affichages: 6

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG