Discussion :

[jmclej]

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 :

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 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,

[parmi]

Bonjour,

Que vaut mSheetName ?

[jmclej]

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

[parmi]

Alors, ça devrait fonctionner, oui ?

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

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 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

[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 :

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

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

ou bien

Code :

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

Sheets("Sheet1").Shapes("Button_Dev_Mode").AlternativeText

[parmi]

Qu'est-ce qui ne fonctionne pas ?
Toujours un message d'erreur ?

[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 :

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

1
2
3
Dim mSheetName As String
mSheetName = "Sheet1"
Sheets(mSheetName).Select

et mSheetName partout où j'ai mis ici "Sheet1").

[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 :

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

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