XL 2019 Couleurs d'un rectangle

crazyguismo · 29 Janvier 2020

Bonjour la communauté,

Voila je bute sur un sujet, je suis en train de réaliser une gestion de stock automatiséé.
Il ne me reste plus qu'à faire des remplacements de couleur sur la page congif (pour le moment je ne travail que sur cette feuille)
Je vous joins le fichier.

Mon but est de changer la couleur du rectangle nommé "nav" en cliquant sur la couleur souhaiter. (module couleurs_fond)
dans un deuxième temps j'aimerai faire un contour sur ces rectangle couleur. (module couleurs_page)

lors du débogage la ligne

For Page_menu = 1 To 8
Sheets(Page_menu).Shapes("nav").Fill.forcolor.RGB = RGB(0, 0, 0)
Next Page_menu

pouvez-vous m'aider?

merci

sylvanu · 29 Janvier 2020

Bonjour CrazyGuismo,
Votre VBA est protégé.

crazyguismo · 29 Janvier 2020

oups voici

sylvanu · 29 Janvier 2020

Qu'avez vous voulu faire avec ce code :

VB:

For Page_menu = 1 To 8
    Sheets(Page_menu).Shapes("nav").Fill.forcolor.RGB = RGB(0, 0, 0)
Next Page_menu

Sur chaque page de 1 à 8 il recherche la shape NAV. Or je n'ai pas trouver de shape execpté sur la page Accueil et DD.

crazyguismo · 29 Janvier 2020

en ait ce j'ai voulu faire, c'est que sur chaque page de 1 à 8, mettre le fond noir dans le shapes "nav"

je ne lai pas mis sur les autres pages pour les essais.
Vous pensez que c'est pour cela que ca bloque?

sylvanu · 29 Janvier 2020

Qu'appelez vous le shape NAV ?
En tout cas ça ne peut que bogguer sur ce point puisqu’il n'y a pas de shape NAV sur chaque page.
Les 8 shapes dont vous parlez ne seraient-ils pas les 8 boutons présent dans Config ?
Si c'est ça alors il faut faire :

VB:

Sub couleurs_fond1()
For i = 1 To 8
    ActiveSheet.Shapes("page" & i).Fill.ForeColor.RGB = RGB(0, 0, 0)
Next i
ActiveSheet.Shapes("bccolor1").Line.ForeColor.RGB = RGB(192, 0, 0)
ActiveSheet.Shapes("bccolor2").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("bccolor3").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("bccolor4").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("bccolor5").Line.ForeColor.RGB = RGB(255, 255, 255)
End Sub

( En plus c'est ForeColor et non ForColor )

crazyguismo · 29 Janvier 2020

merci pour le "forecolor" mais le shape "nav" existe c'est le rectangle bleu.
c'est celui-ci que j'aimerai faire changer la couleur.

j'ai un autre code pour le changement de couleur des 8 boutons.

sylvanu · 29 Janvier 2020

Alors là je deviens miro.
OK. Vu.
Mais vous n'avez qu'un seul NAV !
Pourquoi faire une boucle ?

crazyguismo · 29 Janvier 2020

car je me suis dit vus j'ai 8 pages c'était plus simple à codé.

sylvanu · 29 Janvier 2020

Oui mais si le shape n'existe pas il y a fatalement erreur.
Dans ce cas là c'est plus simple :

VB:

Sub couleurs_fond1()
ActiveSheet.Shapes("NAV").Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveSheet.Shapes("bccolor1").Line.ForeColor.RGB = RGB(192, 0, 0)
ActiveSheet.Shapes("bccolor2").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("bccolor3").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("bccolor4").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("bccolor5").Line.ForeColor.RGB = RGB(255, 255, 255)
End Sub

patricktoulon · 29 Janvier 2020

re
serait ce cela que tu veux faire

crazyguismo · 29 Janvier 2020

oui mais le rectangle rouge j'aimerai l'entourer de la couleur blanche.
j'aimerai egalement changer la couleur des textes dans les rectangle orange.

patricktoulon · 29 Janvier 2020

re
alors 'temballe pas car c'est le boxon ton fichier

DONC pour commencer
tu va attribuer la même macro a tes carrés sur la ligne couleur
j'ai repris le nom de la tienne "couleurs_fond1"
autrement dis tes 5 boutons vont appeler la même macro
ensuite la macro
LA MACRO

VB:

Sub couleurs_fond1()
couleur = ActiveSheet.Shapes(Application.Caller).Fill.ForeColor'on identifie la couleur du bouton cliqué
    Sheets("config").Shapes("nav").Fill.ForeColor.RGB = (couleur)'on applique cette couleur  au shape("nav")
'pour le visuel
For i = 1 To 5'on enleve le tour rouge des carré ( je l'ai mis en rouge et de taille 3 dans les propriété)
ActiveSheet.Shapes("bccolor" & i).Line.Visible = False
Next
ActiveSheet.Shapes(Application.Caller).Line.Visible = True' on met le pourtour  en visible uniquement sur celle qui est cliquée  

'ActiveSheet.Shapes("bccolor1").Line.forcolor.RGB = RGB(192, 0, 0)'poubelle
'ActiveSheet.Shapes("bccolor2").Line.forcolor.RGB = RGB(255, 255, 255)'poubelle
'ActiveSheet.Shapes("bccolor3").Line.forcolor.RGB = RGB(255, 255, 255)'poubelle
'ActiveSheet.Shapes("bccolor4").Line.forcolor.RGB = RGB(255, 255, 255)'poubelle
'ActiveSheet.Shapes("bccolor5").Line.forcolor.RGB = RGB(255, 255, 255)'poubelle

End Sub

voila deja pour le fond nav et le visuel sur le bouton cliqué

crazyguismo · 29 Janvier 2020

Merci ca a l'air de fonctionné correctement.
merci, peux-tu me dire ce qui n'aller pas dans la première macro?

crazyguismo · 29 Janvier 2020

en fait ceci ne fonctionne pas comme je l'ai imaginé.
ce code change bien le fond sur la feuille 8 mais seulement sur la feuille 8, j'aimerai que cela change sur toutes les feuilles.

XL 2019 Couleurs d'un rectangle

crazyguismo

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

crazyguismo

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

crazyguismo

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

crazyguismo

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

crazyguismo

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

crazyguismo

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

crazyguismo

XLDnaute Nouveau

crazyguismo

XLDnaute Nouveau

Discussions similaires