Microsoft 365 Zoomer automatiquement l'Horloge de Patrick

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous :)
@patrick :
Encore merci pour ton horloge :
Hello Patrick joueur
Je confirme : elle est Super pour moi ton horloge
J'espère qu'elle fonctionnera pour tous et toutes versions Excel

Si ça te dit, j'ai une autre demande :
1 - Puisqu'il est maintenant possible de la déplacer (tous éléments inclus)
J'ai fait des tentatives pour zoomer à l'ouverture et rezoomer à la fermeture mais ça ne fonctionne pas bien :
L'objectif est de retrouver la même dimension que le zoom souhaité à l'ouverture.
VB:
Sub Déplace_Zouverture()
    ActiveSheet.Shapes.Range(Array("shmontre")).Select
    Selection.ShapeRange.IncrementLeft -285.75
    Selection.ShapeRange.IncrementTop -28.5
    Selection.ShapeRange.ScaleWidth 0.2913838012, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.2913837314, msoFalse, msoScaleFromTopLeft
    Range("A1").Select
End Sub
Sub Déplace_Zfermeture()
    ActiveSheet.Shapes.Range(Array("shmontre")).Select
    Selection.ShapeRange.ScaleWidth 2.4043033484, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 2.4043032744, msoFalse, msoScaleFromTopLeft
    Range("A1").Select
End Sub
En cas que tu t'y intéresses, je joins le fichier

Merci Patrick,
lionel :)
 

Pièces jointes

  • horloge en shape v2 .2bublewaterwatch.xlsm
    34.3 KB · Affichages: 10
Dernière édition:

patricktoulon

XLDnaute Barbatruc
ben grand dadé la page d’accueil qu'est ce que tu veux que ce soit ; une feuille bien sur
tu a pourtant suivi l'autre discussion non ?
je vais fair une autre version
ce qui me gênait dans la reduction c'est que l'on voit plus tellement bien les chiffre
problème que j'ai résolu autrement dans un autre model
 

Usine à gaz

XLDnaute Barbatruc
ben grand dadé la page d’accueil qu'est ce que tu veux que ce soit ; une feuille bien sur
tu a pourtant suivi l'autre discussion non ?
je vais fair une autre version
ce qui me gênait dans la reduction c'est que l'on voit plus tellement bien les chiffre
problème que j'ai résolu autrement dans un autre model
Plutôt "Grand Vieux Daddy" lol, j'avais pas fait le rapprochement.
Une version avec laquelle on pourrait inclure (aux dimensions voulues) dans une feuille de travail serait super de chez super !!!
+ ma demande "SURPRISE" qui viendra après. Il faut bien que je laisse un peu refroidir la machine
:p 🤪 😘

Plus sérieusement, tu es génial (TOUS COMPTES FAITS lol)
et quels formidables travaux tu fais !!! Waooouuu RESPECT :)
lionel :)
 

Discussions similaires

Statistiques des forums

Discussions
315 095
Messages
2 116 158
Membres
112 673
dernier inscrit
ìntellisoft