Discussion :

[magictom42]

Bonjour, je voulais sur excel, que quand on clique sur un carré par exemple, il devient rouge. J'ai essayé de créér une macro mais ca ne marche pas. Pouvez-vous m'aider?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
ActiveSheet.Shapes("Oval 3").Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 50
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Range("E10").Select

[SilkyRoad]

bonsoir


Tu peux affecter cette macro à ta forme automatique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub ChangementCouleur()
    With ActiveSheet
        .Shapes(Application.Caller).Fill. _
            ForeColor.SchemeColor = 50
        .Range("E10").Select
    End With
End Sub

bonne soirée
michel