Executer une formule une seule foi

[moser22]

Bonjour,

J'aimerais créer un "instantané" à un moment donnée d'une valeur dans une cellule.

Je m'explique:

Si aujourd'hui>A1 j'aimerais obtenir la valeur de B1 dans C1 et qu'elle ne varie plus même si B1 devait changer.

J'aimerais une solution sans macro et si possible sans références circulaires, avez vous une idée?


Je calle.

Merci beaucoup pour voter aide.

 

[camarchepas]

Re : Executer une formule une seule foi

Bonjour ,


Comme ceci peut être :

=SI(ET(AUJOURDHUI()>A1;C1<>"");B1;C1)

 

[moser22]

Re : Executer une formule une seule foi

Merci, mais non ça ne fonctionne pas correctement.

 

[DoubleZero]

Re : Executer une formule une seule foi

Bonjour et bienvenue sur XLD, moser22, bonjour, camarchepas 😀, le Forum,

En attendant une autre proposition par formule, ci-après un code à placer dans le module de l'onglet concerné.

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Address = "$A$1" Then
        If Date > [a1] Then c.Offset(, 2).Value = c.Offset(, 1).Value
    End If
End Sub

A bientôt 🙂

 

[moser22]

Re : Executer une formule une seule foi

Merci, mais c'est pas non plus ça. Dans ce cas C1 prend la valeur uniquement si on change la date de A1. Il faut également qu'elle prenne la valeur si j'ouvre le fichier et que la date en A1 est dépassé, même si je la change pas.

 

[DoubleZero]

Re : Executer une formule une seule foi

Re-bonjour,

Autre suggestion avec ces deux codes, placés dans le module de l'onglet concerné :

Option Explicit
Private Sub Worksheet_Activate()
    If Date > [a1] Then [a1].Offset(, 2).Value = [a1].Offset(, 1).Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal c As Range)
    If Date > [a1] Then [a1].Offset(, 2).Value = [a1].Offset(, 1).Value
End Sub

A bientôt 🙂

 

[Modeste geedee]

Re : Executer une formule une seule foi

Bonsour®
🙄
une solution sans formule, sans macro en 3 secondes ...😎
sélectionner la cellule voulue
positionner le curseur dans la barre de formule
appuyer une fois sur la touche F9

et puis c'est tout ...
😱

 

[moser22]

Re : Executer une formule une seule foi

Voici, un exemple, que j'ai fait avec une macro, de ce que j'aimerais obtenir par formule.

Ce sera peut-être plus clair.

Merci, DoubleZero, je n'ai pas essayé ta macro, elle marche certainement aussi mais j'aimerais une solution par formule.

Merci, Geedee, mais je ne veux pas avoir a intervenir étant donnée que plusieurs personne utilise ce fichier.

Damien