XL 2013 Message box avec taille shape

[Noopy123]

Bonjour à tous,

J'aimerais connaitre la largeur d'un shape sélectionnée via une message box ou autre. J'aimerais aussi que si plusieurs shapes sont sélectionnées les tailles s'additionnent et me donne la largeur totale des shapes sélectionnées
C'est peut-être un code très facile mais malheureusement je ne le trouve pas

Merci par avance

 

[mapomme]

Bonsoir,

For Each x In Selection.ShapeRange
   larg = larg + x.Width
Next x
MsgBox larg

 

[patricktoulon]

bonjour
tape dans la collection shaperange de la sélection

Sub test()
    For i = 1 To Selection.ShapeRange.Count
        x = x + (Selection.ShapeRange(i).Width)
    Next
    MsgBox x
End Sub

désolé @mapomme on c'est croisé

 

[Noopy123]

Bonjour à tous les deux
Désolé pour mon retour tardif.
Merci beaucoup pour votre réponse, ça marche au top
Par contre si je peux abuser encore de votre gentillesse, est-il possible de faire l'addition des width uniquement sur les shapes nommées "Rect" ?

Bonne journée à vous et merci encore