Extraction caractères dans Shapes

vmax67 · 30 Janvier 2019

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 · 30 Janvier 2019

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

vmax67 · 30 Janvier 2019

Bonsoir,

merci beaucoup, c'est parfait

Extraction caractères dans Shapes

vmax67

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

vmax67

XLDnaute Occasionnel

Discussions similaires