Bonjour à tous,

Voici mon problème: J'ai créé un bout de macro tel quel:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
For N = 2 To DligneNA
If IsError(Cells(N, 10)) Then MsgBox ("Le Code société " & Cells(N, 7) & " ne correspond pas dans le référentiel !")
Next N
ça fonctionne sans soucis.
En N7= des codes 5 digits.
En N10= parfois des #N/A

Cependant, il est fréquent que le code en N7 soit le même pour plusieurs lignes de ma boucle, ce qui occasionne le même Msgbox. Je souhaiterais ainsi ne recevoir ce code qu'une seule fois.

Ce à quoi j'ai pensé :

Stocker le code à part, puis faire à nouveau une boucle sur ces codes stockés et supprimer les doublons pour faire à nouveau un msgbox sur ces codes triés.


Ca fonctionnerait, mais je pense qu'il existe une méthode plus simple et je m'en remet aux experts de ce forum. Si il n'y a pas plus simple, je garderait cette méthode;


J'espère m'être fait comprendre !

Bonne journée,
Mickamax