Afficher-cacher un dessin selon la valeur d'une cellule - RÉSOLU

[GUGUSSE2]

Bonjour,

Merci à la communauté pour avoir résolu mon problème "d'entrée" dans mon tableau.
Il s'agit de savoir de combien de dents il faut tourner les engrenages pour avoir un angle défini (soit par l'angle, soit par le nombre de division sur le cercle) au niveau de la broche (diviseur simplifié).
Dans certains cas, il faut tourner les engrenages dans le même sens, dans d'autres, il faut les tourner en sens inverse.
Il y a bien le signe "-", mais comme un petit dessin vaut mieux qu'un long discours, je voudrai afficher l'un ou l'autre des deux dessins.
J'ai essayé de les masquer, mais comme il y a de la couleur, je ne peux pas TOUT cacher.
Je joue sur la mise en forme conditionnelle, mais je ne suis pas entièrement satisfait.
Je vous pose donc un nouveau défit :
faire apparaître le dessin qui convient et les cacher quand il y a lieu.

Merci à vous,
cordialement,
GUGUSSE2

 

[GUGUSSE2]

J'avoue ma nullité en la matière :
sur ce dernier exemple, si je change la couleur des images, la modification apparait bien.
Mais si je supprime une image pour en créer une autre avec le même nom, il y a un "bug".
Et je ne comprend pas le "mode d'emploi" :

le clic droit ne permet permet de sélectionner l'image, comme le clic gauche d'ailleurs, mais après, comment "modifier" son nom ?

Ne serait-il pas plus simple de m'expliquer pas à pas comment faire pour que les images modifiées dans la "feuille images" soient prises en compte et apparaissent dans la "feuille calcul" ?

Je rappelle que je ne cherche pas à devenir "pro" du VBA, mais que je cherche à avoir un programme le plus ergonomique (selon moi) possible en lui apportant au fur et à mesure des besoins (des idées nouvelles, des suggestions, ...) les modifications nécessaires.

Laissais-tu tes élèves se débattre à se point, même si la solution est "évidente" ?

Cordialement,
GUGUSSE2

 

[phlaurent55]

Re-bonjour,

le clic droit ne permet permet de sélectionner l'image, comme le clic gauche d'ailleurs, mais après, comment "modifier" son nom ?

Explication sur ces deux photos,

j'ai inséré une image sur la feuille
elle se nomme Picture 1

Je sélectionne cette image et je change le nom (Laitue) et je n'oublie pas de presser "Enter" pour que le nouveau nom soit pris en compte

à+
Philippe

 

[Si...]

re

Laissais-tu tes élèves se débattre à se point, même si la solution est "évidente" ?
GUGUSSE2

Tu confonds, non* ?
Tu as bien dit "une image vaut …". C'est souvent vrai mais si l'image est mal lue …
Je pensais que, sachant où apparaît le nom de l'image (suivre les flèches sur mon dessin), tu saurais vite changer celui-ci.

*N'étant pas professeur - si tant est que je le sois - d'Arts Plastiques, je vais m'exercer à la dissertation dans l'ultime fichier proposé.
Une erreur fréquente est de saisir, dans le cadre, la nouvelle dénomination et de sortir en cliquant ailleurs donc sans valider (touche Entrer) ce changement. Comme le précise aussi Philippe.

Macro ou pas, Formules ou pas, leur création exige de connaître le contexte définitif pour éviter des interférences néfastes.

J'aime bien distribuer des images donc tu en auras une de plus dans le second fichier où, miracle, il n'y a plus de macro !

 

[GUGUSSE2]

@ phlaurent55 et Si...,

Merci de revenir, je me sentais soudainement un peu seul.

Dans vos exemple, j'arrive à nommer les images, mais j'en fais quoi après ?
et tout se passe bien.
Dans vos exemples, si je modifie les images, si j'en ajoute, les nomme et allonge la liste (clic.xlms), l'affichage "suit", ce qui n'est pas le cas dans le programme du diviseur.
Je me demande à quoi peut me servir ces apprentissages (avec ou sans macro-VBA) pour le problème que j'ai :
comment faire pour que les modifications apportées aux images de mon programme sur le diviseur soient prises en compte à l'affichage ?
Faut-il les redéclarer (comment) ?
Y a t-il une ligne du VBA à modifier ?
Quel est le rapport entre ce que vous m'avez proposé dernièrement et mon problème ?
Est-ce que je dois réinventé ce que vous avez fait ?

Ci-joint le fichier avec les dernières modifications (sans doute pas définitives) des images.

Cordialement,
GUGUSSE2

 

[phlaurent55]

Re,

comment faire pour que les modifications apportées aux images de mon programme sur le diviseur soient prises en compte à l'affichage ?
Faut-il les redéclarer (comment) ?
Y a t-il une ligne du VBA à modifier ?

Si une image a été modifiée et si en plus son nom a changé, il sera absolument nécessaire que le nouveau nom de l'image à afficher soit utilisé dans le code VBA

Si le(s) nom(s) d'image(s) change(nt) à chaque utilisation du fichier, il faudra aussi modifier le(s) code(s) en conséquence.

à+
Philippe

 

[GUGUSSE2]

bonjour,

Il ne s'agit pas de modifier les images à chaque utilisation mais quand le besoin de clarifier la présentation se fait sentir.
Il ne s'agit pas non plus de changer les noms, mais JUSTE de modifier le graphisme !
Dans le fichier joint ici, à l'affichage, l'image "rotation dans le même sens" porte le nom "groupe 1" dans la feuille "calcul" ET dans la feuille "images".
De même pour l'image "rotation sens inverse" avec le nom "groupe 2".
Les noms sont cohérents avec le VBA et pourtant à l'affichage, je ne vois pas mes nouveaux dessins !

Je ne trouve AUCUNE explication logique à tout cela.
A défaut de bien vouloir m'expliquer le pourquoi de la chose, acceptes-tu de me faire apparaître les images de la feuille "images" et ce programme restera figé sous cette forme, sans possibilité d'évoluer !

Cordialement,
GUGUSSE2

 

[phlaurent55]

Re,

Dans le fichier joint ici, à l'affichage, l'image "rotation dans le même sens" porte nom le "groupe 1" dans la feuille "calcul" ET dans la feuille "images".
De même pour l'image "rotation sens inverse" avec le nom "groupe 2".

Je viens de constater que dans la feuille "Calcul", les images sont nommées "Group 1" & "Group 2"
alors que sur l'autre feuille elles sont nommées "Groupe 1" & "Groupe 2"

il est nécessaire de remettre un peu de cohérence dans le classeur

à+
Philippe

 

[GUGUSSE2]

Bonsoir,

J'avoue ne pas avoir fait attention à cette différence et je te prie de m'excuser (de t'obliger à me rappeler à l'ordre).
Mais même avec les "bons" noms (copier-coller depuis VBA), le problème reste entier !

Cordialement,
GUGUSSE2.

 

[phlaurent55]

Re,

.... et comme ceci:
si ça convient, je ferai un peu de nettoyage de cet horrible code

à+
Philippe

 

[phlaurent55]

re,

le même fichier légèrement nettoyé au point de vue code

à+
Philippe

 

[GUGUSSE2]

Bonsoir,
Cela me semble correct, mais (excuses-moi d'insister) :
- N'ayant plus de feuille "images", je suis donc obligé de modifier (uniquement si cela s'avère nécessaire) les dessins, quand ils sont affichés, directement sur la feuille "calcul" (ôter la protection, décomposer, modifier, regrouper et remettre le nom précédent) ?
- la protection est-elle nécessaire au fonctionnement global (autrement dit, peut-elle être enlevée) ?

Je viens de voir que tu avais "épuré" le code. Il me parait plus "accessible" au néophyte que je suis.
Mes deux interrogations restent d'actualité.

Merci de ton aide.
Bon dimanche,
cordialement,
GUGUSSE2

 

[GUGUSSE2]

Bonjour à tous,

Ça y est !
Je gère la protection de la feuille (j'ajoute ou efface une coche devant "ActiveSheet.Protect" pour modifier - utiliser le programme.
Je sais maintenant modifier les images de la feuille "calcul", pas besoin de les décomposer.
Je crois être arrivé à mes fins, grâce à vous.
Je joins le résultat final.
Je vais créer un fichier similaire, mais avec les pignons de 50 et 80 dents pour arriver à 400 divisions.

Cordialement,
GUGUSSE2

 

[phlaurent55]

Re-Bonjour,

- N'ayant plus de feuille "images", je suis donc obligé de modifier (uniquement si cela s'avère nécessaire) les dessins, quand ils sont affichés, directement sur la feuille "calcul" (ôter la protection, décomposer, modifier, regrouper et remettre le nom précédent) ?
- la protection est-elle nécessaire au fonctionnement global (autrement dit, peut-elle être enlevée) ?

J'ai supprimé la feuille "images" parce qu'elle n'était pas nécessaire mais aussi parce que ça compliquait les codes VB

Tu peux modifier les images (groupe) à condition qu'ils conservent les mêmes noms que ceux qu'on retrouve dans le code VB

La protection n'est pas nécessaire au fonctionnement mais perso, je la conserverais car cette protection permet de "ne pas s'égarer" sur la feuille.
Avec cette protection, seules deux cellules sont sélectionnables et modifiables.

Ça y est !
Je gère la protection de la feuille (j'ajoute ou efface une coche devant "ActiveSheet.Protect" pour modifier - utiliser le programme.
Je sais maintenant modifier les images de la feuille "calcul", pas besoin de les décomposer.
Je crois être arrivé à mes fins, grâce à vous.

Content de voir que cela se termine +/- bien

à+
Philippe