Target adress non compris
Bonjour,
J'ai ce bout de code où je comprend clairement pas tout, si quelqu'un comprend , il pourrait m'expliquer?
Merci, ca fait un moment que je galere dessus et j'aimerai bien y voir plus clair..
J'ai ce bout de code où je comprend clairement pas tout, si quelqu'un comprend , il pourrait m'expliquer?
If _Not Application.Intersect(Target, Range("DOS_DeclanchBar_P1,DOS_DeclanchBar_P2,DOS_DeclanchBar_P3")) Is Nothing then
Reprise = Target.Cells(1).Address
AdresseTarget = Target.Address
FeuilleTarget = Target.Worksheet.Name
LigneTarget = Target.Row
NomTarget = Target.Cells(1).Name.Name
ValeurTarget = Range(NomTarget).Cells(1).Value
PrepaRefpret = Right(NomTarget, 1)
If IsNumeric(PrepaRefpret) = False Then
RefPretTarget = 0
Else
RefPretTarget = CDbl(PrepaRefpret)
End If
RefPret = RefPretTarget
Merci, ca fait un moment que je galere dessus et j'aimerai bien y voir plus clair..
