forme automatique

[delepine]

bonjour

j'ai inserer un dessin ds une cellule (Fleche vert le haut) et je voudrais savoir s'il est possible de la mettre en rouge si la cellule qui est a cote est negative et en vert si elle est positive??????




MERCI

 

[Gérard DEZAMIS]

Bonjour Delepine

Avec windings3 et Mise en forme conditionnelle
@+ GD [file name=Delepine.zip size=1837]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Delepine.zip[/file]

 

[Brigitte]

Bonjour,

Je viens de faire l'essai, on peut modifier par une Mise en Forme Conditionnelle, le fond de la cellule et jouer là dessus, mais sans macro, je crois pas que la flèche elle-même puisse changer de couleur en fonction de la valeur de la cellule d'â côté.

En revanche, tu pourrais peut être, au lieu de recourir aux formes automatiques ou à un dessin, utiliser les caractères spéciaux et là leur appliquer une couleur de police en fonction de la cellule voisine (j'ai pris le caractère 'é' en police wingdings)...

Un petit exemple ci-joint. [file name=Delepine_20060504162436.zip size=2223]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Delepine_20060504162436.zip[/file]


Edition :
Re bosse avec Gégé...

Message édité par: Brigitte, à: 04/05/2006 16:26

 

[Gérard DEZAMIS]

Re Delepine

Agréable bosse Brigitte ...
C'est toujours un plaisir

Une autre version

@+GD [file name=Delepine2.zip size=4620]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Delepine2.zip[/file]

 

[Brigitte]

Re,

J'y avais pensé au coup de la flèche pointant vers le haut ou vers le bas, mais je voulais vite aider Delepine, comme quoi...

Bravo Gérard.

 

[delepine]

merci a tous les deux

 

[Gael]

Bonjour delepine, bonjour Brigitte, bonjour Gérard,

Un dernier exemple avec une macro très simple qui se déclenche lors du changement de valeur en A1 et change la couleur d'une forme automatique.

@+

Gael [file name=Fleche_20060504171730.zip size=7722]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Fleche_20060504171730.zip[/file]

 

[Brigitte]

Clap clap, delepine a encore un choix...

Et moi je viens de grouper les trois ensemble (Gégé, Gael, mon mien) comme ca si j'ai besoin un jour (et si je me souviens d'où je l'ai rangé), hop...

Surtout que pour une fois, je peux comprendre une macro.

Merci Gael

 

[Gérard DEZAMIS]

Salut Gael
Re à Tou(te)s
Tiens encore une bise ....

Notre sauveur des Îles !

J'ai ajouté Cells(1, 1).Select pour que la selection revienne sur la cellule A1

Sub Macro1()
Dim coul As Integer
If Cells(1, 1).Value < 0 Then coul = 10 Else coul = 11
ActiveSheet.Shapes('AutoShape 1').Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = coul
Cells(1, 1).Select
End Sub

Bien joué

@+GD

 

[Gael]

Rebonjour,

Merci gérard, c'est plus pratique à utiliser comme ça.

Je me mets doucement au VBA, mais je reconnais que dans certains cas, il y a un gain énorme en vitesse de calcul par rapport à des formules complexes.

Bisous brigitte.

@+

Gael