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.
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
Commentaires
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.
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.