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

Microsoft 365 Image sous la grille - zoom proportionnel

J

JyCu

XLDnaute Nouveau
Bonjour à tous,
je crée un outil au boulot, qui a bien avancé, mais je bute sur un détail. Je crée un fichier avec le plan géographique de mon site industriel. J'aimerais intégrer l'image de mon usine SOUS la grille pour que les cellules restent accessibles (jusque là, tout va bien) mais là où je bute, c'est que j'aimerais que l'image ne se duplique pas à l'infini, il ne m'en faut qu'un exemplaire. et aussi, j'ai besoin de zoomer pour agrandir plus ou moins les cellules, le soucis est que les cellules changent bien de taille avec le zoome mais pas l'image. Or j'aimerais que l'image se zoome en même temps que les cellules, dans les mêmes proportions.

Sinon, si ça n'est pas possible, j'ai une alternative qui m'irait aussi. Avec l'image PAR DESSUS la grille, si je clique à un endroit de l'image, que Excel soit capable de lire l'adresse de la cellule qui est sous mon clic "a travers" l'image.

En vous remerciant tous, après tout, excel c'est le V.B.A BA d'un bon travail !
 
Solution
J
Bonjour à tous, je vous remercie pour vos réponses. A toutes fins utiles, je pense que j'ai trouvé la solution. En insérant un ActiveX et lui intégrant une image et avec ce code :
Private Sub MyImage_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim cell As Range Dim img As OLEObject Set img = Me.OLEObjects("MyImage") ' Convertir les coordonnées de l'image en coordonnées de la feuille Dim sheetX As Single Dim sheetY As Single sheetX = img.Left + X sheetY = img.Top + Y ' Déterminer la ligne et la colonne correspondant aux coordonnées Dim row As Long Dim col As Long row = Int(sheetY / Me.Rows(1).Height) + 1 col = Int(sheetX /...
Trier par date Trier par votes
J

JyCu

XLDnaute Nouveau
bof à dit:
Bonjour,
Ici comme ailleurs les nouveaux qui publient la même question sur plusieurs forums sont en général peu appréciés.
A+
Cliquez pour agrandir...
Bonjour, désolé, je ne savais pas que cela pouvait poser un problème. Je me disais que ce n'était pas les mêmes utilisateurs. Le but était surtout d'augmenter mes chances d'obtenir une réponse avec des utilisateurs d'horizons différents
 
Vote positif 0 Vote négatif
J

JyCu

XLDnaute Nouveau
Bonjour, je vous remercie. C'est la premiere chose que j'ai faite. Le soucis c'est que ça duplique l'image et aussi, malheureusement, elle ne se zoome pas en même temps que les cellules. Elle reste à la même taille quelle que soit le zoom
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour à tous


@JyCu

Juste en passant ma version sur la vision du cross posting et pour rejoindre @bof :

Vu du demandeur c'est plus facile de poster tout azimut en attendant une "solution toute zone" MAIS vu de ceux qui cherchent des réponses c'est clairement se moquer d'eux.

Dans 9 fois sur 10 le demandeur ne viendra pas dire arrêter de chercher j'ai trouvé sur tel site cette réponse qui me convient

Je préfère clairement la solution "mono forum" pour sa question car il ne fait pas perdre du "temps de cerveau disponible" aux personnes qui prennent le temps de chercher et répondre à la question du demandeur.

De plus voici ce qu'en pense l'administrateur de ce site David Aubert

XL 2016 - Copier données de Excel vers Word (Signet)

Bonjour svp je cherche une macro pour compléter un fichier Word en se basant sur les données dans un tableau Excel en utilisent les signet dans Word (en attaché les fichiers) merci d'avance
excel-downloads.com

Et pour finir voici ce qu'en pense la charte du forum le § 2.10

2.10 - Ne posez pas votre question sur plusieurs forums sur Internet. Si vous avez déjà posté votre question ailleurs et que nous n'avez pas de réponses, supprimez votre fil sur l'autre forum avant de poser votre question sur Excel Downloads. Cela fonctionnne aussi dans l'autre sens si vous souhaitez poser votre question ailleurs. Cette pratique s'appelle "le cross posting" et elle est très mal perçue par les membres répondant à vos questions.

Et en venant sur le site vous avez accepté la charte ....

Bonne lecture
 
Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc
Bonsour
Combien de cellules sont censées être recouvertes par l'image de ton usine ?

Définir un quadrillage représentatif de ton usine ,
Faire correspondre par calculs des coordonnées (evenement mousedown), les plages nommées souhaitées...
 
Vote positif 0 Vote négatif
J

JyCu

XLDnaute Nouveau
Bonjour à tous, je vous remercie pour vos réponses. A toutes fins utiles, je pense que j'ai trouvé la solution. En insérant un ActiveX et lui intégrant une image et avec ce code :
Private Sub MyImage_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim cell As Range Dim img As OLEObject Set img = Me.OLEObjects("MyImage") ' Convertir les coordonnées de l'image en coordonnées de la feuille Dim sheetX As Single Dim sheetY As Single sheetX = img.Left + X sheetY = img.Top + Y ' Déterminer la ligne et la colonne correspondant aux coordonnées Dim row As Long Dim col As Long row = Int(sheetY / Me.Rows(1).Height) + 1 col = Int(sheetX / Me.Columns(1).Width) + 1 ' Vérifier que les coordonnées sont dans les limites de la feuille If row > 0 And row <= Me.Rows.Count And col > 0 And col <= Me.Columns.Count Then ' Déterminer la cellule sous les coordonnées Set cell = Me.Cells(row, col) ' Écrire l'adresse de la cellule en A1 Range("A1").Value = cell.Address Else ' Si les coordonnées sont hors limites, afficher un message d'erreur MsgBox "Le clic est hors des limites de la feuille de calcul.", vbExclamation End IfEnd Sub"

Merci a tous d'avoir pris le temps de me répondre désolé si mon double post a pu etre gênant
 
Vote positif 0 Vote négatif
Solution
J

JyCu

XLDnaute Nouveau
Bonjour et toutes mes excuses, Rien de compliqué, néanmoins, je ne peux être aussi réactif que je le souhaiterais.
Globalement, avec un ActiveX, la zone à couvrir n'a plus trop d'importance. Là où j'en suis c'est que j'aimerais qu'à chaque clic sur le ActiveX de la feuille1 , une ellipse se crée et son nom unique s'inscrivent dans la feuille Historique. Chaque Ellipse à une date d'apparition qui lui est propre (définie manuellement par l'utilisateur) et les ellipses doivent apparaitre si et seulement si la date en G1 de la feuille 1 est dans l'intervalle des date de la feuille historique
 

Pièces jointes

  • historique1.PNG
    7 KB · Affichages: 7
  • Feuille1.PNG
    175.8 KB · Affichages: 8
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Question
XL 2016 Adapter une image à une cellule
2
Réponses
16
Affichages
2 K
Dudu2
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
1 K
meyscal
M
  • Question
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
6 K
TooFatBoy
S
  • Question
Autres Macro sous conditions
Réponses
3
Affichages
393
scorpileo
S
  • Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
3 K
Nicolas JACQUIN
F
  • Résolu(e)
XL 2021 Figer une sélection de cellules quand on se déplace dans la feuille
Réponses
4
Affichages
371
fanou06
F
M
  • Question
XL 2016 renvoi numéro seléctionné grille jaune vers cellule selectionné
Réponses
1
Affichages
462
marssu
M
S
  • Question
XL 2010 VBA - Calculer des sous-totaux selon la couleur de la cellule
Réponses
1
Affichages
813
Shark10c
S
B
  • Résolu(e)
XL 2013 Insérer une image dans une cellule, l'ajuster à la taille de la cellule et l'enregistrer avec le classeur
Réponses
1
Affichages
2 K
Lolote83
L
S
  • Question
XL 2016 Modifier une cellule précise avec macro
2 3
Réponses
30
Affichages
3 K
Sacha1980
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…