Supprimer contenu lignes si les cel de recherche sont vides

Bonjour,

Après plusieurs recherches sur le forum et tests non réussi, je cherche a adapter ce code ci-dessous (trouver ici même, je pense) pour supprimer le contenu des lignes de ma feuille "RECHERCHE" a partir la "14" si mes cellules "C3" et "C6" sont vide!

Car pour le moment, ci ses cellules sont vide il m'affiche tous le contenu de ma matrice "NE".

J'ai déjà adapté ce code en fonction de ce comprenais

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.Goto Range("A14"), True
Dim TabTemp As Variant
Dim F1 As String, F2 As String, F3 As String
Dim L As Long, Lresult As Long
Dim C As Integer
Dim FiltreOk As Byte
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("c3,C6")) Is Nothing Then
        Application.ScreenUpdating = False
        Lresult = 14
        'Mémorise les valeurs filtres
        F1 = Range("c3").Text
        F2 = Range("C6").Text
        'Charge les données dans un tableau variant temporaire
        With Sheets("NE")
            L = .Cells(.Rows.Count, 1).End(xlUp).Row
            TabTemp = .Range(.Cells(2, 1), .Cells(L, 10)).Value
        End With
        'Efface résultats précédents
        Range(Cells(14, 1), Cells(Rows.Count, 4)).ClearContents
        'Traitement du filtre de recherche
        For L = 1 To UBound(TabTemp, 1)
            If F1 = "" Or F1 = TabTemp(L, 1) Then FiltreOk = 1
            If F2 = "" Or F2 = TabTemp(L, 2) Then FiltreOk = FiltreOk + 1
            If F3 = "" Or F3 = TabTemp(L, 6) Then FiltreOk = FiltreOk + 1
            If FiltreOk = 3 Then
                'Affichage ligne résultat
                For C = 2 To 10
                    Cells(Lresult, C - 1).Value = TabTemp(L, C)
                Next C
                Lresult = Lresult + 1
            End If
            FiltreOk = 0
        Next L
        Application.ScreenUpdating = True
    End If
End Sub

Bonjour

une essai avec une petite modification pour la liste 2

Bonsoir,

Je te remercie, mais ça ne change rien (voir *.png). les cellules "C3" et "C6" sont vides et les infos liées à la feuille "NE" sont toujours afficher!

Je ne comprend pas pourquoi sur la feuille "Atelier" as-tu écris une fonction "décaler"?!

Salut

problème résolu

Pour la fonction J'ai oublié de la supprimer

super!! un grand merci

Par contre le code de départ, n'as pas juste été adapter, il a complètement changer!

Là je suis perdu

Bon je vais essayer de m'y retrouver.

Encore merci.

re..

Je parcours de long en large mon fichier avec tes modifications, je fais des tests et c'est vraiment très concluant

1- calcul de la recherche super rapide

2- liste sans blanc (c'était prévu dans les améliorations)

par contre, je remarques que dans le "gestionnaire de noms" tu as rajouté des choses?

J'essaye de comprendre, mais ...

Pour le nom BKList est inutile

Pour le nom iList afin d'obtenir une liste adapter avec les valeurs existantes

Je te remercie, mais j'ai encore un petit service sur ce code , mais je vais ouvrir un nouveau sujet. -> le tri auto par n° de commande sans touché à la mise en forme des cellules?

Bonne nuits