Discussion :

[guidec23]

Bonjour,
Je cherche comment comment créer un bouton qui ferait automatiquement un filtre grâce à une macro.
Cependant, j'arrive à l'automatiser mais comme vous pouvez le voir ci-dessous, il va chercher le mot mavariable et non le mot situé en B24.
J'ai oublié de vous préciser, il faut impérativement qu'il affiche tout les résultats contenant le mot et non uniquement les résultats exactement écrit comme le mot.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub recherche()
Dim mavariable As String
    mavariable = Range("B24").Value
    Columns("A:A").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$22").AutoFilter Field:=1, Criteria1:="=*mavariable*"
End Sub

Merci,

[Philippe Tulliez]

Bonjour,
Tu mélanges des valeurs constantes et une variable
Comme ceci, ce sera mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Criteria1:="=*" & mavariable & "*"

Petit test pour comprendre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub t()
 Dim maVariable As String
 maVariable = "Toto"
 MsgBox "Je suis maVariable"
 MsgBox "Je suis " & maVariable
End Sub

La sélection de ton filtre est curieuse

[guidec23]

Merci beaucoup cela fonctionne !!