Impossible d'exécuter la macro

Version imprimable

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:

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:

1 2 3 Sub test() End Sub
Mais quand je clique sur le boton, il m'affiche

Citation:

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

Salut,

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

Code:

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

01/05/2012, 15h25
RaoulPierre

Merci cela fonctionne avec Feuil2 !

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

Merci
01/05/2012, 15h32
nchal

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

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

Sur ce ravi d'avoir pu t'aider.:D:D