affiche img en fonction de la valeur d'une cellule

Bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("a1"), Target) Is Nothing Then _
AfficherImage Target.Value

End Sub

Sub AfficherImage(ImageIndex As Integer)
Dim i As Integer
For i = 1 To 4
Feuil2.Shapes("Image " & i).Visible = msoFalse
Next i
Feuil2.Shapes("Image " & ImageIndex).Visible = msoTrue
End Sub

Ce code est à placer dans le module de la feuille concernée, et il faut
adapter le nom de la feuille ainsi que les débuts des noms des images et la
cellule qui sert de test...


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)


niko wrote:

bonjour tt le monde...
Voila, j'ai 4 images (img1,img2,img3,img4) sur ma feuille
et en fonction de la valeur d'une cellule (1,2,3 ou 4)
j'aimerai que telle ou telle image s'affiche ou
disparaisse (je pense bien que cela est possible). Je me
suis renseigner sur le newsgroup VB mais on m'a renvoyer
sur ce newsgroup .
Si vous pouviez m'aider ? merci

Ok merci beaucoup Pierre ca m'a été d'une grande aide.

-----Message d'origine-----
Bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("a1"), Target) Is Nothing Then
_

AfficherImage Target.Value

End Sub

Sub AfficherImage(ImageIndex As Integer)
Dim i As Integer
For i = 1 To 4
Feuil2.Shapes("Image " & i).Visible = msoFalse
Next i
Feuil2.Shapes("Image " & ImageIndex).Visible = msoTrue
End Sub

Ce code est à placer dans le module de la feuille
concernée, et il faut

adapter le nom de la feuille ainsi que les débuts des
noms des images et la

cellule qui sert de test...


--
Cela convient-il?