AIDE pour une Macro SVP

[toff300583]

Bonjour à tous,
Je vous sollicite encore une fois si vous le voulez bien.
Je voudrais quand on sélectionne en B23 « EN 13480-3 », qu’il ait en A30 le texte existant. Par contre quand on choisit en B23 « CODETI 95 », qu’il ait à la place du texte, l’image jointe et quand on choisit « ASME B31.1 », A30 et B29 soient blanches.
Merci d’avance

 

[Catrice]

Re : AIDE pour une Macro SVP

Bonjour,

Une solution ci-jointe avec des noms variables dans la feuille et une MFC pour masquer B29

 

[toff300583]

Re : AIDE pour une Macro SVP

Merci CATRICE,
Ca marche
Est ce que par contre tu pourrais me décrir toutes les démarches pour le refaire surtout au niveau de l'Interface.
Merci

 

[Catrice]

Re : AIDE pour une Macro SVP

Bonsoir,

En fait dans Feuil1, je stocke les images.
Les images sont positionnées sur des zones de tailles égales :
$A$1:$F$19
$A$20:$F$38
$A$39:$F$57 (elle est vierge, seul le fond est coloré)

Dans Insertion/Nom/Définir, je définis 3 noms Nom1, Nom2 et Nom3 qui correspondent aux zones ci-dessus.

Ensuite, j'ai utilisé l'outil "Appareil photo" qu'il faut aller chercher dans :
Affichage/barre d'outils/Personalisé/commandes.
Catégorie "Outils" (dans la 2eme partie de la zone "Commandes")
Glisser cet outils dans une Barre existante puis cliquer "Fermer"

L'outil "Photo" permet de "photographier" une zone.
Dans la feuille "Interface" selectionner une zone quelconque, cliquer sur l'outils photo puis cliquer ailleurs dans la feuille.
Un objet apparait copie conforme de la zone selectionnée (une réference à cette zone apparait dans la barre de formule).
Redimensionner l'objet obtenu et le placer sur la zone A30:C38 de "Interface".
Dans la barre de formule, remplacer la reference par =MonImage

"MonImage" est un nom (CTRL+F3 pour voir) qui refere à :
=INDIRECT("Nom"&EQUIV(Interface!$B$23;{"EN 13480-3";"CODETI 95";"ASME B31.1"};0))
En fonction de ce qui est saisi en B23, on choisit une des 3 zones de la feuille Feuil1 (Nom1, Nom2, Nom3)

Pour l'effacement de B29, se positionner en B29 et aller dans Format/Mise en forme conditionnelle pour voir la formule.