VBA EXCEL AUTOFILTER

Question

j ai une base de donnees avec "projet nr." , " nom de publication" et "nom d' auteur".

je veux ecrire un macro pour automatiser autofilter et d'avoir 4 boutons sur mon "Worksheet".

Bouton 1: Chercher numer0 ( personaliser: numero= )
Bouton 2 et3: Chercher publicationou auteur( personaliser: le nomquontiet ....)
Bouton4: desactiver autofilter.

Ce que je n'arrive pas a faire est le suivant:  
Bouton 2 --> resultat (les publications que je cherches = "groepA")
je veux avoir seulement les publications( dugroepA) de l 'auteur "blabla".
cela veux dire :2 autofilters en meme temps

voilace que j ai ecris:

Sub FilterRapport()
  
    Dim nomRap As String
   
    
       nomRap = InputBox("Enter nom ou les premiers letters", "Chercher Rapport", "Nom Contient")


  
    'Cancel: deselecter autofilter 
    If (naam = "") Then
         Exit Sub
     
    Else
            Range("C6:C9999").AutoFilter Field:=1, Criteria1:="=" & "*" & nomRap & "*", Operator:=xlAnd
           
    End If
              
  End Sub
-------------------------------------------
Sub FilterAuteur()

    Dim nomAut As String


    nomAut = InputBox("Enter nom auteur:", "cherche Auteur", "nom contient: ")


If (nom = "") Then
         Exit Sub
     
    Else
            Range("E6:E9999").AutoFilter Field:=1, Criteria1:="=" & "*" & nomAut & "*", Operator:=xlAnd
               
    End If
   
End Sub
-------------------------------------------
Sub ZoekNummer()

    Dim nummer
  nummer InputBox("Enter Nr:", "Chercher nr.", "nummero")
        
    'Cancel
    If nummer = "" Then Exit Sub
    
    If (nummer >= 0) Then
           Range("B6:B9999").AutoFilter Field:=1, Criteria1:="=" & nummer, Operator:=xlAnd
                              
    Else
           Exit Sub
             
     End If


      End Sub

cs_David_wklw · Answer

coucou,

Essaies en posant les filtres un apr&#232;s l'autre 

objet.....AutoFilter Field:=1, Criteria1:="BLABAL"
objet....AutoFilter Field:=2, Criteria1:="blibli"

manmansi · Answer

comment?

criteria1 et 2= ce que tu as ecris ds inputbox.

VBA EXCEL AUTOFILTER

2 réponses

Discussions similaires