Microsoft 365 Copier coller une cellule avant qu'elle ne soit modifiée par Sub Worksheet_Change(ByVal Target As Range)

[pat66]

Bonjour le forum,

avec la procédure Sub Worksheet_Change(ByVal Target As Range), existe t'il un moyen de copier une valeur avant qu'elle ne soit modifiée par Sub Worksheet_Change(ByVal Target As Range) et coller cette valeur dans une autre cellule

merci

 

[Dranreb]

Je vous donne encore ça, et je m'arrête là.

Option Explicit
Private SvgVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address <> "$BV$28" Then Exit Sub
   If IsEmpty(Target.Value) Then SvgVal = Me.[AN33].Value Else SvgVal = Null
   End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$BV$28" Or IsEmpty(Target.Value) Or IsNull(SvgVal) Then Exit Sub
   Me.[AO25:AO27].Value = SvgVal
   End Sub

 

[pat66]

re,

c'est parfait !!
un grand merci pour votre aide et votre patience, vous avez solutionné mon problème
désolé de n'avoir pas été plus précis dans mes explications

bonne journée

 

[pat66]

re,

désolé de vous solliciter encore une fois et je vous promets c'est la dernière fois pour pour ce problème, mais je viens de m'apercevoir que AN33 ne sera pas toujours la cellule qui doit être copiée, pourriez vous adapter votre solution avec rechercheV, j'ai bien essayé de remplacer :
If IsEmpty(Target.Value) Then SvgVal = Me.[AN33].Value Else SvgVal = Null
par :
If IsEmpty(Target.Value) Then SvgVal = Me.[FormulaLocal = "=RECHERCHEV(AG$23;D$25:AN$49;37;0)"] Else SvgVal = Null

merci d'avance

Option Explicit 
Private SvgVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address <> "$BV$28" Then Exit Sub
   If IsEmpty(Target.Value) Then SvgVal = Me.[FormulaLocal = "=RECHERCHEV(AG$23;D$25:AN$49;37;0)"] Else SvgVal = Null
   End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$BV$28" Or IsEmpty(Target.Value) Or IsNull(SvgVal) Then Exit Sub
   Me.[AO25:AO27].Value = SvgVal
   End Sub

 

[Dranreb]

Essayez comme ça si la valeur vous suffit :

Option Explicit
Private SvgVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address <> "$BV$28" Then Exit Sub
   If IsEmpty(Target.Value) Then SvgVal = WorksheetFunction.VLookup(Me.[AG23], _
      Me.[D25:AN49], 37, 0) Else SvgVal = Null
   End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$BV$28" Or IsEmpty(Target.Value) Or IsNull(SvgVal) Then Exit Sub
   Me.[AO25:AO27].Value = SvgVal
   End Sub

 

[pat66]

au top !!, c'est parfait

merci beaucoup Dranreb

cdt