
Bonsoir à tous,
Bonsoir madflo,
Outrepassons le thème dans lequel la question a été posée.
En passant par des tableaux, on peut obtenir:
' Table 1
' A 50 K
' B 60 L
' C 100 S
' D 30 S
' Table 2
' K 50
' L 20
' S 30
' V 30
' Z 21
Dim Table1(3)
Table1(0) = Array("A",50,"K")
Table1(1) = Array("B",60,"L")
Table1(2) = Array("C",100,"S")
Table1(3) = Array("D",30,"S")
Dim Table2(4)
Table2(0) = Array("K",50)
Table2(1) = Array("L",20)
Table2(2) = Array("S",30)
Table2(3) = Array("V",30)
Table2(4) = Array("Z",21)
For i=0 To UBound(Table1)
MsgBox Table1(i)(0) &vbTab& Table1(i)(1) &vbTab& Table1(i)(2)
Total_Table1 = Total_Table1 + Table1(i)(1)
If i=UBound(Table1) Then MsgBox Total_Table1,,"Total_Table1"
Next
For j=0 To UBound(Table2)
MsgBox Table2(j)(0) &vbTab& Table2(j)(1)
NextMa contribution s'arrête là !!!
En utilisant filter, dictionary ou autres algos, ce topic devrait évoluer favorablement.
jean-marc