Discussion :

[stikmou08]

Bonjour je cherche désespérément une macro qui change la couleur de l'intérieur d'une forme lorsque que je clic dessus.

Exemple :

J'ai une forme qui est un carré, lorsque je clic dessus cela devient noir, lorsque je re-clic dessus cela devient blanc et ainsi de suite.

j'essaye déjà le premier point qui est lorsque je clic cela devient noir. J'ai essayé avec ceci :

J'affecte donc une macro sur ma forme puis je mets ce code :

Code :

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

1
2
3
Sub Rectangle58_Cliquer()
ActiveSheet.Shapes("Rectangle58").Fill.ForeColor.RGB = RGB(0, 0, 0)
End Sub

Mais cela ne fonctionne pas.

Pourriez vous m'aider ?

[Jean-Philippe André]

Salut,

ta piste de départ serait ici d'utiliser l'enregistreur de macro, pour comprendre comment rendre par le code ce que tu souhaites "manuellement"

[patricktoulon]

Bonjour
un exemple

on affecte une macro a rectangle 1

Code :

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

1
2
3
4
5
Sub bascule_color()
    With ActiveSheet.Shapes(Application.Caller)
        If .Fill.ForeColor.RGB = RGB(0, 0, 0) Then .Fill.ForeColor.RGB = RGB(255, 255, 255) Else .Fill.ForeColor.RGB = RGB(0, 0, 0)
    End With
End Sub

A noter que je me sert de Application.Caller tu peux donc t'en servir pour plusieur shapes
dans cet exemple qui suit j'ai 3 rectangles
j' affecte la meme macro aux trois rectangles

je l'ai modifiée pour que les 3 rectangles aient leurs 2 couleurs de bascule différentes et cela dans un select case
a noter aussi que tu peux indiquer les couleurs sous toute leurs formes (hex,long,rgb,vbconstante) tu en a un exemple avec vbyellow pour le case "rectangle 3"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub bascule_color()
    Dim coul(1 To 2)
    With ActiveSheet.Shapes(Application.Caller)
        Select Case .Name
            'on parametre les deux couleurs en fonction du nom de la shapes
        Case "Rectangle 1": coul(1) = RGB(0, 0, 0): coul(2) = RGB(255, 255, 255):'appel de la fonction qu'il sont sensé faire ici
        Case "Rectangle 2": coul(1) = RGB(0, 240, 0): coul(2) = RGB(255, 0, 0):'appel de la fonction qu'il sont sensé faire ici
        Case "Rectangle 3": coul(1) = RGB(0, 0, 255): coul(2) = vbYellow :'appel de la fonction qu'il sont sensé faire ici  
        End Select
        'on applique la couleur en fonction de sa couleur actuelle
        If .Fill.ForeColor.RGB = coul(1) Then .Fill.ForeColor.RGB = coul(2) Else .Fill.ForeColor.RGB = coul(1)
    End With
End Sub

[Menhir]

Plus simple (sans test ni nom de forme) :

Code :

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

1
2
3
4
5
Sub Rectangle_ClicClac()
With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
        .RGB = RGB(255, 255, 255) - .RGB
End With
End Sub

Peut être affecté à toutes les formes de la feuille.

[patricktoulon]

re
a oui menhir nikel
mais une seule couleur sera dispo pour le clicclac ( noir) puisque l'on retombe a zero

[Menhir]

mais une seule couleur sera dispo pour le clicclac ( noir) puisque l'on retombe a zero

Deux couleurs : noir et blanc (c'est ce qui est demandé).
Cela dit, on peut utiliser cette méthode pour n'importe quel couple de couleur en la compliquant juste un peu.
Par exemple, pour jaune et magenta :

Code :

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

1
2
3
4
5
Sub Rectangle_ClicClac()
With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
        .RGB = RGB(255, 255, 0) + RGB(255, 0, 255) - .RGB
End With
End Sub

Pour simplifier, on peut remplacer RGB(255, 255, 0) + RGB(255, 0, 255) par 16777470 mais c'est moins didactique.

[stikmou08]

Plus que parfait Menhir.

Merci beaucoup