Discussion :

[arnaud.i]

Bonjour,

j'ai créé un dictionnaire dont les items sont la concaténation de 3 dictionnaires dont la séparation est ";"
Je souhaiterais :

1. Calculer un prix final dépendant de 2 champs qui sont dans 2 dictionnaires différents
2. Afficher le résultat des champs du dictionnaire concaténé incluant le prix final dans un tableau Excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Dico1 As Object
    Set Dico1 = CreateObject("Scripting.Dictionary")
    Dim Dico2 As Object
    Set Dico2 = CreateObject("Scripting.Dictionary")
    Dim Dico3 As Object
    Set Dico3 = CreateObject("Scripting.Dictionary")
    Dim DicoVF As Object
    Set DicoVF = CreateObject("Scripting.Dictionary")
 
For Each c In Dico2.Keys
DicoVF.Add key:=c, item:=(Dico1(c) & ";" & Dico2(c) & ";" & Dico3(c))
Next c

Dico1 contient 3 éléments séparés par des ";" qui correspond respectivement à : ID; Quantité; Sens
Dico2 contient 1 élément qui correspond à : Catégorie
Dico3 contient 1 élément qui correspond à : Prix Unitaire

Je souhaiterais pouvoir calculer pour chaque item le Prix Final c'est à dire Quantité du Dico1 * Prix Unitaire
Puis afficher le résulat dans excel : Colonne A = ID, Colonne B = Quantité, Colonne C = Sens, Colonne D = Catégorie, Colonne E = Prix Unitaire, Colonne F = Prix Final

Merci d'avance

[Thumb down]

Bonjour si ça te donne des idées!

Code Test :

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

1
2
3
4
5
6
7
8
9
Dim Catégories As Object
Sub test()
Set Catégories = CreateObject("Scripting.Dictionary")
Catégories.Add "Catégorie A", New Catégorie
Catégories.Add "Catégorie B", New Catégorie
Catégories.Add "Catégorie C", New Catégorie
codeBarre = "0123456789A"
Catégories("Catégorie A").Add codeBarre, 2, "test"
End Sub

Code Classe Catégorie :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Articles As Object
 
Private Sub Class_Initialize()
Set Articles = CreateObject("Scripting.Dictionary")
End Sub
 
 
Private Sub Class_Terminate()
Set Articles = Nothing
End Sub
Public Sub Add(ID As String, Quantité As Integer, Sens As String)
  If Not Articles.exists(ID) Then
    Articles.Add ID, New Article
    Articles(ID).ID = ID: Articles(ID).Quantité = Quantité: Articles(ID).Sens = Sens
  End If
End Sub

Code Classe Article :

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

Public ID As String, Quantité As Integer, Sens As String