Macro insérer forme contenant une macro

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

Bonjour Le Nen Samuel,

ta question est marquée comme étant résolu,

si celle-ci l'est vraiment, peux-tu partager la solution avec nous ?

sinon, fait nous savoir si le problème est toujours d'actualité

Désolé fausse manip ! Mon problème est loin d' être résolu.

Désolé

re,

à tester,

Sub inserer_forme()
Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 40, 80, 140, 50)
With shp
    If Range("A1").Value <> "" Then shp.Name = Range("A1").Value
    .TextFrame.Characters.Text = Range("A2").Value
    .TextFrame2.TextRange.Font.Size = 14
    .TextFrame2.TextRange.Font.NameComplexScript = "Arial"
    .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
    .TextFrame2.VerticalAnchor = msoAnchorMiddle
    .OnAction = "Macro1"
End With
End Sub

Sub Macro1()
MsgBox "ok"
End Sub

Merci beaucoup ! Je suis en vacances cette semaine mais je teste ça dés mon retour.

Et encore merci de vous êtes penché sur mon problème que je pensais impossible à résoudre.