XL 2010 Résolu par Philippe : Afficher une image selon la valeur d'une cellule

[Usine à gaz]

Bonjour à toutes et à tous,

Me voilà butant sur un autre besoin.
Je souhaite faire apparaître dans une cellule une image selon le résultat d'une autre cellule.

J'ai téléchargé le classeur de Monsieur BOISGONTIER mais l'image s'affiche selon le résultat de 2 cellules.
Je tente depuis ce matin de le modifier mais je n'y arrive pas.

Encore une fois, un grand remerciement pour votre aide,
Bonne fin de dimanche à toutes et à tous,
Amicalement,
Lionel,

 

[vgendron]

Bonjour,

et quel est ton besoin exactement??
Dans la solution d JBoisgontier (que je salue s'il passe par la)
l'image dépend en fait bien d'une seule condition ... le numéro d'image.

Type de Pose en B3 dépend bien du type de charpente sélectionné en B2: il s'agit de liste en cascade

toi tu dis vouloir une image en fonction d'une seule cellule.
je présume que dans cette cellule tu mets directement le numéro de l'image-->voir cellule B33 - = liste de validation - Choix

 

[Usine à gaz]

Bonsoir vgendron,

Merci de m'avoir répondu .... j'étais sorti.
Bon sang ..... j'ai mis du temps car je n'avais pas vu la cellucle B33.
Vraiment je dois être trop fatigué LOl.
Merci de m'avoir guidé,
Bonne fin de dimanche,
Amicalement,
Lionel,

 

[Usine à gaz]

Bonjour Vgendron,
Bonjour à toutes et à tous,

En fait, je m'aperçois qu'après réflexion, je n'ai pas posé la bonne question.

En effet, mes fichiers ont beaucoup de lignes (plus de 10000 et encore plus). la multiplication des images risque de les alourdir fortement (déjà ça rame quelques fois LOL).

L'idéal serait de :
Est-il possible qu'en fonction du résultat (sélection) de la cellule J7, les images des autres couleurs soient masquées ?
Je joins un classeur test.

Avec mes remerciements,
Amicalement,
Lionel,

 

[phlaurent55]

Bonjour Lionel,

voir fichier joint

à+
Philippe

 

[Usine à gaz]

Bonjour Philippe,
Merci pour ce retour si rapide et si génial.
ça marche super.
Mais bon sang, elles passent où les images ? LOL
Je ne les vois plus et j'aurais voulu les mettre à la même place pour que l'affichage soit toujours au même endroit.
Amicalement,
Lionel,

 

[phlaurent55]

Re,

pour faire réapparaître les images, il faut remplacer False par True dans ce bout de code

For i = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Visible = False
Next i

ensuite, placer les images sur la feuille comme tu le désires
........... et ne pas oublier de remettre False avant de revenir faire les choix sur la cellule J7

à+
Philippe

 

[Usine à gaz]

Vraiment un grand merci pour ta gentillesse et ta rapidité et aussi pour ton code génial.
Amicalement,
Lionel

 

[phlaurent55]

Re,

voici les images empilées au même endroit (ou presque)

à+
Philippe

 

[Usine à gaz]

LOL, c'est magique, je ne m'en lasse pas

 

[phlaurent55]

Re,

Remplace le code par celui-ci, il est plus rapide

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J7")) Is Nothing Then
For i = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Visible = False
Next i
ActiveSheet.Shapes([J7]).Visible = True
End If
End Sub

à+
Philippe

 

[phlaurent55]

Re,

encore plus simple,
Les 6 images se trouvent empilées au même endroit
( et doivent avoir la même dimension )

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J7")) Is Nothing Then
ActiveSheet.Shapes([J7]).ZOrder msoBringToFront
End If
End Sub

à+
Philippe

 

[Usine à gaz]

Vraiment Merci Philippe

 

[Usine à gaz]

Re-Philippe,

C'est super, les images sont bien empilées au même endroit ..... magique tout ça

 

[Usine à gaz]

Bonjour Philippe,
Bonjour à toutes et à tous,

Philippe, je reviens sur mon souci d'affichage d'image.
J'avais très mal décrit mon souci.
Ce qui montre qu'il faut toujours prendre le temps de bien exposer toutes les données du résultat attendu.

Je m'en suis aperçu quand j'ai voulu intégrer vos codes dans mon fichier de travail .... et là, c'est une autre paire de manches LOL

J'ai, en Feuille 3 du classeur test refait mon besoin avec exactitude et je n'arrive pas à trouver comment coder pour obtenir ma solution.
Pourriez-vous encore m'aider.

Je pense avoir détaillé l'explication dans la feuille mais voilà ci-dessous :
le fonctionnement
1 - Sélection dans cellules M10 à M15 du texte
2 - la couleur s'affiche en colonne L
3 - La macro affiche la couleur de la dernière cellule de la colonne L

Important
dans le classeur de travail, il y a plus de 10000 lignes
Multiplier les formules des cellules de la colonne L (ici lignes 10 à 15)
alourdirait de beaucoup et ralentirait, je pense, son fonctionnement
Est-il possible d'afficher les couleurs par macro ?

Avec mes remerciements,
Je vous souhaite à toutes et à tous une bonne journée,
Amicalement,
Lionel,