Macro colorier

Gruick

XLDnaute Accro

• 16 Juin 2010

• #2

Re : Macro colorier

Bonjour

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

Santé

Gru hic !

 

Vote positif 0 Vote négatif

G

gregcamelot

Guest

• 16 Juin 2010

• #3

Re : Macro colorier

Un petit fichier? C'est à dire?

 

Vote positif 0 Vote négatif

Gruick

XLDnaute Accro

• 16 Juin 2010

• #4

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

 

Vote positif 0 Vote négatif

G

gregcamelot

Guest

• 16 Juin 2010

• #5

Re : Macro colorier

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

 

Pièces jointes

• Classeur2.xls

  19 KB · Affichages: 92
• Classeur2.xls

  19 KB · Affichages: 90
• Classeur2.xls

  19 KB · Affichages: 94

Vote positif 0 Vote négatif

Gruick

XLDnaute Accro

• 16 Juin 2010

• #6

Re : Macro colorier

re,

Code:

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

 

Vote positif 0 Vote négatif

G

gregcamelot

Guest

• 16 Juin 2010

• #7

Re : Macro colorier

Merci beaucoup !

 

Vote positif 0 Vote négatif

G

gregcamelot

Guest

• 16 Juin 2010

• #8

Re : Macro colorier

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

 

Vote positif 0 Vote négatif

G

gregcamelot

Guest

• 16 Juin 2010

• #9

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

 

Vote positif 0 Vote négatif

G

gregcamelot

Guest

• 16 Juin 2010

• #10

Re : Macro colorier

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

 

Vote positif 0 Vote négatif

G

gregcamelot

Guest

• 16 Juin 2010

• #11

Re : Macro colorier

Et rectangle en anglais dans vba?

 

Vote positif 0 Vote négatif

C

croco40

XLDnaute Occasionnel

• 16 Juin 2010

• #12

Re : Macro colorier

gregcamelot à dit:

Et rectangle en anglais dans vba?

Cliquez pour agrandir...

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

 

Pièces jointes

• Classeur2(1).zip

  11.2 KB · Affichages: 60
• Classeur2(1).zip

  11.2 KB · Affichages: 67
• Classeur2(1).zip

  11.2 KB · Affichages: 58

Vote positif 0 Vote négatif

G

gregcamelot

Guest

• 16 Juin 2010

• #13

Re : Macro colorier

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

 

Vote positif 0 Vote négatif

C

croco40

XLDnaute Occasionnel

• 16 Juin 2010

• #14

Re : Macro colorier

croco40 à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Classeur2(1).zip

  10.3 KB · Affichages: 60
• Classeur2(1).zip

  10.3 KB · Affichages: 60
• Classeur2(1).zip

  10.3 KB · Affichages: 62

Vote positif 0 Vote négatif

C

croco40

XLDnaute Occasionnel

• 16 Juin 2010

• #15

Re : Macro colorier

De rien on prendra juste une bouteille lol

 

Vote positif 0 Vote négatif