none
Remplacer la fonction égale par contient RRS feed

  • Question

  • Bonjour,
    J'ai créé la Macro suivante :
    Rows("11:11").Columns("A:A").Select 'sélection de la colonne où se trouve le critère
    Selection.AutoFilter ' ouverture du filtre automatique
    Critère = InputBox("Critère", "Saisie critère") ' Saisie du critère à rechercher
    Selection.AutoFilter Field:=1, Criteria1:=Critère, Operator:=xlAnd  ' réponse"

    Cette Macro marche parfaitement mais elle se limite à me lister les lignes exactement identiques au critère choisi
    Ce que je veux c est remplacer la fonction Criteria1:=Critère par la fonction par "contient" (comme dans le filtre automatique d'excel) .
    J ai bien essayé Criteria1:=*Critère* mais ma macro bugue

    Merci d'avance 

    mercredi 10 juin 2009 13:58

Réponses

Toutes les réponses