Public Function matrice(myname As Variant) As Variant
Dim ma_matrice(1 To 4, 1 To 3) As Variant
' Liste des objets en premier
' indice 1, nom
' indice 2, catégorie
' indice 3, valeur
ma_matrice(1, 1) = "a"
ma_matrice(2, 1) = "b"
ma_matrice(3, 1) = "$"
ma_matrice(4, 1) = "3"
ma_matrice(1, 2) = 1
ma_matrice(2, 2) = 1
ma_matrice(3, 2) = 3
ma_matrice(4, 2) = 2
ma_matrice(1, 3) = 6
ma_matrice(2, 3) = 7
ma_matrice(3, 3) = 34
ma_matrice(4, 3) = 20
For i = 1 To 4
If myname = ma_matrice(i, 1) Then matrice = ma_matrice(i, 3)
Next i
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, Target.Column + 1) = matrice(Target.Value)
End Sub