mise à jour d'une macro

[cheriyo]

Bonjour j'ai (grace à l'un de vos collègue) un tableau permettant de définir un indice de danger (collonne D) Cette incrementation se fait a l'aide d'une table de correspondance (cf fichier excel ci joint ) Cependant si cette table change (mise à jour ) le tableau ne s'actualise pas. Comment faire pour qu'il s'actualise.
Merci d'avance

 

[tototiti2008]

Re : mise à jour d'une macro

Bonjour,

en ajoutant la ligne en rouge au code :

Function risq_max(cellule As String)
[COLOR=red]Application.Volatile[/COLOR]
x = Split(cellule, "-")
tablo = Range("B10:C17")
rs = 0
For n = LBound(x) To UBound(x)
  For m = LBound(tablo, 1) To UBound(tablo, 1)
    If x(n) = tablo(m, 1) And tablo(m, 2) > rs Then rs = tablo(m, 2)
  Next m
Next n
risq_max = rs
End Function