Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Zoom sur image

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Electron24
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Electron24

XLDnaute Occasionnel
Bonsoir le forum,

Dans des cellules de la colonne A j'ai insérais des images d'objets que j'ai acheté

En cliquant sur la cellule d'une image, est il possible via une macro d'ouvrir un formulaire avec l'image agrandie.
J'ai testé plusieurs méthodes sans succès

d'avance merci
 

Pièces jointes

Solution
Bonjour Electron24, Mapat, le forum,

Pourquoi un formulaire ?

Mettez des images en A3 A4 A5 et affectez leur la macro "Zoom" :
VB: 
Sub Zoom()
Dim coef
coef = 3 'coefficient de zoom
If IsError(Application.Caller) Then Exit Sub
With ActiveSheet.Shapes(Application.Caller).TopLeftCell
    .CopyPicture
    ActiveSheet.Paste
    Selection.Top = .Top
    Selection.Left = .Left
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.Height = .Height * coef
    Selection.OnAction = "Suppr" 'affectation de la macro
    .Select
End With
End Sub

Sub Suppr()
If Not IsError(Application.Caller) Then ActiveSheet.Shapes(Application.Caller).Delete
End Sub
La Shape créée est supprimée quand on clique dessus.

A+
Trier par date Trier par votes
Bonjour
Il peut y avoir la possibilité d'insérer un commentaire dans la cellule et de remplir celui-ci avec l'image à agrandir.
Il faudra ensuite redimensionner ce commentaire en fonction de la taille désirée.
Un simple survol de la souris de la cellule affichera le commentaire
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Electron24, Mapat, le forum,

Pourquoi un formulaire ?

Mettez des images en A3 A4 A5 et affectez leur la macro "Zoom" :
VB: 
Sub Zoom()
Dim coef
coef = 3 'coefficient de zoom
If IsError(Application.Caller) Then Exit Sub
With ActiveSheet.Shapes(Application.Caller).TopLeftCell
    .CopyPicture
    ActiveSheet.Paste
    Selection.Top = .Top
    Selection.Left = .Left
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.Height = .Height * coef
    Selection.OnAction = "Suppr" 'affectation de la macro
    .Select
End With
End Sub

Sub Suppr()
If Not IsError(Application.Caller) Then ActiveSheet.Shapes(Application.Caller).Delete
End Sub
La Shape créée est supprimée quand on clique dessus.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Bonjour le Forum,
La solution de Mapat est fastidieuse, et pas très fiable, les dimensions des notes pouvant changer et selon la taille des images ne donnent pas un résultat satisfaisant. Mais j'y avais pensé et pour dire vrai avait commencé à le faire sur mon classeur, mais vite abandonné.
Merci tout de même Mapat

Par contre j'opterai pour celle de job75 car un petit code à écrire et un clic sur l'image est c'est Ok
Pour répondre à ta emande sur un formulaire c'était pour pouvoir en même temps dans des textbox inscrire l'achat en question avec son prix .
Le seul souci est que contrairement à toi, mes images sont DANS la cellule et non superposée dessus car cela alourdirait mon classeur
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
XL 2010 VBA - Insérer image proportionnelle à la taille de la cellule
Réponses
8
Affichages
209
job75
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
515
vgendron
J
  • Résolu(e)
Microsoft 365 Image sous la grille - zoom proportionnel
Réponses
12
Affichages
640
JyCu
J
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
181
JUAN45
J
T
  • Résolu(e)
XL 2019 Importer des images
2
Réponses
23
Affichages
1 K
Tsimbina
T
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
3 K
patricktoulon
  • Résolu(e)
Microsoft 365 Usf, contrôle 'Image' : transformer mon pointeur "Flèche" en "Main" ?
Réponses
6
Affichages
222
Dranreb
P
  • Question Question
XL 2016 texte d'images vers excel
Réponses
14
Affichages
319
jurassic pork
  • Question Question
XL 2019 faire apparaitre une image en fonction d'une valeur vrai
2
Réponses
16
Affichages
1 K
aspect
  • Résolu(e)
XL 2013 Automatisation de la Saisie et de l'Affichage des Textes dans une plage
Réponses
7
Affichages
488
chaelie2015
J
  • Question Question
Microsoft 365 Excel exporter en Image JPG
Réponses
4
Affichages
717
patricktoulon
E
  • Question Question
Microsoft 365 Changement valeur de cellule en cliquant sur une autre cellule
Réponses
3
Affichages
134
Dudu2
P
  • Résolu(e)
Microsoft 365 insertion image selon contenu volet deroulant
Réponses
10
Affichages
620
riton00
S
  • Question Question
XL 2019 Zoom sur image dans un USF
Réponses
2
Affichages
603
Sheldor
S
L
  • Question Question
Microsoft 365 Macro Insertion image dans cellule
Réponses
3
Affichages
1 K
Dranreb
  • Résolu(e)
Microsoft 365 Insérer Image selon Choix
Réponses
14
Affichages
658
Electron24
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
2 K
AtTheOne
L
  • Question Question
XL 2016 Liste déroulante d'image
2
Réponses
17
Affichages
2 K
littlebird2
L
  • Résolu(e)
XL 2016 Macros Généralités
Réponses
4
Affichages
122
sylvanu
C
  • Résolu(e)
XL 2021 Addition des colonnes Cliquée
2
Réponses
16
Affichages
255
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…