Faire apparaitre une formule

[cora]

Bonjour à tous,

Est-il possible d’insérer automatiquement une formule dans une cellule.
Je m’explique :
En A1 la formule est =aujourdhui()
En A2 la cellule est vide
Si je saisi une information sur la cellule A2 je souhaiterais que ma cellule A1 supprime la formule =aujourdhui() et fige la date du jour. A l’inverse, si je supprime la saisie de la cellule A2 la cellule A1 m’affiche à nouveau la formule =aujourdhui()
Merci de votre aide

 

[JNP]

Re : Faire apparaitre une formule

Bonjour Cora 🙂,
A mettre dans le code de ta feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If Target = "" Then Range("A1") = "=today()" Else Range("A1") = Now()
End Sub

Bonne journée 😎

 

[Brigitte]

Re : Faire apparaitre une formule

Bonjour tout le monde,


Ah les maquereaux, tjs les maquereaux... c'est la saison, remarque !

A mon avis, on doit pouvoir le faire en formule avec une condition quelconque et une combinaison avec texte ou autre... On est en train de cogiter... on revient !!

Bisous Jean Noel...

 

[cora]

Re : Faire apparaitre une formule

Merci pour ton aide JNP,
En fait les cellules concernées sont:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$12" Then Exit Sub
If Target = "" Then Range("H12") = "=today()" Else Range("H12") = Now()
End Sub

Mais je souhaite que la formule s'affiche de H12 à H200
EX EN I150 je saisi une donnée en H150 ta formule apparait..
Est-ce seulement possible?

 

[JNP]

Re : Faire apparaitre une formule

Re 🙂,
Bisous Brigitte 😉. Les maquereaux, oui, mais au vin blanc 😛... Bon courage par formule, je ne dit plus que c'est pas possible (on m'a souvent prouvé le contraire 😱), mais sur ce coup là, j'ai des doutes 😀...
Cora, c'eut été sympa de donner tes exigences dès le début, ça évite de tout refaire 🙄...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect(Target, Range("I12:I200")) Is Nothing Then Exit Sub
If Target = "" Then Target.Offset(0, -1) = "=today()" Else Target.Offset(0, -1) = Now()
End Sub

devrait fonctionner 😉.
Bonne journée 😎

 

[cora]

Re : Faire apparaitre une formule

Vous êtes trop fort
ça fonctionne super bien.
Je pensais aussi avoir plutôt recours à une formule mais l'important c'est que ça marche
Je promet d'être plus explicite la prochaine fois
Merci encore

 

[Brigitte]

Re : Faire apparaitre une formule

Re,

On sèche en effet. Tu pourrais rentrer ta date en dur sinon... avec une apostrophe devant... mais bon pas très pratique.

Une piste ici :

https://www.excel-downloads.com/threads/figer-une-date-dans-formule.125414/

 

[mécano41]

Re : Faire apparaitre une formule

Bonjour,

si j'ai compris...lorsque tu saisis quelque chose différent de "rien" en A2 uniquement, tu veux effacer la formule aujourdhui() placée en A1 et mettre à sa place la date qui était inscrite, mais "en dur". Avec ceci, ça fonctionne.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
    If Target <> "" Then
        Range("A1").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("A1").Select
    End If
End Sub

Cordialement