Executer une formule une seule foi

camarchepas

XLDnaute Barbatruc

• 20 Janvier 2015

• #2

Re : Executer une formule une seule foi

Bonjour ,


Comme ceci peut être :

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

 

Vote positif 0 Vote négatif

M

moser22

Guest

• 20 Janvier 2015

• #3

Re : Executer une formule une seule foi

Merci, mais non ça ne fonctionne pas correctement.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 20 Janvier 2015

• #4

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é.

Code:

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 🙂

 

Vote positif 0 Vote négatif

M

moser22

Guest

• 20 Janvier 2015

• #5

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.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 20 Janvier 2015

• #6

Re : Executer une formule une seule foi

Re-bonjour,

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

Code:

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 🙂

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 20 Janvier 2015

• #7

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 ...
😱

 

Vote positif 0 Vote négatif

M

moser22

Guest

• 20 Janvier 2015

• #8

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

 

Pièces jointes

• exemple.xlsm

  15.3 KB · Affichages: 42
• exemple.xlsm

  15.3 KB · Affichages: 59
• exemple.xlsm

  15.3 KB · Affichages: 47

Vote positif 0 Vote négatif