1 2 3 4 5 6 7 8 9 10 11 12 13
| Private Sub Workbook_Open()
.....
If Worksheets("Schedule").ToggleButton1.Value = False Then 'plante, erreur 438, propriété ou méthode non géré par cet objet
.....
Worksheets("Schedule").CheckBox1.BackColor = Worksheets("Schedule").Range("A1:J3").Interior.Color 'plante, erreur 438, propriété ou méthode non géré par cet objet
Worksheets("Schedule").CheckBox2.BackColor = Worksheets("Schedule").Range("A1:J3").Interior.Color 'plante, erreur 438, propriété ou méthode non géré par cet objet
Worksheets("Schedule").CheckBox1.ForeColor = RGB(255, 204, 0) 'plante, erreur 438, propriété ou méthode non géré par cet objet
Worksheets("Schedule").CheckBox2.ForeColor = RGB(255, 204, 0) 'plante, erreur 438, propriété ou méthode non géré par cet objet
....
Worksheets("Schedule").CommandButton3.BackColor = RGB(4, 188, 247) 'plante, erreur 438, propriété ou méthode non géré par cet objet
Worksheets("Schedule").CommandButton3.ForeColor = RGB(255, 255, 255) 'plante, erreur 438, propriété ou méthode non géré par cet objet
....
End Sub |
Partager