Discussion :

[RaoulPierre]

Bonjour,

J'ai un bouton sur la feuille A qui génère (entre autres) un autre bouton sur la feuille B.

Dans le code de la feuille A, je mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Creer_Boutons()
 Dim cell As Range
 Dim BoutonCourant As Shape
 For Each cell In Selection
    With cell
        ' mettre en commentaire selon besoins
        Set BoutonCourant = ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, 10, 10)
         With BoutonCourant
             .OLEFormat.Object.Caption = "+"
            .OnAction = "test" 
            .Select
        End With
    End With 
    DoEvents
 Next
 End Sub

Dans le code de la feuille B, je mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
 
 End Sub

Mais quand je clique sur le boton, il m'affiche

Impossible d'exécuter la macro test. Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées.

Or les macros sont bien actives! Quelqu'un a-t-il une idée?

Merci

RaoulPierre

[nchal]

Salut,

Il suffit tout simplement d'indiquer où se trouve la macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Creer_Boutons()
Dim cell As Range
Dim BoutonCourant As Shape
For Each cell In Selection
    With cell
        ' mettre en commentaire selon besoins
        Set BoutonCourant = ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, 10, 10)
         With BoutonCourant
             .OLEFormat.Object.Caption = "+"
            .OnAction = "Feuil2.test" 
            .Select
        End With
    End With 
    DoEvents
 Next
 End Sub

[RaoulPierre]

Merci cela fonctionne avec Feuil2 !

Est-ce possible de mettre le nom que j'ai donné ma feuille?

Merci

[nchal]

Je ne me suis jamais posé la question, donc j'ai fait ce que tu aurais du faire tester

Et apparement non, il faut bien mettre le CodeName de la feuille et pas son Name.

Sur ce ravi d'avoir pu t'aider.