Macro colorier

[gregcamelot]

Bonjour.
Je suis actuellement en stage dans une maison de champagne.
Je suis en train de faire une page excel pour le suivi de la cuverie.
J'ai schématisé les cuves dans une feuilles par des ellipses et des rectangles (de noms "Ellipse 71","Rectangle 40",etc...)
J'ai fait une feuille où on peut voir si elles sont remplis ou non. En fonction des cellules de cette feuille, j'aimerais colorer en rouge ou non les ellipses et les rectangles.
Par exemple :
Si la cuve 72 est vide, la cellule C79 a pour valeur 0 (dans ma feuille 'Inventaire cuves'). De la j'aimerais donc faire une macro qui dit grossièrement :
Si C79<>0 colorier Ellipse 71 (de la feuille 'Cuverie') en rouge sinon Ellipse 71 incolore.

Je ne sais pas si j'ai étais très clair. Merci d'avance.

 

[Gruick]

Re : Macro colorier

Bonjour

Avec un petit fichier, ce serait plus facile de colorier les ell'hips, et les rectangles.

Santé

Gru hic !

 

[gregcamelot]

Re : Macro colorier

Un petit fichier? C'est à dire?

 

[Gruick]

Re : Macro colorier

Ben, tu joins le fichier dont tu te sers, dépourvu de données confidentielles, amaigri pour que ça tienne, les shapes et les couleurs prennent beaucoup de place.

Sinon, tu fais une macro en enregistrement automatique, et tu vois ce que ça donne, et tu transforme à volonté "à la main", avec des tests, des boucles...

Gruick

 

[gregcamelot]

Re : Macro colorier

Voilà ! J'arrive a colorier la cellule, mais pas l'ellipse..

 

[Gruick]

Re : Macro colorier

re,

Sub Colorer72()
If ['Inventaire cuves'!C2] <> 0 Then
  ActiveSheet.Shapes("Oval 1").Fill.ForeColor.SchemeColor = 10'rouge
Else
  ActiveSheet.Shapes("Oval 1").Fill.ForeColor.SchemeColor = 9'blanc
End If
End Sub

Bon stage

Gruick

 

[gregcamelot]

Re : Macro colorier

Merci beaucoup !

 

[gregcamelot]

Re : Macro colorier

Dernière question, la macro ne peux pas se faire automatiquement dès que les valeurs des cuves sont changés?

 

[gregcamelot]

Re : Macro colorier

"
Sub Colorer72()
If ['Inventaire cuves'!C79] <> 0 Then
ActiveSheet.Shapes("Oval 71").Fill.ForeColor.SchemeColor = 10
Else
ActiveSheet.Shapes("Oval 71").Fill.ForeColor.SchemeColor = 9
End If
End Sub
"
Dans le fichier que je vous ai envoyé, la commande fonctionne. Mais quand j'importe celle ci, ça me dit "L'élément portant ce nom est introuvable"
Quand je clique sur debuggage "ActiveSheet.Shapes("Oval 71").Fill.ForeColor.SchemeColor = 10" est surligné en jaune.
Je ne comprends pas

 

[gregcamelot]

Re : Macro colorier

*Quand j'importe celle ci, dans mon fichier.

 

[gregcamelot]

Re : Macro colorier

Et rectangle en anglais dans vba?

 

[croco40]

Re : Macro colorier

Et rectangle en anglais dans vba?

Bonjour,
j'ai rajouté un bouton de lancement.
et modifié la macro.
Je reflechis a l'automatisation
A bientot

 

[gregcamelot]

Re : Macro colorier

Merci beaucoup, ça m'aide déjà énormément !

 

[croco40]

Re : Macro colorier

Bonjour,
j'ai rajouté un bouton de lancement.
et modifié la macro.
Je reflechis a l'automatisation
A bientot

Ca y est, j'ai trouvé.
Dans l'editeur vba va voir dans feuille 2
A bientot

 

[croco40]

Re : Macro colorier

De rien on prendra juste une bouteille lol