XL 2013 Afficher image dans Excel

[Marie bdt]

Bonjour Jae souhaiterais faire apparaître une image en fonction du résultat d'une cellule. Ce n'est pas une liste déroulante.
Par exemple
J'ai un registre de remplissage de matière dans un contenant.
Dans un autre onglet on représente une fiche qui synthétise l'ensemble de chaque ligne du registre si on sélectionne le numéro du conteneur dans une liste déroulante.
Mon souhait c'est que sur cette fiche je puisse faire apparaître des image associé au résultat d'une cellule qui a une formule en recherchev.
Merci pour votre aide.

 

[sylvanu]

Bonjour Marie,
Un petit essai en PJ, avec deux macros :
Cette première est événementielle et détecte un changement de valeur dans une cellule.

Public msValeurSave
Sub Worksheet_Calculate()
    If Range("B12").Value <> msValeurSave Then
        Invisible
        ActiveSheet.Shapes(Range("B12").Value).Visible = True
        msValeurSave = Range("B12").Value
    End If
End Sub

Cette deuxième rend invisibles toutes les images trouvées.

Sub Invisible()
s = ActiveSheet.Shapes.Count
For i = 1 To s
    ActiveSheet.Shapes(i).Visible = False
Next i
End Sub

 

[jmfmarques]

Bonjour à tous

Cette deuxième rend invisibles toutes les images trouvées.
s = ActiveSheet.Shapes.Count
For i = 1 To s
ActiveSheet.Shapes(i).Visible = False
Next i

Pas uniquement les images ...

 

[sylvanu]

Re,
Dans l'ex donné, si.
Tous les shapes si vous préférez. Mais je n'ai jamais eu l'outrecuidance de donner un ex universel, surtout sans contexte ni fichier ex.
Marie cherche un principe. Il est là. Reste à l'exploiter avec son propre contexte.

 

[jmfmarques]

L'essentiel est que Marie bdt soit parfaitement consciente de ce qu'un tel code agirait sur tous les objets shapes (y compris donc les contrôles formulaires et les activex), tant présents qu'éventuellement ajoutés ensuite à sa feuille
Il est à mon sens important de le lui signaler d'ores et déjà.

 

[sylvanu]

Il eût suffi que vous précisiez à Marie de changer la ligne par :

if ActiveSheet.Shapes(i).Type=13 then ActiveSheet.Shapes(i).Visible = False

Ceci étant dit, c'est totalement inutile car dépendra essentiellement de son fichier. Si d'autres images ne sont pas concernées, la solution sera de toute façon autre comme précisé dans le fichier.
Mais je pense qu'à ce moment Marie reviendra vers nous pour trouver une solution.

 

[patricktoulon]

Bonjour @Mary bdt, @sylvanu, @jmfmarques
c'est bien le soucis de la classe pictures encore qui n'est plus vraiment suivi
il faut passer par le msotype

Sub test()
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then shp.Delete
    Next
End Sub

seules les pictures seront touchées
@sylvanu on c'est croisés

 

[sylvanu]

Re bonjour le fil,
Patrick, shp.Type = 13 et shp.Type = msoPicture, c'est la même chose.

MsoShapeType Énumération (Microsoft.Office.Core)

Spécifie le type d'une forme ou d'un ensemble de formes.

docs.microsoft.com

 

[patricktoulon]

oui sylvanu on c'est croisé c'est tout

 

[D.D.]

Il faut impérativement du VBA ?
On peut le faire sans, sinon. De deux manières différentes je crois d'ailleurs.

 

[sylvanu]

Bonjour DD, le fil,
Présentez vos deux solutions à Marie, elle n'aura plus que l'embarras du choix.
Car VBA ou pas, c'est toujours intéressant de voir plusieurs méthodes.

 

[D.D.]

Bonjour,

Un classeur avec les 2 techniques sans VBA
L'une est basé sur le gestionnaire de nom et l'appareil photo. Elle admet plusieurs images selon le choix
L'autre est basé sur un graphique associé à une texture en image.

 

[sylvanu]

Bonjour,
Je ne connaissais pas la seconde technique.
A approfondir. Que se passe t-il si les images n'ont pas la même taille ? Je vais regarder pour voir s'il les conserve tel quel ou si il modifie les proportions de l'image.
En tout cas merci.

 

[Marie bdt]

Bonjour,

Un classeur avec les 2 techniques sans VBA
L'une est basé sur le gestionnaire de nom et l'appareil photo. Elle admet plusieurs images selon le choix
L'autre est basé sur un graphique associé à une texture en image.

Merci je connaissais la première technique que j'ai d'ailleurs essayé. Le problème est que je veux pas sélectionner le nom dans un menu déroulant. Je veux que l'image s'affiche en fonction d'une cellule contenant une fonction recherchev.
Je vais essayer la deuxième pour voir ce que ça donne.
Merci en tout cas

 

[D.D.]

Hello
La liste déroulante est juste un moyen d'avoir l'info.
Si tu remplaces la cellule par une formule, ca fonctionnera