Sub Slider_Change()
If Range("ControleSlider").Value = 0 Then
'Slider en position OFF, bascule vers ON
Sheets(1).Shapes("Barre").Fill.ForeColor.RGB = RGB(197, 225, 180) 'Remplissage de la barre en vert
With Sheets(1).Shapes("Bouton")
.Fill.ForeColor.RGB = RGB(84, 131, 53) 'Remplissage du bouton en vert
.IncrementLeft 80.6250393701 'Déplacement du bouton à droite
.TextFrame2.TextRange.Text = "ON" 'Changement du texte en ON
End With
Range("ControleSlider").Value = 1 'Valeur de la cellule contrôle à 1
Else
'Slider en position ON, bascule vers OFF
Sheets(1).Shapes("Barre").Fill.ForeColor.RGB = RGB(236, 170, 170) 'Remplissage de la barre en rouge
With Sheets(1).Shapes("Bouton")
.Fill.ForeColor.RGB = RGB(192, 0, 0) 'Remplissage du bouton en rouge
.IncrementLeft -80.6250393701 'Déplacement du bouton à gauche
.TextFrame2.TextRange.Text = "OFF" 'Changement du texte en OFF
End With
Range("ControleSlider").Value = 0 'Valeur de la cellule contrôle à 0
End If
End Sub