Usine à gaz
XLDnaute Barbatruc
Bonjour à toutes et à tous
@patrick :
Encore merci pour ton horloge :
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.
En cas que tu t'y intéresses, je joins le fichier
Merci Patrick,
lionel
@patrick :
Encore merci pour ton horloge :
XL 2016 - Horloge dans feuille de calcul Excel
Bonjour à tous et merci de m'accueillir sur votre site. Je ne suis pas un expert en Vba, mais je me débrouille un peu. J'ai 61ans (bientôt la retraite) et j'exerce dans la fonction publique territoriale. Je développe (j'essaie plutôt) des applications Excel pour améliorer les routines de...
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 SubMerci Patrick,
lionel
Dernière édition: