Microsoft 365 Recherche Find : impossible dans lignes masquées par le filtre

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche :)

Voilà longtemps que je cherche une solution pour afficher la ligne recherchée (masquée par filtrage).
Toutes mes recherches ont abouti au même résultat = le find ne fonctionne que sur les cellules visibles

Toutefois, developpez.net avance des solutions possibles que j'ai copié dans la "Feuil5" du fichier test joint.
Malheureusement, malgré mes tentatives, je n'ai pas su les exploiter pour faire des tests.
J'ai également tenté "LookIn:=xlFormulas" sans résultat.

Pourriez-vous m'aider ?

Une solution serait géniale pour notre travail car actuellement, il nous faut "dé-filtrer" pour afficher la ligne cherchée et "refiltrer" pour revenir au filtrage en cours.

Je joins le fichier test code recherche :

VB:
Sub Recherche()
    If [p4] > 0 Then
        ActiveCell.Offset(0, 5).Select
        Exit Sub
    End If

    If [m1] = "TEXTBOX OUVERT" Then Exit Sub
        Nom = Application.InputBox("Saisir texte/chiffre(s) à trouver :", "Rechercher")
            If VarType(Nom) = vbBoolean Then 'Touche Annuler
                Nom = CStr(Nom)
                [a1].Select
                Exit Sub
            End If

        If Nom = "" Then
            Application.EnableEvents = False
            MsgBox ("Faudrait p'être saisir le(s) texte/chiffre(s) à trouver !")
            [a1].Select
            Application.EnableEvents = True
            Exit Sub
        End If
  
        If [a1] = "Désactiver ?" Then
            ActiveSheet.Unprotect Password:=""
            Columns("N:N") = ""
        End If
    
    ActiveSheet.Unprotect Password:=""
    'ActiveSheet.Range("k6:k" & Range("k65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 1).RowHeight = 20
    'https://forum.excel-pratique.com/excel/selectionner-la-premiere-cellule-non-filtree-t74462.html
    Application.EnableEvents = False
    q = ActiveSheet.Index
 
    For q = q To ActiveSheet.Index + Sheets.Count - 1
    K = (q - 1) Mod (Sheets.Count) + 1
        With Intersect(Sheets(K).UsedRange, Sheets(K).Rows("6:" & Rows.Count))
        On Error Resume Next
            Application.ScreenUpdating = False
            Set C = .Find(Nom, LookAt:=xlPart)   'LookAt:=xlpart dans cellule - LookAt:=xlWhole) 'cellule entière , LookIn:=xlFormulas2
            ActiveCell.RowHeight = 20
            If Not C Is Nothing Then
                firstAddress = C.Address
                Do
                On Error Resume Next
 
                Sheets(K).Select
                C.Activate
                Application.ScreenUpdating = True
                ActiveWindow.ScrollRow = Selection.Row 'ICI ICI ICI
                    'If [a1] = "Désactiver ?" Then
                        ActiveCell.RowHeight = 20
                    'End If
                  
            Rep = MsgBox("A trouver : " & Nom & Chr(10) & Chr(10) & "- OK dans  " & ActiveSheet.Name & Chr(10) _
            & "- Colonne " & Split(C.Address, "$")(1) & Chr(10) & "- ligne       " & C.Row & Chr(10) & Chr(10) _
            & "Continuer la recherche ?", 4 + 32, "Résultat")
            Cells(ActiveCell.Row, 1).Select
                  
                If Rep = vbNo Then
                    Application.EnableEvents = True
                    Exit Sub
                End If
  
        Application.ScreenUpdating = True
        Set C = .FindNext(C)
            Loop While Not C Is Nothing And C.Address <> firstAddress
        End If
        End With
    Next q
 
            MsgBox "Ben NON : y'a pas ou y'a plus !"
                Application.EnableEvents = False
                [a1].Select
                Application.EnableEvents = True
            ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
La feuille "N°_à_chercher" contient les Numéros à chercher après filtrage.

Big Big Big MERCI pour votre aide,
Amicalement,
lionel :)
 

Pièces jointes

  • recherche_filtre2.xlsm
    44.7 KB · Affichages: 11
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re à tous,
Je vous remercie d'avoir bien voulu tenter de m'aider :)
Apparemment, il n'y a vraiment de solution ... Me voilà donc obligé de passer :
comme a dit Gérard : "Eh bien il suffit d'ôter le filtre avant de lancer la recherche, pourquoi aller chercher midi à quatorze heures ?"

Dans ce cas, serait-il possible de garder le filtrage en cours en mémoire pour le remettre" à l'aide d'un bouton" ?
:)
 

TooFatBoy

XLDnaute Barbatruc
Bonjour,

Apparemment, il n'y a vraiment de solution ... Me voilà donc obligé de passer :
comme a dit Gérard : "Eh bien il suffit d'ôter le filtre avant de lancer la recherche, pourquoi aller chercher midi à quatorze heures ?"
Sa réponse me semble évidente. C'est en tout cas ce que j'aurais aussi répondu dès la lecture de #1...

T'es sûr d'avoir bien compris ce qu'il t'a dit ???
 

job75

XLDnaute Barbatruc
Bonjour Lionel,

Apparemment il est nécessaire d'enfoncer les portes ouvertes :
Eh bien il suffit d'ôter le filtre avant de lancer la recherche, pourquoi aller chercher midi à quatorze heures ?
Il suffit donc de mettre en début de macro :
VB:
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData 'si la feuille est filtrée
En général on fait une recherche pour modifier une cellule donc il ne faut pas remettre le filtre en place.

A+
 
Dernière édition:

Discussions similaires