Sub Rectangle8_Clic() toto = Array(RGB(0, 255, 0), RGB(255, 160, 100), RGB(0, 150, 255)) Static quoi As Integer With ActiveSheet.Shapes("Rectangle 8") .OLEFormat.Object.ShapeRange.Fill.ForeColor.RGB = toto(quoi) End With quoi = quoi + 1 If quoi > 2 Then quoi = 0 End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question