Filtre 2 recherches

[popey]

BONJOUR

TOUT D ABORD BRAVO POUR CE SITE TRÈS COMPLET;

JE SUIS EN TRAIN D EFFECTUER UN TABLEAU POUR LE RÉFÉRENCEMENT DE LA DOCUMENTATION
COLONNE B NUMÉRO DE TIROIR
COLONNE C NOM DU FOURNISSEUR
COLONNE K MOT CLEF

ACTUELLEMENT LE FILTRE AUTOMATIQUE FONCTIONNE AVEC UNE CELLULE CRITÈRE SUR LA COLONNE K
MAIS JE N ARRIVE PAS A CRÉE UNE DEUXIÈME CELLULE CRITÈRE POUR LA COLONNE MARQUES

CE DEUXIÈME TRIE PERMETTRA D AFFINER UNE RECHERCHE OU BIEN DE CHERCHER UNE MARQUE.

D'avance merci

 

[Compte Supprimé 979]

Re : Filtre 2 recherches

Bonjour Popey et bienvenue sur ce forum

Merci de ne pas "HURLER" quand tu fais tes demandes
UN TEXTE TOUT EN MAJUSCULE est bien plus difficile à lire

Sinon pour ton problème, voici le code

Private Sub Worksheet_Change(ByVal Target As Range)
' Si modification de la cellule C4
  If Target.Address(0, 0) = "C4" Then
    ' Si la cellule contient une valeur
    If Target.Value <> "" Then
      ' Filter sur cette valeur
      Range("B10:K10").AutoFilter Field:=10, Criteria1:="=*" & Target.Value & "*"
    Else
      ' Supprimer le filtre
      Range("B10:K10").AutoFilter Field:=10
    End If
  End If
  ' Si modification de la cellule E4
  If Target.Address(0, 0) = "E4" Then
    ' Si la cellule contient une valeur
    If Target.Value <> "" Then
      ' Filter sur cette valeur
      Range("B10:K10").AutoFilter Field:=2, Criteria1:="=*" & Target.Value & "*"
    Else
      ' Supprimer le filtre
      Range("B10:K10").AutoFilter
    End If
  End If
End Sub

A+