Bonjour à tous
grâce a l'aide de Soan et patricktoulon, j'utilise le code VBA
Pour masquer des colonnes via un bouton qui est une forme.
maintenant j'essai de changer la couleur de ce bouton suivant le texte que contient cette forme
je suis arrivé a ce bon de code
mais il ne fonctionne pas.
Pouvez vous m'aider.
merci
grâce a l'aide de Soan et patricktoulon, j'utilise le code VBA
VB:
Sub hidetesthaut()
ActiveSheet.Unprotect
Dim f As Boolean: f = Columns("b").Hidden: Columns("b:h").Hidden = Not f
ActiveSheet.Shapes("Rectangle 7").TextFrame.Characters.Text = _
IIf(f, "Masqu", "Affich") & "er test haut"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End SubPour masquer des colonnes via un bouton qui est une forme.
maintenant j'essai de changer la couleur de ce bouton suivant le texte que contient cette forme
je suis arrivé a ce bon de code
Code:
Private Sub Worksheet_Change()
If ActiveSheet.Shapes("Rectangle 7").TextFrame.Characters.Text = "Masquer test haut" Then
ActiveSheet.Shapes("Rectangle 7").Fill.ForeColor.RGB = Red
ElseIf ActiveSheet.Shapes("Rectangle 7").TextFrame.Characters.Text = "Afficher test haut" Then
ActiveSheet.Shapes("Rectangle 7").Fill.ForeColor.RGB = Green
End If
End Submais il ne fonctionne pas.
Pouvez vous m'aider.
merci