Macro pour déterminer les valeurs en double avec le filtre spécial, Excel VBA)

Si vous avez accidentellement entré des doublons dans une grande quantité de données et que vous souhaitez maintenant créer une liste dans laquelle chaque phrase n’apparaît qu’une seule fois, utilisez le filtre spécial dans Excel. Vous pouvez appeler le filtre spécial en sélectionnant dans le menu DONNEES Sélectionnez la commande FILTRE / FILTRE SPÉCIAL et définissez les critères du filtre spécial. Vous pouvez également utiliser une macro pour effectuer ce travail.

Sub filtrespecialdedonnees ()
Dim area As Range

  Sheets ("Feuil5"). Activate

  Set area = ActiveSheet.UsedRange.Columns (1)

  Area.AdvancedFilter Action: = xlFilterCopy, _

  CriteriaRange: = Range, CopyToRange: = Range ("E1"), _

  Unique: = True

End Sub

 

Déterminez d’abord quelle zone doit être évaluée avec le filtre spécial. Puisque vous souhaitez vérifier votre table pour les numéros d’article en double, définissez la zone pour le filtre spécial avec la colonne A. Utilisez ensuite la méthode AdvancedFilter, qui a la syntaxe suivante:

Expression.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)

 

L’argument d’expression doit être un objet Range. Dans l’exemple , il s’agit de la zone des cellules utilisées dans la colonne A.

L’argument Action est du type de données Long et doit être spécifié. Il représente l’opération de filtrage. Vous pouvez utiliser l’une des constantes XlFilterAction suivantes: xlFilterInPlace (filtre au même endroit) ou xlFilterCopy (insérez le résultat du filtre à un autre endroit du tableau).

L’argument CriteriaRange du type de données Variant est facultatif et représente la plage de critères pour le filtrage. Si l’argument n’est pas spécifié, il n’y a aucun critère.

L’argument Variant, CopyToRange, est facultatif et représente la plage cible des lignes copiées si l’argument Action est xlFilterCopy. Sinon, l’argument est ignoré.

Le dernier argument, Unique, du type de données Variant est facultatif et spécifie si les enregistrements de données en double doivent être filtrés. Si l’argument a la valeur True, seuls les enregistrements qui existent une fois sont filtrés. Si la valeur est False, tous les enregistrements de données qui répondent aux critères sont filtrés. Le paramètre par défaut de cet argument est False.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x