Bonjour à tous ...
Pouvez vous me dire quoi rajouter à la macro ci dessus pour que le texte de la forme automatique soit centré et en caractères 14 ?
Je souhaiterais également y ajouter également une macro dans un module ex: macro_test dans module 1.
En gros une macro qui créait des boutons contenant d autre macro
Merci d avance.
'Ajoute une forme automatique (Rectangle) dans la feuille
'Position horizontale - Left = 40
'Position verticale - Top = 80
'Largeur - Width = 140
'Hauteur - Height = 50
Sub inserer_forme () activesheet.Shapes.AddShape(msoShapeRectangle, 40, 80, 140, 50)
.Name = range (''A1").value
.TextFrame.Characters.Text = range ("A2").value
End sub