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 :
mais j'arrive pas à manipuler les clé générées... Je m'explique:
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
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 :
Merci d'avance si quelqu'un peut me donner un conseil!
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")![]()
Partager