bitmap et format conditionnel

[gilles]

- Bonsoir à tous.
- On en veut toujours et toujours plus.
- Par l'utilisation d'un format conditionnel, autre que celui existant dans
Excel limité à trois conditions, peut-on écrire en VBA pourquoi ce type de question (en français dans le texte)

Si la case C6 est égal à 18, le Bitmat "ETOILE" apparait, sinon c'est "LE SOLEIL " qui apparait.

Merci à tous ceux qui me comprendont et me répondront.


Gilles

 

[Bernard]

Bonsoir Gilles

Petite macro qui résout le problème

Sub InsertImage()

If [C6] = 18 Then
ActiveSheet.Pictures.Insert ( _
"C:\Documents and Settings\Mes documents\Mes images\Etoile.bmp")
Else
ActiveSheet.Pictures.Insert ( _
"C:\Documents and Settings\Mes documents\Mes images\Soleil.bmp")
End If
End Sub

A+

Bernard

 

[gilles]

Merci Bernard pour ce nouveau dépannage.
J'en ferai bon usage.
A PLUS
GILLES

 

[Sylvain]

bonjour,

une autre idée sans programmation :<http://www.polykromy.com/html/poly_main_cours_decaler.html>

A+