Passer un rectangle en bleu sur click sourie ou en blanc

[christ-94]

Bonjour


J’ai crée un rectangle en dessin et je l’ai affecte a une macro qui le colorie en bleu sur click de la sourie
Je voudrais le repasse en blanc sur click sourie si celui-ci et en bleu ?

Merci de vos réponses

[justine]

salut le forum, christ-94

je ne connais pas le terme pour designer le rectangle mais suit ma procedure pour resoudre ton probleme.

sub rectangle_clic ()

if couleur rectangle = bleu then
couleur rectangle = blanc
else
couleur rectangle = bleu
end if

end sub

[allegro50]

Bonjour

Ci-joint un petit bout de code qui fait ca

[christ-94]

Bonjour , merci a vous

Donc la macro que j'utilise est :

Sub Macro2()
'

    ActiveSheet.Shapes("Rectangle 6").Select
    
    If Selection.ShapeRange.Fill.ForeColor.SchemeColor = 12 Then
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    
   Else
    
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 12
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
 
    
    End If
End Sub

le problème
- le rectangle reste sélectionne a la fin de la macro
- j'ai une 15 de rectangles dans la feuil il faut répète a chaque fois le macro, j'aimerais utiliser la même macro pour l'ensembles de rectangles

[Hervé]

bonjour


il suffit peut etre de ne pas le sélectionner :

Sub Macro2()

With ActiveSheet.Shapes("Rectangle 6").Fill.ForeColor
    .SchemeColor = IIf(.SchemeColor = 12, 9, 12)
End With

End Sub

salut

[christ-94]

Merci


effectivement il ne sélectionne pas le rectangle donc plus de problème de se cote la, mais il ne change pas la couleur du rectangle .

Ou je ne vois pas comment l'intègre a la macro ?

[Hervé]

re

ben je me suis limité à reprendre ton code, et sa marche chez moi.

par contre tu ne précises pas l'evenement declencheur du code.

si tu veux que celui-ci se déclenche des appuis sur le rectangle, alors :

Sub Rectangle6_QuandClic()
With ActiveSheet.Shapes("Rectangle 6").Fill.ForeColor
    .SchemeColor = IIf(.SchemeColor = 12, 9, 12)
End With
End Sub

salut

[christ-94]

l'evenement declencheur du code est un click sur le rectangle

rien a faire il ne fonctionne pas , il se selectionne sans ce selectionne mais ne change pas de couleur.

[Hervé]

re

en piece jointe un exemple.

salut

[christ-94]

quand je selectionne il passe en bleu et au relachement il repasse dans sa couleur "il ne garde pas le bleu"

[christ-94]

Merci

fonctionne sur le fichier, mais dans ma fiche ?

j'ai donc fait un export du rectangle sur ma fiche est plus de problème
par contre j'ai une 15 de rectangle comment faire pour évite que cette macro soit nominatif

[Hervé]

re

en piece jointe un exemple pour plusieurs rectangles et une seule macro.

tu dessines ta forme et ensuite tu lui affecte la macro couleur.

salut

[christ-94]

Merci pour tous

la macro fonctionne nickel
sauf sur quelques rectangles qui ont eté supprimé et refait donc plus de probleme