XL 2016 afficher et zooumer la calculette windows

[Usine à gaz]

Bonjour à toutes et à tous,

Il m'arrive d'avoir besoin d'afficher la calculette windows.

J'ai trouvé le code vba sur le net pour l'afficher.

Mais j'ai 2 petits soucis de confort :

• j'aimerais pouvoir la garder affichée (le temps du besoin) tout en travaillant sur mon classeur,
• j'aimerais pouvoir "la zooumer" pour réduire sa taille,

Mes recherches et tentatives n'ayant pas abouti, je me tourne vers nos magiciens préférés LOL

Auriez-vous une solution ?
Je joins le fichier test.

Avec mes remerciements,
Je vous souhaite une douce nuit.
amicalement,
arthour973,

 

[Staple1600]

Re

arthour973
Tu confirmes ce que je pressentais
(Si cela ne fonctionne pas sur 2013, normalement c'est pareil pour 2016, "vbaitiquement" parlant )

Pas de commentaire de ta part sur l'emploi de deux écrans ?
(voir mes précédents messages...)

Bonjour tatiak

Ah oui mais là c'est plus du jeu
Il ne s'agit plus de la calculatrice Windows

 

[Usine à gaz]

Re-Staple 1600,
Re- Riton00,
Boujour Pierre,

Staple 1600, je ne peux pas travailler sur 2 écrans.
Riton, je confirme ça ne fonctionne pas sur 2016,

Pierre Un grand merci pour cette solution, ça marche parfaitement et c'est de la bonne taille.
Je vais opter pour ta calculette mais de la à comprendre le code LOL tous les volatils auront des dents
et c'est facile de changer les couleurs et le zoom.

Amicalement,
arthour973

 

[Usine à gaz]

Re-Bonjour à toutes et à tous,

Pierre, j'ai étudié ta calculette et c'est super
Un grand merci pour mon confort de travail

J'ai pu changer les couleurs, les tailles, ainsi qu'ajouter un zoom.

Mais je butte sur 2 choses qui me seraient très utiles :

• est-il possible de ne pas lier l'affichage au double clic pour que ce ne soit pas associé à une cellule ce qui permettrait aussi de laisser la possibilité de la déplacer selon le besoin ?
• est-il possible de lancer l'affichage par un simple bouton à partir d'un code dans un module standard ?

Si c'est possible, ce ne sera plus génial mais SUPER génial.

Encore merci Pierre,
amicalement,
arthour973,

 

[Staple1600]

Le mieux est souvent l'ennemi du bien ...

Je plussoie (KISS oblige)

 

[Usine à gaz]

OK pierre c'est déjà super.
Un grand merci à toi.

 

[Usine à gaz]

LOL, désolé Pierre d'y revenir.
je ne peux pas intégrer ta calculatrice dans mon classeur car nous travaillons sur feuille protégée et même si je déprotège une cellule, en feuille protégé, ça beugue

 

[Usine à gaz]

Bonjour Pierre, le Forum,

Merci encore une fois pour m'avoir répondu.
Le mot de passe n'est pas connu de la personne qui travaille sur le fichier et la feuille , par sécurité, doit tjrs être protégée.
L'utilité de la calculette est de pouvoir s'en servir avec la feuille "toujours protégée".

Toutefois, j'ai "déprotégé" une cellule dans laquelle on peut cliquer pour l'utilisation de ta calculette.

Bonne journée à toutes et à tous,
Amicalement,
arthour973,

 

[Usine à gaz]

Bonsoir Pierre,

encore merci pour ta gentillesse et tes indications.
J'ai suivi et ça fonction super mais ..... LOL, il reste un dernier truc.

Voir capture d'écran jointe, la calculette se redimensionne en fonction du changement de format des lignes.
J'ai voulu introduire les codes permettant de la garder à son format d'origine quels soient les changements de format des lignes.
Codes genre :

ActiveSheet.Shapes.Range(Array("Clt_f")).Select
    Selection.Placement = xlMove
    Selection.Placement = xlFreeFloating
    Application.CommandBars("Format Object").Visible = False

Mais je ne vois pas où les mettre.
Veux-tu encore m'aider ?
Avec mes remerciements,
Amicalement,
arthour973,

 

[Usine à gaz]

R-Pierre,

Je pense avoir tout compris et ça marche.

Pour une meilleure d'ensemble, les lignes du fichier de travail sont en hauteur 50 mais elle contiennent bcp d'informations.
Quand on clique sur une ligne au moment de la traiter, sa hauteur passe'à 300 pour voir tout le contenu de la ligne.
quand elle est traitée, on clique sur une autre. La ligne précédemment traitée repasse à 50 et la nouvelle ligne en traitement à 300 etc..

Le souci est que la calculatrice suit les mouvements et je souhaiterais introduire les codes permettant de la garder à son format d'origine quels soient les changements de format des lignes.
Codes genre :

ActiveSheet.Shapes.Range(Array("Clt_f")).Select
    Selection.Placement = xlMove
    Selection.Placement = xlFreeFloating
    Application.CommandBars("Format Object").Visible = False

Mais je ne vois pas où les mettre.

Bonne fin de soirée,
arthour973,

 

[Usine à gaz]

Bonjour Pierre, Le Forum,

Un peu surpris de ta réponse brutale mais OK, je prends note
J'avais bien tout compris mais tu n'as pas compris mon petit souci qui ne me permettra pas de me servir de ta calculette ... c'est bien dommage elle me plaisait LOL.
Bonne journée à toi
amicalement,
arthour973,

 

[Usine à gaz]

Re-Bonjour Pierre le forum,

Têtu que je suis (je n'abandonne que rarement), j'ai pris quelques instants de réflexion et, à l'aide de l'enregistreur de macro, j'ai fait ce petit code :

ActiveSheet.Shapes.Range(Array("Clt_%", "Clt_CE", "Clt_7", "Clt_4", "Clt_1", _
        "Clt_±", "Clt_V¯", "Clt_C", "Clt_8", "Clt_5", "Clt_2", "Clt_0", "Clt_x²", _
        "Clt_<<", "Clt_9", "Clt_6", "Clt_3", "Clt_,", "Clt_¹/x", "Clt_÷", "Clt_ * ", _
        "Clt_ - ", "Clt_ + ", "Clt_=", "Clt_R", "Clt_f")).Select
    Selection.Placement = xlFreeFloating
    Application.CommandBars("Format Object").Visible = False
    ActiveCell.Select

Code que j'ai mis en fin du code "Sub Affiche_Calculette"

et ça semble bien fonctionner

et : la calculette AFFICHEE n'est pas redimensionnée SI UNE LIGNE CHANGE DE HAUTEUR OU SI UNE COLONNE CHANGE DE LARGEUR
Je vais donc pouvoir l'utiliser.

Même si la fin fut un peu "difficile", je te remercie Pierre pour m'avoir passé ta calculette et pour ce que tu as modifié pour moi.
Bonne fin de journée à toutes et à tous.

Je joins le fichier tel que je l'ai modifié.
Bonne fin de journée à toutes et à tous,
amicalement,
arthour973,