Microsoft 365 "Récupérer" le résultat d'une fonction VBA avant le changement

[tbft]

Bonjour à tous

J'ai du mal à formuler ma demande.
Le plus est de regarder le fichier joint et plus particulièrement la fonction test_lecture_ancien_resultat().
Elle est utilisé à la cellule H11 et alimenter par la cellule G11.
Ce que je cherche, est quand début de fonction, je puisse récupérer les valeurs (résultats) de l'ancien calcul.

J'ai fait des essais dont le résultat est ... catastrophique... comme le résultat des recherches sur le NET

Pouvez-vous m'aider, s'il vous plait?

D'avance merci.

 

[vgendron]

Bonjour

Je ne comprend pas le besoin..

récupérer l'ancienne valeur?? bah. c'est la valeur en G11 qui permet d'alimenter ta fonction.??

 

[tbft]

Bonjour
Merci pour le retour
Actuellement la fonction est ridiculement simple et bidon.
Mais, à terme elle sera complétement différente.
Et pour la faire, j'ai besoin de récupérer le résultat de l'ancien calcul....

 

[sylvanu]

Bonjour Tbft, Vgendron,
Il est possible de "piquer" les valeurs lors d'un clic sur G11.
Pour cela, voir PJ, on déclare des valeurs public dans un module :

Public OldValueH11, OldValueI11, OldValueJ11, OldValueK11

Dans la feuille concernée, on mémorise les valeurs sur clic G11 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [G11]) Is Nothing Then
        OldValueH11 = [H11]
        OldValueI11 = [I11]
        OldValueJ11 = [J11]
        OldValueK11 = [K11]
    End If
Fin:
End Sub

On pourra ré utiliser ces valeurs ensuite, voir par ex module PourTest :

Sub PourTest()
    MsgBox "Nouvelles et anciennes valeurs de  :" & Chr(10) & _
    "H11 = " & [H11] & " - ancienne " & OldValueH11 & Chr(10) & _
    "I11 = " & [I11] & " - ancienne " & OldValueI11 & Chr(10) & _
    "J11 = " & [J11] & " - ancienne " & OldValueJ11 & Chr(10) & _
    "K11 = " & [K11] & " - ancienne " & OldValueK11
End Sub

 

[tbft]

Bonjour sylvanu.

Je n'avais pas pensé à cette méthode. Je la garde sous le coude car elle est bien mais pour un autre projet.

 

[Dranreb]

Bonjour.
On pourrait aussi, éventuellement, dans la Function, stocker dans une collection VBA les nouvelles valeurs, et dans une Sub Worksheet_Calculate les y retrouver et les ranger dans un tableau connu sous un certain nom, d'où ou pourra les extraire ultérieurement …

 

[tbft]

Par contre, j'ai un peu avancé :

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

Le soucis est que je me retrouve avec un référence circulaire.....
je pense que c'est du à la ligne old_res=....

 

[tbft]

Bonjour à tous

Personne???

 

[sylvanu]

Bonjour,
Et en quoi la réponse #4 ne vous va pas puisqu'elle remplit vos exigences ?

 

[Dranreb]

Et pour la faire, j'ai besoin de récupérer le résultat de l'ancien calcul....

Si c'est juste ça le besoin, et ce dans une seule cellule, pourquoi ne notez vous pas tout simplement la valeur renvoyée dans une variable Public ?

 

[sylvanu]

Si c'est juste ça le besoin, et ce dans une seule cellule, pourquoi ne notez vous pas tout simplement la valeur renvoyée dans une variable Public ?

C'est exactement ce que fait la macro #4.
Mais à la question "Pourquoi n'est ce pas satisfaisant" pas de réponse pour l'instant.

 

[Dranreb]

Vous devriez nous exposer ce que votre vraie fonction devra calculer en supposant que la valeur de la fonction est disponible dans une expression aussi bien en lecture qu'en écriture et qui s'appellera 'Enreg' par exemple.

Function Test(ByVal X As Double) As Double
   Test = Enreg
   Test = X + 1
   Enreg = Test
   End Function

L'endroit et la façon dont la valeur de Enreg sera conservée dépendra de 2 choses :
1) — La pérennité: selon qu'elle devra ou non être conservée entre 2 réinitialisations du projet VBA.
2) — La multiplicité: selon que la fonction sera invoquée dans une seule cellule de tout le classeur où dans de nombreuse cellules de nombreuses feuilles (mais dans une seule colonne, enfin donnez tous les détails de sa multiplicité souhaitée).

 

[patricktoulon]

Bonjour à tous
il y a une astuce bien connu qui consiste a enregistrer dans un commentaire a chaque changement
parti de là formule et valeur peuvent être mémorisées a la suite dans le texte du commentaire
tout les 10 ou x changement ne garder que les dix derniers par exemple pour un eventuel UNDO perso
bref la solution est simple

 

[vgendron]

Bonjour à tous
perso, je n'ai toujours pas compris le besoin..

Récupérer" le résultat d'une fonction VBA avant le changement​

question sous jacente==> Pourquoi avoir besoin du résultat AVANT de le mettre dans la cellule?
ou ...qu'est ce qui fait que ce résultat ne doit pas etre inscrit
==> ce qui impliquerait que finalement, la fonction.. est incomplète.. manque une condition..

 

[Dranreb]

Moi non plus, c'est pourquoi j'aimerais bien savoir ce que @tbft voudrait bien pouvoir en faire très exactement.