Sélection des données en double avec Excel VBA

Voulez-vous jamais marquer des valeurs en double dans une étendue donnée? La macro décrite ci-dessous est étroitement liée à celle-ci. Il existe plusieurs façons de rechercher et de sélectionner les doublons: vous pouvez utiliser le format, la mise en forme conditionnelle, le tri, etc. Cependant, toutes ces méthodes nécessitent une configuration et une gestion fiable en cas de modification des données. La macro simplifie le problème en recherchant et en sélectionnant les doublons d’un simple clic du bouton de la souris.

Comment ca marche?
La macro exécute une boucle pour toutes les cellules de la plage et l’instruction For Each est utilisée pour les activer. Pour calculer les occurrences d’une valeur donnée à partir de la cellule dans une plage donnée, la fonction Countlf est utilisée. Si le nombre est supérieur à un, les cellules sont remplies d’or.

Sub SelectionDonneeDouble ()
'Étape 1: Déclaration des variables
Dim MyRange As Range
Dim MyCell As Range
'Étape 2: Spécifiez la plage cible
Set MyRange = Selection
'Étape 3: Commencez la boucle la plage
For Each MyCell In MyRange
'Étape 4: Vérifier si la cellule est formatée en texte
If WorksheetFunction.CountIf(MyRange, MyCell.Value) > 1 Then
MyCell.Interior.ColorIndex = 36
End If
'Étape 5: Passez à la cellule suivante de la plage
Next MyCell
End Sub

 


1. Dans la première étape, deux variables de type Object sont spécifiées: dans la variable MyRange, l’adresse d’une seule plage sera stockée, tandis que la variable MyCell sera utilisée pour stocker les données de cellules calculées consécutivement à partir d’une plage donnée.
2. Dans la deuxième étape, la plage de cellules cible est transmise à la variable MyRange. Dans ce cas, la plage sélectionnée est déjà sélectionnée dans la feuille. Bien entendu, la variable MyRange peut être définie sur une plage spécifique, par exemple Plage (“A1: Z100”). De même, si un nom est attribué à la plage. Ensuite, vous pouvez simplement entrer: Range (“MySpecial Name”).
3. Dans la troisième étape, une boucle est exécutée qui exécutera le code pour chaque cellule de la plage.
4. L’objet WorksheetFunction vous permet d’utiliser de nombreuses fonctions Excel dans VBA. Dans la quatrième étape, l’objet WorksheetFunction a été utilisé pour exécuter la fonction CountIf.
Dans ce cas, le nombre d’occurrences de valeurs de la cellule donnée (MyCell.Value) est compté dans la portée entière (MyRange). Si l’expression CountIf en renvoie plusieurs, la macro modifie alors la couleur de la cellule en.
5. À l’étape cinq, la boucle passe à la cellule suivante. Après avoir activé toutes les sociétés, la fin de l’opération se termine dans la zone macro.


Comment utiliser la macro?
Pour implémenter cette macro, vous pouvez copier et coller son code en mode standard.
À cette fin:
1. Utilisez les touches Alt + F11 pour activer Visual Basic Editor.
2. Dans la fenêtre Projet, cliquez avec le bouton droit sur le nom du projet ou de la feuille de calcul.
3. Sélectionnez Insérer / Module.
4. Tapez ou collez le code.
S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

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