Extraction caractères dans Shapes

[vmax67]

Bonsoir,
Je cherche macro pour extraire les 7 derniers caractères d'une Forme.
J'ai un code qui fait l'extraction complète.
Range("B2").Value = ActiveSheet.Shapes("NomForme").TextFrame.Characters.Text

Comment modifier celui-ci pour extraire uniquement les 7 derniers caractère.

Vmax

 

[vgendron]

bonjour
avec la fonction "RIGHT"
Range("B2").Value = right(ActiveSheet.Shapes("NomForme").TextFrame.Characters.Text,7)

 

[vmax67]

Bonsoir,

merci beaucoup, c'est parfait