Cette clé est déjà associée a un élément de cette collection

Bonjour,

Je cherche a effectuer une liste de paire d’éléments et a les mettre dans un dictionnaire. Cependant au moment d'enregistrer les paires dans le dictionnaire, le message du titre s’affiche.

Ayant fait le meme dictionnaire sur une Macro précedente j'ai du mal a comprendre qui foire

Sub TrouverLigneCorrespondante()
    Dim feuilleForm As Worksheet
    Dim feuilleBD As Worksheet
    Dim Critere1 As Variant
    Dim Critere2 As Variant
    Dim plageRecherche As Range
    Dim cellule As Range
    Dim ligneTrouvee As Range
    Dim derniereligne As Long
    Dim dictionnaire As Object
    Dim feuille As Worksheet
    Dim i As Long
    Dim CellD As Variant
    Dim CellG As Variant

    Set feuilleForm = ThisWorkbook.Sheets("Form")
    Set feuilleBD = ThisWorkbook.Sheets("BD")

    'Ajouter une boucler pour passer mes criteres en variables et calculer pour toute les lignes

    Set dictionnaire = CreateObject("Scripting.Dictionary")
    Set feuilleBD = ThisWorkbook.Sheets("BD")
    derniereligne = feuilleBD.Cells(feuilleBD.Rows.Count, "D").End(xlUp).Row
    For i = 1 To derniereligne

        CellD = feuilleBD.Cells(i, "D").Value
        CellG = feuilleBD.Cells(i, "G").Value
'LE PROBLEME SE FAIT SUR LA LIGNE EN DESSOUS
        dictionnaire.Add CellD, CellG

    Next i

    For Each Clé In dictionnaire.Keys

    Critere1 = CellD
    Critere2 = CellG

merci d'avance a ceux qui prendront le temps de m'aider

je me suis rendus compte que le probleme est que le dictionnaire refuse d'avoir plusieurs fois la meme valeur CellD, meme si la valeur CellG differe

Bonjour Loumatrix,

Je suis dans mon jour de bonté
Si vous ne commencez pas vos post par la formule de politesse, la prochaine fois ce sera poubelle...

Merci d'y faire attention

Sinon la solution

dictionnaire.Add CellD & CellG, CellD & CellG 

A+

Merci !

et pour que je sache pour les prochaines fois; j'aurais du ecrire "boujour a tous" a la place de "bonjour" ? j'ai l'impression d'avoir été polis

Re,

vous n'avez pas écrit "Bonjour", c'est moi qui l'est mis d'où la couleur orange

ah autant pour moi désolé !