Discussion :

[maroonx]

Bonjour tous le monde!
J'ai des difficultés avec l'utilisation du dictionnaire pour vba.
En fait mon but est d'appliquer des instructions sur chaque valeur trouvée et pas de les afficher dans une liste.


J'ai essayé avec un Scripting.Dictionary :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
  Set f = Sheets("feuil1")
  Set p = Sheets("feuil2")
  Set mondico = CreateObject("Scripting.Dictionary")
  a = f.Range("A2:A" & f.[A65000].End(xlUp).Row)     ' tableau a(n,1) 
  For i = LBound(a) To UBound(a)
     If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
    If mondico.keys = p.Range("A & i") Then Range("B & i") = p.Range("B & i")
  Next i
    End Sub

mais j'arrive pas à manipuler les clé générées... Je m'explique:
Si la 1ère clé générée (à partir de l'analyse des données) correspond à une valeur qui se trouve une colonne A, alors copier sa valeur associée (qui se trouve dans la colonne B) dans la cellule (i,1) d'une autre feuille.



C'est pourquoi j'ai essayé différents codes comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If mondico.keys = p.Range("A & i") Then Range("B & i") = p.Range("B & i")

Merci d'avance si quelqu'un peut me donner un conseil!