XL 2013 Afficher image dans Excel

Marie bdt · 10 Juin 2020

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 · 10 Juin 2020

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.

VB:

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.

Code:

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

jmfmarques · 10 Juin 2020

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 · 10 Juin 2020

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 · 10 Juin 2020

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 · 10 Juin 2020

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

VB:

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 · 10 Juin 2020

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

VB:

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 · 10 Juin 2020

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 · 10 Juin 2020

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

D.D. · 10 Juin 2020

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

sylvanu · 10 Juin 2020

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. · 11 Juin 2020

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 · 11 Juin 2020

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 · 11 Juin 2020

D.D. à dit:
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. · 12 Juin 2020

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

XL 2013 Afficher image dans Excel

Marie bdt

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

jmfmarques

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

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

patricktoulon

XLDnaute Barbatruc

D.D.

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

D.D.

XLDnaute Impliqué

Pièces jointes

sylvanu

XLDnaute Barbatruc

Marie bdt

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

Discussions similaires