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,