Private Sub ToggleButton1_Change()
If ToggleButton1.Value = True Then
ToggleButton1.ForeColor = 6
ToggleButton1.Caption = 'Rechercher une commande en cours'
ElseIf ToggleButton1.Value = False Then
ToggleButton1.ForeColor = 12
ToggleButton1.Caption = 'Enregistrer une nouvelle commande'
End If
End Sub