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

pat66 · 28 Septembre 2023

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 · 29 Septembre 2023

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

VB:

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

Dranreb · 29 Septembre 2023

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

VB:

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 · 29 Septembre 2023

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 · 29 Septembre 2023

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

VB:

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 · 29 Septembre 2023

Essayez comme ça si la valeur vous suffit :

VB:

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 · 30 Septembre 2023

au top !!, c'est parfait

merci beaucoup Dranreb

cdt

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

pat66

XLDnaute Impliqué

Dranreb

Dranreb

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

pat66

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

Discussions similaires