Discussion :

[StarLord77]

Bonjour,

Je me retrouve face à un problème. J'essai d'affecter une autre macro à mon bouton de commande à la fin de ma macro.

Je m'explique :

Au lancement de l'application, le bouton "Commencer" commande la macro Debut.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Debut()
 
    Cells(4, 2).Interior.Color = 65535
 
    ActiveSheet.Shapes.Range(Array("Commencer")).Select
    Selection.Characters.Text = "Suivant"
    Selection.OnAction = "Feuil1.Suite1"
 
End Sub

Lorsque je clique sur le bouton de commande, la case se colorie bien en jaune, mais le nom du bouton ne change pas et la macro affecté à ce bouton non plus. De plus excel me met l'erreur 400.
J'aimerais que lorsque la case soit rempli en jaune, mon bouton change de nom et affecte la macro "Suite1" à ce bouton.

J'espère avoir été assez clair.

Merci de votre aide.
Vincent

[Invité]

Bonjour,

Pour changer le nom d'un objet Shape, il vous faut déclarer une variable de type Shape et utiliser sa propriété Name. Par ailleurs, votre macro Suite1 doit être placée dans un module standard et pas dans un module d'onglet. Le code ci-dessous fonctionne.

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
18
19
20
21
22
 
Sub Debut()
 
Dim ShapeEncours As Shape
 
    With ActiveSheet
         .Cells(4, 2).Interior.Color = 65535
         For Each ShapeEncours In .Shapes
             If ShapeEncours.Name = "Commencer" Then
                With ShapeEncours
                     .Name = "Suivant"
                     .OnAction = "Suite1"
                     .Select
                     With Selection
                            .Characters.Text = "Suivant"
                     End With
                End With
             End If
         Next ShapeEncours
    End With
 
End Sub

Cordialement.

[antonysansh]

Bonjour à vous deux

Pour récupérer le Shapecorrespondant au bouton cliqué, pas besoin de parcourir tous les Shapesde la feuille active, tu peux utiliser Application.CallerExemple :

Code :

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

1
2
3
4
5
6
Sub test()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(Application.Caller)
 
    MsgBox shp.Name
End Sub

Ce code renvoie le nom du bouton sur lequel tu as cliqué.
Le code d' Eric pourait donc s'ecrire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Debut()
    ActiveSheet.Cells(4, 2).Interior.Color = 65535
 
    Dim ShapeEncours As Shape: Set ShapeEncours = ActiveSheet.Shapes(Application.Caller)
        With ShapeEncours
             .Name = "Suivant"
             .OnAction = "Suite1"
             .Select
             With Selection
                    .Characters.Text = "Suivant"
             End With
        End With
End Sub

Ce qui peut être mieux si beaucoup de Shapes sur ta feuille.