XL 2016 Problèmes dans une application Excel Vba

[ReneDav14000]

Bonjour à tous,
Je reviens vers vous pour avoir un petit coup de main sur 2 problèmes que je rencontre dans mon application.
1 - Lorsque j'active la feuille "Accueil" après avoir travaillé sur une autre feuille, l'image 4 (photo) devient minuscule.
2 - Lorsque je clique sur le bouton quitter sur la feuille "Accueil", c'est tout Excel qui se ferme alors que normalement cela ne devrait être que le classeur actif.

Pourriez-vous m'aider à solutionner ces deux soucis s'il vous plait ?
Je vous en remercie par avance
Fichier en pièce jointe

User : ADMINAA et MP : ADMINAA
User : LEGRAND et MP : AGENTAA

 

[sylvanu]

Bonjour ReneDav,
Pourquoi redimensionnez l'image lors vous activez Acceuil ?

Car le redimmensionnement se fait à l'Activesheet

With ActiveSheet
     Set Shap = .Shapes("Image 4")
     d = GetDimPositionShapeCenterRange([B9:B22], Shap)
     Shap.Left = d(0): Shap.Top = d(1): Shap.Width = d(2)
End With

et l'erreur vient des coef retournés par GetDimPositionShapeCenterRange.

 

[ReneDav14000]

Bonjour sylvanu,
Merci pour votre réponse.
Normalement l'image ne devrait pas bouger. Auparavant lors des essais je ne rencontrais pas ce soucis, c'est pourquoi je ne comprends pas car je n'ai rien modifié du code donné par patricktoulon.
Donc c'est cette ligne qui doit être modifiée si je comprends bien.
Merci, je vais regarder de plus près.

Shap.Left = d(0): Shap.Top = d(1): Shap.Width = d(2)

 

[ReneDav14000]

J'ai résolu le problème en enlevant l'Activate de la feuille.
Reste à résoudre le problème à la fermeture de l'application

 

[ReneDav14000]

Bonjour à tous,
Je suis toujours à la peine avec la fermeture de l'application qui me ferme tous les fichiers Excel ouverts, alors qu'elle ne devrait pas.
Si vous avez une idée à me soumettre je suis preneur car là je reste circonspect.
Merci par avance

 

[patricktoulon]

re
bonjour @ReneDav14000
tu m'étonne que l'image devien toute petite
tu n'a visiblement pas compris comment fonctionne ma fonction
le range n'est certainement pas bon
d = GetDimPositionShapeCenterRange([B9:B22], Shap)
l'image sera toujours de la plus petite dimension du range
a savoir donc ici on obtient la largeur de la colonne B
à mon avis tu voulais dir "B9:E22"
et meme encore là ca deraille
donc je ne sais pas ce que tu a fait dans ton fichier mais c'est le Waiiii...!!!

il faudra m'expliquer aussi pourquoi ma pauvre horloge toute gentille se fait la malle comme ça

 

[ReneDav14000]

Boujour patrick,

Je comprends que tu sois remonté comme une pendule, mais je t'assure n'avoir rien modifié du code que tu m'as donné. Chez moi, l'horloge reste bien en place, je n'ai pas ce désagrément.
Suite à un bug Excel, j'ai été obligé de recopier mon application, mais je l'ai fait à l'identique.
Je ne comprends pas que tu aies ce genre de problème.

 

[ReneDav14000]

patrick, ça m'intéresse vraiment de savoir pourquoi tu as ce déplacement de ton horloge.
J'ai modifié mon Activate de la feuille "Accueil" avec B9:E22 et mon image ne bouge plus, s'en doute une faute de frappe.

 

[ReneDav14000]

Le 12 octobre 2022, j'ai eu le même problème lorsque tu nous a présenté cette superbe horloge.
Voici ce que tu m'avais répondu

ben les fonctions il faut les appeler sinon ca risque pas de marcher
j'ai Cadré aussi "image 4" pour qu'elle reste en place a près le zoomexequo"