Bonjour à tous,  
 
Je suis en stage et je suis entrain de créer une bibliothèque d'outils sous excel 97. Je voudrais afficher une image réduite de l'outil puis lorsqu'on clique dessus, celle-ci s'agrandi pour la voir en détail puis un second clique la ferait revenir en position initial.
J'arrive à agrandire l'image mais le second clique me zoom l'image encore plus.  
 
Merci de votre aide  
Salut

Salut Souz,
Si tu donnes le code que tu as utilisé pour zoomer il sera plus facile de t'indiquer comment le modifier
bon courage

Salutation WaTaShi    
 
Merci de t'interresser à mon problème.
En fait j'utilise la fonction enregistrer une macro dans excel. Tout d'abord j'enregistre l'agrandissement de l'image puis je lui affecte cette macro (activable car un clic). Puis je modifie la macro, voilà ce que ça donne :
 
Sub Macro1()
    ActiveSheet.Shapes("Picture 24" ).Select
    Selection.ShapeRange.ScaleWidth 5#, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 5#, msoFalse, msoScaleFromBottomRight
 
'J'ai pensé insérer un bloc If, c'est à dire si on clique sur une autre cellule ou au mieu en recliquant sur l'image, celle ci reviendrai dans sa position initial
 
   If Range("A1" ).Select Then
        ActiveSheet.Shapes("Picture 24" ).Select
        Selection.ShapeRange.ScaleWidth 0.3, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.ScaleHeight 0.3, msoFalse, msoScaleFromBottomRight
    End If
 
End Sub
 
Voilà, en fait j'utilise principalement l'enregistreur de macro puis je les modifie avec le peu de connaissance que j'ai en matière de prog. Donc si tu peux me donner un ptit coup de pouce ce serait super pour la continuité de mon stage.
 
Merci  

Salut Souz

Ton agrandissement est fait en %,or quand tu prends une image et que tu l'agrandi ou la réduit comme ça ton pourcentage retourne obligatoirement à 100. tu ne peux donc pas te fier au ScaleWidth ou au ScaleHeight pour dire réduit si c'est agrandi. il faut te baser sur les tailles réelles des images pour définir un agrandissemnt ou une réduction :

pour connaître tes tailles de départ tu peux utiliser :

Par contre tu as marqué que tu es en excel 97, ces fonctions devraient marcher, enfin à ce que j'ai lu ici :http://msdn.microsoft.com/archive/ [...] eb/010.asp
je n'ai pas 97 pour tester (juste 2002)
 
Si la macro bloque indiques le type d'erreur et l'endroit.