VBA qu'est qui cloche dans mon code

[Arpette]

Bonjour à tous, j'ouvre un nouveau post car le titre du dernier ne voulait plus rien dire.
J'ai mis dans module un code qu'Efgé m'a donné, mais j'ai une erreur, je ne comprends pas ce qui se passe.
Merci de votre aide.
@+

 

[Denis]

Re : VBA qu'est qui cloche dans mon code

Bonjour Arpette et le forum
quel type d'erreur as tu ?
Chez moi, xl 2000 pas de problème.
à+
Denis

 

[gilbert_RGI]

Re : VBA qu'est qui cloche dans mon code

Bonjour,

Quelle erreur ?

 

[Arpette]

Re : VBA qu'est qui cloche dans mon code

Bonjour Gilbert, tu as raison ça fonctionne, mais quand je mets le module dans mon fichier de base, j'ai une erreur 13 sur cette ligne

  For b = LBound(Plg, 1) To UBound(Plg, 1)
        If Not Dico.Exists(CLng(Plg(b, 2))) Then Dico2(Plg(b, 2)) = "Absent de la liste" 'ici
  Next b

La différence entre les deux fichiers est le nombre de lignes sur la feuille "5-9-12" 16000 et qu'elle contient des doublons.
Merci de ton aide
@+

 

[Efgé]

Re : VBA qu'est qui cloche dans mon code

Re Arpette, Bonjour gilbert_RGI, Denis
Arpette, sur le premier fil je t"avais indiqué qu'il y avait des problèmes de format de cellule entre tes deux listes (certaines valeurs en nombre et d'autres en texte...).
Dans ma proposition, pour remédier à cette situation j'ai forcé les valeurs en Long (Clng).
Si ton tableau contient des valeurs Alphanumériques, le Clng plante....
A toi de voir...
Cordialement

 

[Efgé]

Re : VBA qu'est qui cloche dans mon code

Re
Un essai : tout passer en String (sans connotation de quelqu'ordre que ce soit )
Utilise

Dico(Trim(CStr(Plg2(a, 1)))) = Plg2(a, 1)

et

If Not Dico.Exists(Trim(CStr((Plg(b, 2))))) Then Dico2(Plg(b, 2)) = "Absent de la liste"

Cordialement

 

[Fo_rum]

Re : VBA qu'est qui cloche dans mon code

Bonjour,

après avoir changé le format des cellules concernées (et si j'ai compris cette fois la problématique) vois si le fichier joint peut inspirer.

 

[Arpette]

Re : VBA qu'est qui cloche dans mon code

Bonsoir, Fo_rum, Efgé, Gilbert, Denis merci à vous tous, les solutions d'Efgé et Fo_rum fonctionnent à merveille. Je n'ai plus qu'à choisir.
Encore un grand merci à vous.
@+