XL 2016 Problèmes dans une application Excel Vba

ReneDav14000

XLDnaute Occasionnel
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
 

Pièces jointes

  • PersonnelsCafeteria.xlsm
    695.1 KB · Affichages: 6
Solution
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

demo.gif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour ReneDav,
Pourquoi redimensionnez l'image lors vous activez Acceuil ?

Car le redimmensionnement se fait à l'Activesheet
VB:
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

XLDnaute Occasionnel
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.
VB:
Shap.Left = d(0): Shap.Top = d(1): Shap.Width = d(2)
 

ReneDav14000

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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

demo.gif
 

ReneDav14000

XLDnaute Occasionnel
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.
 

Discussions similaires

Réponses
11
Affichages
462

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088