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]

Re : Passer un rectangle en bleu sur click sourie ou en blanc

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]

Re : Passer un rectangle en bleu sur click sourie ou en blanc

Bonjour

Ci-joint un petit bout de code qui fait ca

 

[christ-94]

Re : Passer un rectangle en bleu sur click sourie ou en blanc

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é]

Re : Passer un rectangle en bleu sur click sourie ou en blanc

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]

Re : Passer un rectangle en bleu sur click sourie ou en blanc

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 : Passer un rectangle en bleu sur click sourie ou en blanc

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]

Re : Passer un rectangle en bleu sur click sourie ou en blanc

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 : Passer un rectangle en bleu sur click sourie ou en blanc

re

en piece jointe un exemple.

salut

 

[christ-94]

Re : Passer un rectangle en bleu sur click sourie ou en blanc

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

 

[christ-94]

Re : Passer un rectangle en bleu sur click sourie ou en blanc

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 : Passer un rectangle en bleu sur click sourie ou en blanc

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]

Re : Passer un rectangle en bleu sur click sourie ou en blanc

Merci pour tous

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