Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 12 PS5 Orange Livebox ChatGPT Mini PC
Entraide Applications Microsoft Office Excel Problème sur Filtre

Problème sur Filtre

6 réponses
Avatar
Alex
Bonjour =E0 tous,

Je rencontre un probl=E8me sur l'utilisation des filtres automatiques et
me permets de vous solliciter.

Mon fichier permet de g=E9rer des primes, en conservant d'ann=E9e en
ann=E9e, l'historique des ann=E9es pr=E9c=E9dentes, j'ai par cons=E9quent t=
ous
les ans une colonne suppl=E9mentaire =E0 mon tableau.

Je ne sais pas comment faire, pour g=E9rer un filtre automatique sur ce
fichier, car ma colonne o=F9 je fais le filtre se d=E9calle de 1 tous les
ans, et par cons=E9quent la ligne de commande suivante :

Selection.AutoFilter Field:=3D10, Criteria1:=3D"<>"

devrait =EAtre l'an prochain :

Selection.AutoFilter Field:=3D11, Criteria1:=3D"<>"

(Sinon, l'an prochain, mon filtre ne se fera pas sur la bonne
colonne.)

Quelqu'un aurait-il la solution pour que le filtre, se fasse toujours
sur l'intitul=E9 de ma colonne et non le N=B0 ?

Merci par avance de votre aide.
Cordialement.
Alex
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
manu
Bonjour Alex,

Cette colonne est-elle la dernière de ton tableau ?

manu.
Avatar
Caetera
"Alex" a écrit dans le message de news:


Selection.AutoFilter Field:, Criteria1:="<>"

Quelqu'un aurait-il la solution pour que le filtre, se fasse toujours
sur l'intitulé de ma colonne et non le N° ?



Se servir d'une variable représentant le N° de colonne contenant l'intitulé du
champ à filtrer
Méthode "find" :

Sub test()
laCol = Rows("1:1").Find(What:="monChamp", LookAt:=xlWhole).Column
[A1].CurrentRegion.AutoFilter Field:=laCol, Criteria1:="<>"
End Sub

Exemple :
http://www.cijoint.fr/cjlink.php?file=cj201007/cijdlqOhAk.xls

Etc
Avatar
Alex
Merci beaucoup je vais tester cela.
Alex
Avatar
DanielCo
Bonjour.
Joue sur l'année (non testé) :
Filtre = Right(Year(Date),2)
Selection.AutoFilter Field:=Filtre, Criteria1:="<>"
Cordialement.
Daniel

Bonjour à tous,

Je rencontre un problème sur l'utilisation des filtres automatiques et
me permets de vous solliciter.

Mon fichier permet de gérer des primes, en conservant d'année en
année, l'historique des années précédentes, j'ai par conséquent tous
les ans une colonne supplémentaire à mon tableau.

Je ne sais pas comment faire, pour gérer un filtre automatique sur ce
fichier, car ma colonne où je fais le filtre se décalle de 1 tous les
ans, et par conséquent la ligne de commande suivante :

Selection.AutoFilter Field:, Criteria1:="<>"

devrait être l'an prochain :

Selection.AutoFilter Field:, Criteria1:="<>"

(Sinon, l'an prochain, mon filtre ne se fera pas sur la bonne
colonne.)

Quelqu'un aurait-il la solution pour que le filtre, se fasse toujours
sur l'intitulé de ma colonne et non le N° ?

Merci par avance de votre aide.
Cordialement.
Alex
Avatar
Alex
Puis je demander en question subsidiaire comment j'ecris en VBA de me
sélectionner ma cellule laCol, afin d'en modifier l'intitulé ?
Merci d'avance de votre aide.
Alex
Avatar
Caetera
"Alex" a écrit dans le message de news:

Puis je demander en question subsidiaire comment j'ecris en VBA de me
sélectionner ma cellule laCol, afin d'en modifier l'intitulé ?

*********************

A partir de n'importe où dans le classeur et avec le contenu à chercher
="monChamp" quelque part en ligne 1 de "Feuil1"

Sub Atteindre()
laCol = Sheets("Feuil1").Rows("1:1").Find(What:="monChamp",
LookAt:=xlWhole).Column
Application.Goto Reference:="Feuil1!R1C" & laCol
End Sub

Etc