Shapes.AddLabel avec une valeur variable composé de chiffre et de lettre
bonjour,
quelqu'un saurait comment faire pour avoir dans un label une valeur composé de lettre et chiffre avec des chiffres variables?
le code suivant explique ce que je veux faire, mais il est faux
merci d'avance
cordialement
Sub label()
A = 20
B = 25
Set myDocument = ActiveSheet
myDocument.Shapes.AddLabel(msoTextOrientationVertical, _
100, 100, 60, 150) _
.TextFrame.Characters.text = AxB
End Sub
le résultat recherché :
bonjour,
essaie ainsi :
.TextFrame.Characters.text = A & " x " & BBonjour à tous,
Normalement, comme ceci :
Sub label()
A = 20
B = 25
with activesheet
with .Shapes.AddLabel(msoTextOrientationVertical, 100, 100, 60, 150)
.Texteffect.text = A & "x" & B
end with
end with
End SubVous pouvez consulter ces liens afin de voir les propriétés des formes et les propriétés des objets texteffect et textframe d'une forme :
https://docs.microsoft.com/fr-fr/office/vba/api/excel.texteffectformat
https://docs.microsoft.com/fr-fr/office/vba/api/excel.textframe
https://docs.microsoft.com/fr-fr/office/vba/api/excel.shape
Cdlt,
ok merci beaucoup
bonne après midi