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.
![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
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.