Bouton qui enclanche plusieurs trucs

salut

j'ai un bouton auquel j'ai attribué une macro qui ouvre un fichier X mais je veux que cette action permette de créer un autre bouton sur le ficher X et le bouton créé recevra une macro

est ce possible ?

merci

Oui

    workbooks("X").sheets("X").activate
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 100).Select
    Selection.OnAction = "Macro1"

bonjour

et si je veux remplir la forme avec un texte comment je fais ?

merci

Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Toto" 'ICI tu mets ton texte
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 4). _
        ParagraphFormat
        .FirstLineIndent = 0
        .Alignment = msoAlignCenter
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 4).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 11
        .Name = "+mn-lt"
    End With

merci ça fonctionne

mais une toute petite question :

voila c un peu complexe la macro ouvre un fichier puis elle demande un autre fichier pour en copier 2 colonnes mais je veux qu'elle copie les données dans le classeur déjà ouvert au début sans y indiquer le nom :/

Rien compris si tu demandes d'ouvrir un autre classeur, avec une fenêtre de dialogue tu l'affectes à une variable

set x ....

Du coup tu peux faire x.sheets("Lenomdusheet").range(...


Rien compris si tu demandes d'ouvrir un autre classeur, avec une fenêtre de dialogue tu l'affectes à une variable

set x ....

Du coup tu peux faire x.sheets("Lenomdusheet").range(...


Rien compris si tu demandes d'ouvrir un autre classeur, avec une fenêtre de dialogue tu l'affectes à une variable

set x ....

Du coup tu peux faire x.sheets("Lenomdusheet").range(...

Rechercher des sujets similaires à "bouton qui enclanche trucs"