Bonsoir,
en espérant que sauras ajouter cette macro et la lancer:
Sub Macro1()
'
''
'
choix = Range("a1" )
For Each Sha In ActiveSheet.Shapes
Sha.Visible = True
Next
ActiveSheet.Shapes("picture 1" ).Visible = (choix = 1)
ActiveSheet.Shapes("picture 2" ).Visible = (choix = 2)
ActiveSheet.Shapes("picture 3" ).Visible = (choix = 3)
End Sub
picture 1, picture 2, etc...étant les noms de tes images. Pour voir le nom de chaque image tu clic dessus et au dessus de la colonne A tu as une case où s'affiche le nom de l'image. Attention, si tu lis Image 2, il te faudra mettre: picture 2. Tu peux aussi changer le nom de l'image en cliquant dans la case indiquée ci dessus et en remplaçant le nom par défaut par un nom de ton choix. As-tu beaucoup d'images???
Message édité par seniorpapou le 18-10-2008 à 16:51:40