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