Target adress non compris

simonsimon1 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

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..

1 réponse

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, as-tu une question précise?
0