Traitement doublons VBA

Bonjour à tous,

Pour mon stage je dois écrire une macro qui doit vérifier que pour chaque doublon de la colonne A se trouve un "OK" en colonne I.

Si pour un seul des doublons le programme trouve un "PAS OK" en colonne I, alors il écrit "PAS OK" en colonne K sur toutes les lignes du doublon.

Si par contre le programme trouve des "OK" pour tous les doublons alors, il écrit "OK" en colonne K pour tous les doublons.

En espérant que mon explication est claire

Merci d'avance pour votre aide

Ci-joint le fichier contenant les données à traiter

Eric

Bonjour,

Ci-joint un algorithme à traduire en VBA :

Algorithme TraitementDoublons                
Variables derLig, lig  : entiers                
Début                
    Trouver la dernière ligne du tableau'pour trier le tableau        
    Trier le tableau par colonne A et colonne I (décroissant)            
    Trouver la dernière ligne du tableau'pour parcourir le tableau trié            
    pour    lig <-- 2 à derLig faire        
        si valeur colonne A de la ligne active = valeur de la ligne suivante colonne A alors        
            si valeur colonne I de la ligne active = "PAS OK" alors    
                valeur de la colonne I de la ligne suivante = "PAS OK"
            fsi    
        fsi        
    fpour            
Fin    

Bonjour,

Comment supprimer les doublons lorsqu'on utilise "=ALEA.ENTRE.BORNES(1; 301)" ?

Merci!

Romana