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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

Pièces jointes

  • DVCascadeImage.xls
    566 KB · Affichages: 39

vgendron

XLDnaute Barbatruc
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
 

Pièces jointes

  • DVCascadeImage.xls
    680 KB · Affichages: 46

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

Pièces jointes

  • test forum masque immages.xlsm
    25.3 KB · Affichages: 31

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 
Dernière édition:

phlaurent55

Nous a quittés en 2020
Repose en paix
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
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Re,

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


Code:
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

Nous a quittés en 2020
Repose en paix
Re,

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

Code:
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
 

Pièces jointes

  • 111.xlsm
    31.5 KB · Affichages: 44

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

Pièces jointes

  • test forum masque immages 01.xlsm
    131.9 KB · Affichages: 43
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG