Macro image Excel

Bonjour à tous,

J'ai besoin d'agrandir des images sur Excel. Je m'explique, j'ai besoin de mettre les cartes grises des salariés sur une grosse base de données sans bouger la taille des cellules. Je souhaite donc les mettre en petit et pouvoir cliquer dessous pour les agrandir.

Après des recherches j'ai trouvé cela :

cependant cette macro ne fonctionne pas, notamment la ligne big=3

Si quelqu'un arrive à trouver l'erreur et à me débloquer je lui en serai reconnaissante,

Merci :)

Bonjour,

Pour poster du code, vous pouvez utiliser les balises </> du ruban d'icônes, c'est plus facile à copier qu'une image .

Pour votre votre problème, il y aurait éventuellement la possibilité de créer un userform et de lui affecter l'image sur laquelle on vient de cliquer.

Cette idée supposerait d'avoir les chemins des images à disposition. Supposons que chaque image porte le nom de son chemin, alors :

'module USERFORM
private sub Userform1_initialize()
chemin$ = application.caller
with me
    .caption = "Zoom"
    .picture = loadpicture(chemin)
end with
end sub

'Module Normal
Sub Appel()
Userform1.show
end sub

'Module normal - macro éphémère : affectation à toutes les images de la macro
Sub Affecter()
with activesheet
    for each sh in .shapes
        if sh.name like "*\*.*" then sh.onclick = "Appel"
    next sh
end with
end sub

Cdlt,

Bonjour,

Merci pour votre aide je vais essayer ça de ce pas

Cordialement