Filtre avancé en vba

Bonsoir à tous,

J'ai besoin d'un coup de main. J'ai un fichier excel contenant 5 onglets. Dans chaque onglet, je souhaite filtrer mes doublons mais sans les effacer car j'ai mis une formule qui additionne mais doublon.

Je cherche simplement à masquer tous les doublons de 4 onglets.

Je n'ai aucun critère de recherche. Je travaille avec excel 2013 ou 2016 professionnel (je validerais demain pour être sûre de l'année).

J'aimerais que le vba puisse être actif sur une feuille active et j'aimerais le mettre sur un bouton.

J'avais trouvé un code mais il ne fonctionne pas à mon travail. J'aimerais vraiment que ce soit un VBA parce que ça ne sera pas toujours à mon poste qu'on remplira ce fichier

Code:

---

1 2 3

Sub FiltreDoublon() [F:F].AdvancedFilter Action:=xlFilterInPlace, Unique:=True End Sub

---

Merci pour votre aide

Je suis découragée :(

P.s. Si vous avez besoin d'un fichier, j'ai un fichier test mais fait dans excel 2016 familial.

Bonjour,

Code:

---

ActiveSheet.Range("F1:F101").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

---

Cependant il est préférable de calculer le nombre de ligne dynamiquement

Code:

---

1 2 3

With ActiveSheet.Range("A1").CurrentRegion .Columns(5).AdvancedFilter Action:=xlFilterInPlace, Unique:=True End With

---

Il est évident que pour cet exemple la ligne des titres est en ligne 1 et la première cellule de la liste des données est A1

et avec un tableau structuré

Code:

---

1 2 3

Dim olst As ListObject Set olst = ActiveSheet.ListObjects(1) olst.ListColumns("Logement").Range.AdvancedFilter Action:=xlFilterInPlace, Unique:=True, CopyToRange:=rngTarget

---

A lire éventuellement

• Les filtres avancés ou élaborés dans Excel
• Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)

Bonsoir,

J'ai pu tester le premier code qui semble vouloir fonctionner mais il s'enregistre dans mon personal. En s'enregistrant à cette place, ma collègue ne peut pas utiliser mon bouton. Où dois-je le créer pour que le code soit fonctionnel peu importe l'utilisateur du fichier.

Seconde question, si j'aimerais qu'il s'applique lorsque je sélectionne une colonne au lieu de lui dire dans laquelle je veux qu'il agisse. De cette manière, Je n'aurais qu'à sélectionner ma colonne et je pourrais l'utiliser sur tous mes onglets.

Exemple

Code:

---

ActiveSheet.Range("F1:F101").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

---

Je vous remercie de votre aide.

P.S À mon travail, nous utilisons excel 2013 professionnel

Bonjour,

Citation:

---

J'ai pu tester le premier code qui semble vouloir fonctionner mais il s'enregistre dans mon personal. En s'enregistrant à cette place, ma collègue ne peut pas utiliser mon bouton. Où dois-je le créer pour que le code soit fonctionnel peu importe l'utilisateur du fichier.

---

Je ne comprends pas.

• A quoi correspond "mon personal" ?
• De quel bouton s'agit-il ?

Dans le code proposé, j'ai utilisé l'objet ActiveSheet parce-que c'est votre demande

Citation:

---

J'aimerais que le vba puisse être actif sur une feuille active et j'aimerais le mettre sur un bouton

---

.


[EDIT]

Citation:

---

Seconde question, si j'aimerais qu'il s'applique lorsque je sélectionne une colonne au lieu de lui dire dans laquelle je veux qu'il agisse. De cette manière, Je n'aurais qu'à sélectionner ma colonne et je pourrais l'utiliser sur tous mes onglets.

---

Il suffit de modifier la procédure que j'ai proposée en y ajoutant un argument dont la valeur passée serait le n° de la colonne
Exemple

Code:

---

1 2 3 4 5

Sub FilterUnique(ColumnNumber As Integer) With ActiveSheet.Range("A1").CurrentRegion .Columns(ColumnNumber).AdvancedFilter Action:=xlFilterInPlace, Unique:=True End With End Sub

---

Exemple pour l'invoquer

Code:

---

1 2 3

Sub TestFilterUnique() FilterUnique 5 End Sub

---

Pour que cela fonctionne sur sélection de la colonne, on peut utiliser une procédure événementielle telle que Worksheet_BeforeDoubleClick
Exemple (Cet exemple ne contient aucun test sur le numéro de ligne sélectionné ni l'interception d'erreur, ni aucune vérificaction

Code:

---

1 2 3 4

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) FilterUnique Target.Column Cancel = True End Sub

---

Pour que cela fonctionne dans toutes les feuilles d'un classeur, on privilégiera la procédure événementielle Workbook_SheetBeforeDoubleClick

Bonjour,

J'ai enfin réussi :) Je suis vraiment trop contente :)

Merci du coup de pouce