Passer un rectangle en bleu sur click sourie ou en blanc

justine

XLDnaute Occasionnel

• 20 Octobre 2006

• #2

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

 

Vote positif 0 Vote négatif

A

allegro50

XLDnaute Occasionnel

• 20 Octobre 2006

• #3

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

Bonjour

Ci-joint un petit bout de code qui fait ca

 

Pièces jointes

• Change couleur.xls

  20.5 KB · Affichages: 67

Vote positif 0 Vote négatif

C

christ-94

XLDnaute Occasionnel

• 23 Octobre 2006

• #4

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

Bonjour , merci a vous

Donc la macro que j'utilise est :

Code:

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 23 Octobre 2006

• #5

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

bonjour


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

Code:

Sub Macro2()

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

End Sub

salut

 

Vote positif 0 Vote négatif

C

christ-94

XLDnaute Occasionnel

• 23 Octobre 2006

• #6

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 ?

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 23 Octobre 2006

• #7

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 :

Code:

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

salut

 

Vote positif 0 Vote négatif

C

christ-94

XLDnaute Occasionnel

• 23 Octobre 2006

• #8

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.

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 23 Octobre 2006

• #9

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

re

en piece jointe un exemple.

salut

 

Pièces jointes

• chris.zip

  7.2 KB · Affichages: 24
• chris.zip

  7.2 KB · Affichages: 15
• chris.zip

  7.2 KB · Affichages: 16

Vote positif 0 Vote négatif

C

christ-94

XLDnaute Occasionnel

• 23 Octobre 2006

• #10

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"

 

Vote positif 0 Vote négatif

C

christ-94

XLDnaute Occasionnel

• 23 Octobre 2006

• #11

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 23 Octobre 2006

• #12

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

 

Pièces jointes

• chris.zip

  7.2 KB · Affichages: 34
• chris.zip

  7.2 KB · Affichages: 42
• chris.zip

  7.2 KB · Affichages: 42

Vote positif 0 Vote négatif

C

christ-94

XLDnaute Occasionnel

• 23 Octobre 2006

• #13

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

 

Vote positif 0 Vote négatif