Microsoft 365 Mémoriser la valeur d'une cellule qui change sous condition

LAETITII à dit:

Bonjour,

je cherche un script VBA qui me permetra de mémoriser la valeur d'une cellule qui change.

je vous explique : j'ai deux cellules A1 et A2.
L'écriture sur A2 est autorisée si A1 est non-nulle
mais la valeur de la cellule A2 s'éfface si A1 est nulle.
je cherche une formule ou VBA qui me permettra de mémoriser la dernière valeur de A2 après suppresion.

petit exemple:
lorsque A1 = 1, A2 affiche "5"
lorsque A1= ""; A2 s'efface
j'aimerai qu'en remettant la valeur 1 à A1, A2 affiche automatiquement la dernière valeur qu'elle avait c-a-d "5" sans que j'ai à le resaisir moi même.

Merci d'avvance pour votre aide.

Cliquez pour agrandir...

Option Explicit
Dim tmp

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$A$2" Then tmp = [A2]
    If Target(1).Address = "$A$1" Then [A2] = IIf([A1] = 1, tmp, "")
    Application.EnableEvents = True
End Sub

Jacky67 à dit:

Bonjour,
Essaye ceci, à placer dans le module de la feuille en question.

VB:

Option Explicit
Dim tmp

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$A$2" Then tmp = [A2]
    If Target(1).Address = "$A$1" Then [A2] = IIf([A1] = 1, tmp, "")
    Application.EnableEvents = True
End Sub

Cliquez pour agrandir...

LAETITII à dit:

Bonjour,

Merci pour ta réponse.
mais quand je teste le code il ne fonctionne pas de mon côté.

je vais essayer d'être plus explicite :
lorsque A1 = "oui", l'écriture est autorisée sur A2 donc je peux marquer 5
lorsque A1= "non"; l'écriture est bloquée sur A2 et la cellule s'efface automatiquement
j'aimerai qu'en remettant "oui" sur A1, A2 affiche automatiquement la dernière valeur qu'elle avait c-a-d "5" sans que j'ai à la resaisir moi même.

merci d'avance pour ton aide.

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Unprotect
    [A2].Locked = UCase([A1]) = "NON"
    If Target.Address = "$A$2" Then tmp = [A2]
    If Target(1).Address = "$A$1" Then [A2] = IIf(UCase([A1]) = "OUI", tmp, "")
    Protect
    Application.EnableEvents = True
End Sub