Bonjour à tous,
J'ai créé dans une feuille excel un bouton, qui permet d'afficher des colonnes (qui sont masquées par défaut) quand on clique dessus. Le texte du bouton change alors automatiquement (au lieu de contenir le message "afficher les ...", le bouton contient désormais le message "masquer les...").
Si on clique à nouveau sur le bouton, les colonnes sont masquées, et le message redevient "afficher les...".
Cette macro fonctionne sur mon PC, mais sur celui d'un collègue, cela affiche un code d'erreur 1004 ou 400 (selon qu'il fait tourner la macro en une fois ou pas-à-pas), et il semblerait que l'erreur soit liée à l'action consistant à modifier le texte du bouton.
Sauriez-vous m'aider ?
Le code que j'utilise est le suivant :
Sub masquerafficher()
ActiveSheet.Shapes("Button 3").Select
If Selection.Characters.Text = "Afficher les rapports stoechiométriques" Then
Columns("F:AJ").Select
Selection.EntireColumn.Hidden = False
ActiveSheet.Shapes("Button 3").Select
Selection.Characters.Text = "Masquer les rapports stoechiométriques"
GoTo End1
End If
ActiveSheet.Shapes("Button 3").Select
If Selection.Characters.Text = "Masquer les rapports stoechiométriques" Then
Columns("G:AI").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Shapes("Button 3").Select
Selection.Characters.Text = "Afficher les rapports stoechiométriques"
GoTo End1
End If
End1:
End Sub
J'ai créé dans une feuille excel un bouton, qui permet d'afficher des colonnes (qui sont masquées par défaut) quand on clique dessus. Le texte du bouton change alors automatiquement (au lieu de contenir le message "afficher les ...", le bouton contient désormais le message "masquer les...").
Si on clique à nouveau sur le bouton, les colonnes sont masquées, et le message redevient "afficher les...".
Cette macro fonctionne sur mon PC, mais sur celui d'un collègue, cela affiche un code d'erreur 1004 ou 400 (selon qu'il fait tourner la macro en une fois ou pas-à-pas), et il semblerait que l'erreur soit liée à l'action consistant à modifier le texte du bouton.
Sauriez-vous m'aider ?
Le code que j'utilise est le suivant :
Sub masquerafficher()
ActiveSheet.Shapes("Button 3").Select
If Selection.Characters.Text = "Afficher les rapports stoechiométriques" Then
Columns("F:AJ").Select
Selection.EntireColumn.Hidden = False
ActiveSheet.Shapes("Button 3").Select
Selection.Characters.Text = "Masquer les rapports stoechiométriques"
GoTo End1
End If
ActiveSheet.Shapes("Button 3").Select
If Selection.Characters.Text = "Masquer les rapports stoechiométriques" Then
Columns("G:AI").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Shapes("Button 3").Select
Selection.Characters.Text = "Afficher les rapports stoechiométriques"
GoTo End1
End If
End1:
End Sub