Public Function test_lecture_ancien_resultat(NB As Integer)
Dim res(), i As Integer
Dim tp As Variant
Dim tp2, tp3, old_res
'test de recuperation des anciennes valeurs avant remplacement des nouvelles
'tp = Application.Caller : entrene une boucle donc echec
'tp = Application ' renvoi la chaine "Microsoft Excel"
Set tp = Application ' renvoi l'objet "Microsoft Excel"
'tp2 = tp.Caller.Parent.Name 'renvoir le nom de la page ou se trouve le parametre nb
'tp2 = tp.ActiveCell.Address 'renvoi la cellule active
tp2 = tp.Caller.Address
tp3 = tp.Caller.Parent.Name
old_res = Worksheets(tp3).Range(tp2).Value
'fonction bidon pour remplir les valeurs
ReDim res(NB)
For i = 2 To NB
res(i) = 1 + NB - i
Next i
res(1) = tp3 + " : " + tp2 + "=" + old_res
'renvoi du resultat
test_lecture_ancien_resultat = res
End Function