Comment freezer la valeur d'une cellule a un moment donné?

F2T

XLDnaute Occasionnel
Bonjour,

je chercherais a trouver un moyen pour conserver la valeur d'une cellule a un moment donné.

Soit par un copié / coller valeur
Soit par une formule/fonction VBA.

1) Ma solution par un code

Sub WORKSHEET_SELECTIONCHANGE(ByVal Target As Range)

'V confirme action sur la ligne

If Range("BQ:BQ") = "v" Then

RC [-37].Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
RC [-42].Select
ActiveCell.Paste

RC [-35].Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

RC [-36].Select
ActiveCell.Paste

End Sub

2) Solution par une Fonction

Function E(D As Variant, Ope As Variant)

If D = Ope Then

ActiveCell = D
[RC].Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Paste

End If
End Function

Pour la fonction il faudrait qu'elle s'autofreeze par elle meme. Cela est il possible? Donc la fonction disparaitrait de la cellule pour laisser une valeur.

Ces codes sont des ébauches. Si quelqu'un pourrait m'aider a les rendre fonctionnel. Cela me serait d'un grand secours.


:)
 

Discussions similaires

Réponses
2
Affichages
182

Statistiques des forums

Discussions
312 836
Messages
2 092 619
Membres
105 468
dernier inscrit
Leo M