Discussion :

[Caravelle]

Bonjour,

J'ai dû mal chercher et pourtant j'ai épluché les FAQs, les tutos et les sujets, mais je n'ai pas trouvé mon bonheur.
Alors désolé si je repose une énième fois la même question.

Après avoir importé des données dans une feuille via une requête SQL, je souhaite activer les filtres automatiques afin que l'utilisateur puisse s'en servir ensuite.

J'ai donc ajouté ce code en fin de sub :

Code :

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

Worksheets("OUs").Range("A7").AutoFilter

Les petites flèches apparaissent bien à côté de chaque étiquette, mais elles ne sont pas actives : aucun menu déroulant n'apparaît quand on clique dessus.

C'est pourtant cette commande qui est générée lorsque j'enregistre l'action Données -> Filtre... -> Filtre automatique.

Le pire, c'est que la commande fonctionne très bien depuis la fenêtre "immediate".

Si quelqu'un connaît le problème, merci d'avance

[tirex28]

Bonjour,

Pour reproduire ce que tu décris j'ai du protéger la feuille apres avoir mis le filtre en place.

Ta feuille est elle protégée? (Eventuellement dans la suite du programme s'il y en a une).

Cordialement,

Tirex28/

[Caravelle]

Merci pour la réponse

Non, aucune protection, le recalcul automatique n'est pas désactivé, tout est "open".

Si je crée un petit fichier avec quelques données et que lance la commande via une mini-sub, tout va bien.
J'ai l'impression que le problème vient du fait que j'importe des données (avec le nom des champs) avant.

[Swiper]

Salut, c'est peu être que le filtre n'est appliqué qu'a une seule cellule.

Essaie de filtrer des colonnes entières, voir qu'es ce que cela fait.

Code :

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

1
2
 
Worksheets("OUs").Range("A:A").AutoFilter

[Caravelle]

Merci pour vos réponses, je viens de trouver la raison.

Quand je lance une requête, Excel insère systématiquement un nom pour la plage de résultat. Pas trouvé comment lui dire de ne pas créer un nom à chaque fois...
Pour éviter d'avoir plein de noms dans tous les sens, après chaque requête, j'ai pris l'habitude de supprimer le nom avec le code suivant :

Code :

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

Names(1).Delete

Ca marche à condition de ne pas avoir d'autres noms dans le classeur.
Pas très propre, mais bon, ça fonctionne.

Oui mais voilà, quand on crée un filtre automatique, Excel lui affecte un nom invisible. Si ce nom est placé avant le nom de ma requête (ordre alphabétique), on supprime ce nom invisible et ça désactive le filtre !

Encore merci à ceux qui se sont penchés sur mon problème !