AutoFilter sans critere fixe

[mefis]

😕 bonjour à tous,
je suis un novice en macro et j'ai besoin d'un coup de main.
dans un fichier de données j'ai une liste de réference sur un onglet qui peuvent etre modifés ex: 10,20,30 demain 40,50,60.
sur un autre onglet j'ai ma base de donnée ou je vais actionner mon filtre.
Comment faire pour suivre l'évolution de ma base de donnée en ayant un critere qui corresponde à des cellules non au numéro de mon repère"10".
merci pour votre aide et bonne soirée à tous.🙂


Range("B9").Select
Selection.Copy
Sheets("donnees").Select
Selection.AutoFilter Field:=3, Criteria1:="=10", Operator:=xlAnd
Range("A1").Select

 

[Catrice]

Re : AutoFilter sans critere fixe

Bonsoir,

Si j'ai bien compris :

Sub recherche_repere()
Range("B9").Select
Selection.Copy
Sheets("donnees").Select
Selection.AutoFilter Field:=3, Criteria1:="=" & Sheets("Feuil1").Range("B11"), Operator:=xlAnd
Range("A1").Select
End Sub

 

[Staple1600]

Re : AutoFilter sans critere fixe

Bonsoir


->mefis

Pourrais-tu rester dans ton premier post, stp
https://www.excel-downloads.com/threads/selectionner-un-filtre-avec-un-repere-different.78051/

(C'est plus commode pour suivre la discussion)

🙁 je vois que tu n'as pas utilisé la précédente macro
(ni inclue dans ton classeur exemple)
que j'avais posté dans ton premier post...


Je vais quand même poster une réponse ici

J'essaie justement une autre méthode


A l'attention des VBAistes

J'ai mis quatre commandbuttons (BO formulaires)
auxquels j'ai affecté la macro Xtest4

Evidemment ca ne fonctionne pas

le filtre prend toujours la dernière valeur (13)
quelque soit le bouton cliqué

Qui peut m'indiquer la bonne syntaxe (avec Enum)

Le code ci dessous

Public Enum LesCriteres
    Crits_1 = 10
    Crits_2 = 11
    Crits_3 = 12
    Crits_4 = 13
End Enum
Sub Xtest4()
Dim Rng As Range
Dim Formes As Shape
Dim XX
Set Rng = Sheets("test").Range("A4")

    For Each Formes In ActiveSheet.Shapes
        If Formes.Type = 8 Then
            If Formes.FormControlType = 0 Then
                XX = Right(Formes.TextFrame.Characters.Caption, 2)
            If Not AutoFilterMode Then
                If XX = LesCriteres.Crits_1 Then _
                Rng.AutoFilter Field:=3, Criteria1:="=" & XX, Operator:=xlAnd
                If XX = LesCriteres.Crits_2 Then _
                Rng.AutoFilter Field:=3, Criteria1:="=" & XX, Operator:=xlAnd
                If XX = LesCriteres.Crits_3 Then _
                Rng.AutoFilter Field:=3, Criteria1:="=" & XX, Operator:=xlAnd
                If XX = LesCriteres.Crits_4 Then _
            Rng.AutoFilter Field:=3, Criteria1:="=" & XX, Operator:=xlAnd
            End If
        End If
  End If
Next
Sheets("test").Select
End Sub