VBA Excel: Sélection de valeurs d'un filtre automatique

Résolu

Aline -
Aline - 22 août 2014 à 11:40

Bonjour,

Je travaille sous Excel 2010, et j'ai une petite question concernant l'ajustement d'un code VBA.
Je dispose d'un tableau sur lequel j'ai appliqué un filtre automatique sur une colonne qui contient de nombreuses données. Ces données se présentent toutes de la même manière: XX_Oui, XX_Non, XX_A voir où XX sera toujours un nombre compris de 01 à 96.
J'aimerais pouvoir sélectionner automatiquement tous les XX_Oui et XX_A voir, quel que soit le nombre qui précède.
L'enregistreur de macros m'a proposé le code suivant:

Sub Macro1()
ActiveSheet.Range("$A$1:$X$2940").AutoFilter Field:=6, Criteria1:=Array("01_Oui", "01_A voir", "02_Oui", "02_A voir"), Operator:=xlFilterValues
End Sub

Mais je préfèrerais un code qui tiendrait compte de tous les Oui et A voir sans avoir à les citer.

Quelqu'un peut-il m'aider??

Merci beaucoup!

A voir également:

Autofilter vba
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

Abdel

Bonjour,

Une proposition de code testé, qui devrait donc fonctionner:

Sub Macro1()
ActiveSheet.Range("$A$1:$X$2940").AutoFilter Field:=6, Criteria1:=("*" & "Oui" & "*"), Operator:=xlOr, Criteria2:=("*" & "A voir" & "*"), Operator:=xlFilterValues
End Sub

Bonne journée

Aline

Bonjour Abdel,

Ton code fonctionne parfaitement!

Merci beaucoup!!

Réponse 2 / 2

Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention 526

Bonjour,

Essaie

ActiveSheet.Range("$A$1:$X$2940").AutoFilter Field:=6, Criteria1:="=*Oui*", _
        Operator:=xlOr, Criteria2:="=*A Voir*"

A+

Aline

Bonjour Gyrus,

Malheureusement, cela ne fonctionne pas, avec ton code, le tableau n'affiche aucune donnée. Merci pour ta réponse.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires