comment récupérer le text d'un button text en VBA?

Version imprimable

Bonjour,
J'ai ajouté un bouton dans une feuille Microsoft Excel 2010. Je l'ai nommé "Button_Dev_Mode". J'ai fait un clique droit sur le boutton pour omdifier le texte et entré "Dev Mode ON", ça marche bien. Maintenant je veux faire quelque chose dans une macro (appelée en cliquant sur le boutton) en fonction du texte. Mais quand j'appelle Toggle_Dev_Mode
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub Toggle_Dev_Mode() Sheets("Sheet1").Select If Sheets("Sheet1").Shapes("Button_Dev_Mode").TextFrame2.TextRange.Characters.Text = "Dev Mode OFF" Then Dev_Mode_Off ElseIf Sheets("Sheet1").Shapes("Button_Dev_Mode").TextFrame2.TextRange.Characters.Text = "Dev Mode ON" Then Dev_Mode_On End If End Sub Sub Dev_Mode_On() Sheets("Sheet1").Shapes("Button_Dev_Mode").TextFrame2.TextRange.Characters.Text = "Dev Mode OFF" End Sub Sub Dev_Mode_Off() Sheets("Sheet1").Shapes("Button_Dev_Mode").TextFrame2.TextRange.Characters.Text = "Dev Mode ON" End Sub
Je suis bloqué car TextRange est "en dehors des limites". Le code d'erreur et le message est :
Erreur d'exécution '-2147024809 (80070057)': La valeur tapée est en dehors des limites
Est-ce qu'il faut que je mette via Excel une valeur par défaut (de manière non programmatique) Sheets(mSheetName).Shapes("Button_Dev_Mode").TextFrame2.TextRange.Characters.Text ? Si oui, comment faire cela?
Merci pour votre aide,

04/08/2015, 16h36
parmi

Bonjour,

Que vaut mSheetName ?
04/08/2015, 16h54
jmclej

Ca vaut "Sheet1" pardon, j'ai modifié le code.

Alors, ça devrait fonctionner, oui ?

Ceci fonctionne bien ici, si la feuille se nomme bien Sheet1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Toggle_Dev_Mode()
    Sheets("Sheet1").Select
    If Sheets("Sheet1").Shapes("Button_Dev_Mode").TextFrame2.TextRange.Characters.Text = "Dev Mode OFF" Then
        Dev_Mode_Off
    ElseIf Sheets("Sheet1").Shapes("Button_Dev_Mode").TextFrame2.TextRange.Characters.Text = "Dev Mode ON" Then
        Dev_Mode_On
    End If
End Sub
 
Sub Dev_Mode_On()
    Sheets("Sheet1").Shapes("Button_Dev_Mode").TextFrame2.TextRange.Characters.Text = "Dev Mode OFF"
End Sub
 
Sub Dev_Mode_Off()
    Sheets("Sheet1").Shapes("Button_Dev_Mode").TextFrame2.TextRange.Characters.Text = "Dev Mode ON"
End Sub

04/08/2015, 17h14
jmclej

Et pourtant ça ne fonctionne pas justement de mon côté. Je cherche à savoir pourquoi. J'ai d'autres feuilles en plus, mais cela ne devrait pas avoir d'impact.

J'ai trouvé que l'on pouvait référencer le texte d'un bouton d'autres manières mais quelles sont donc les différences?

Code:

Worksheets("Sheet1").Buttons("Button_Dev_Mode").Caption

ou bien

Code:

Sheets("Sheet1").Shapes("Button_Dev_Mode").AlternativeText
04/08/2015, 17h39
parmi

Qu'est-ce qui ne fonctionne pas ?
Toujours un message d'erreur ?
04/08/2015, 17h50
jmclej
Oui la même chose. En fait l'erreur sur mSheetName n'était que dans la retranscription de mon problème. Mon code était correct déjà ( en fait j'ai simplifié, dans mon code il y a
Code:

1 2 3 Dim mSheetName As String mSheetName = "Sheet1" Sheets(mSheetName).Select
et mSheetName partout où j'ai mis ici "Sheet1").
04/08/2015, 19h24
parmi
Est-ce bien une Shape ?
Si tu roules ce bout de code, est-ce que le msgbox te retourne le bon nom (attention aux espaces...) ?
Code:

1 2 3 4 5 Dim Shp As Shape For Each Shp In Sheets("Sheet1").Shapes MsgBox Shp.Name Next