Afficher une image en fonction du contenu de la cellule

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion fanny_746
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

fanny_746

XLDnaute Nouveau
Bonjour à tous,

J'utilise un tableau Excel pour suivre le stock de plus de 300 produits chimiques dans une entreprise. Je cherche à améliorer la lisibilité de ce tableau en intégrant des pictogrammes, pour la toxicité des produits notamment.

Je souhaite donc, en fonction du contenu de la cellule (F, Xn, Xi...) faire apparaître automatiquement le pictogramme de danger correspondant dans la même cellule, ou la cellule juste à côté...

J'ai essayé plusieurs méthodes qui fonctionnent en m'inspirant des archives de ce forum :
- affichage d'une image en fonction d'un menu déroulant (fonction DECALER)
- utilisation de la fonction SI (Photo=SI(Feuil1!$J$3="N";Feuil1!$B$2;Feuil1!$B$1)
... mais je ne m'en sort pas, je dois définir un nom, donc une formule pour chaque image !

Je pense que c'est possible, par l'intermédiaire d'une macro peut-être (si c'est vraiment nécessaire...) mais là je suis perdue...
Quelqu'un a-t-il une solution à mon problème ? 😕
Je n'ai peut-être pas été très claire donc vous trouverez ci-joint une présentation simplifiée de mon tableau...

Merci d'avance.
Fanny
 

Pièces jointes

Trier par date Trier par votes
Re : Afficher une image en fonction du contenu de la cellule

Sans vouloir abuser de ton savoir...
Je me retrouve maintenant avec un autre cas de figure :
Pour faire simple, j'ai une colonne programmée pour afficher 1 ou 2 ou rien, en fonction du contenu des colonnes précédentes. J'aimerais qu'à la place du 1 s'affiche l'image1, à la place du 2 s'affiche l'image2, ou rien si la cellule est vide...
J'ai essayé d'adapter ta macro précédente mais je m'y perd !
Ci joint mon tableau,
Merci d'avance.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Afficher une image en fonction du contenu de la cellule

Merci Jouxte mais je n'ai pas bien compris l'exemple que l'on trouve via ton lien...
Je cherche qqch de plus simple, sans l'intervention d'une macro si possible.
Une colonne :
- si cellule = "1", Image1 s'affiche dans la cellule
- si cellule = "2", Image2 s'affiche dans la cellule
Merci pour ton aide,
Fanny.
 
Vote positif 0 Vote négatif
Re : Afficher une image en fonction du contenu de la cellule

Bonjour à tous

J'ai pas mal travaillé sur les images ces derniers temps (A cause de toi 😀)

Voici 3 fichiers, Dont un qui remplace la precedente macro complementaire que je t'ai fournie (le .xla)

Un fichier exemples d'affichage d'images à l'aide de :
1- listes de validation
2- ComboBox de type formulaire
3- Combobox de type boite de controle
4- Menus Contextuels
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Afficher une image en fonction du contenu de la cellule

re: (Suite à MP)

regarde la macro de copie, elle fonctionne bien mais regarde avant la feuil2, j'ai preparé la reception en formatant les lignes de la bonne Hauteur et le colonnes De la bonne largeur

ton fichier en retour
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Afficher une image en fonction du contenu de la cellule

Wilfried,

Je ne peux pas vraiment adapter ta macro à la mienne car la macro source est complexe (cf. ci-dessous) : elle filtre et extrait des données de plusieurs classeurs, qui sont copiées dans un modèle de doc ("VOTREARMOIRE").

Elle est un peu indigeste 😛 mais tu trouveras en gras ce que j'ai rajouté pour copier mes colonnes contenant les picto... et le résultat sur le fichier ci-joint.

Je ne sais pas trop comment faire, j'ai l'impression que c'est lors de l'extraction que ça beugue... Je pensais à essayer d'extraire seulement les croix et mettre une macro dans la feuille de destination pour que quand elle repère une "x", l'image soit automatiquement insérée (cad adapter ta macro).

Qu'en penses-tu ?



' Mis à jour le 05/09/2007

Const Bas_Tablo = 363 'indice dernière ligne STOCKMAX : A EVENTUELLEMENT ACTUALISER !!!

Public Date_Maj As String
Public Nom_Corr As String
Public Nom_Gest As String
Public Nom_Service As String
Public Nom_UE As String
Public VArmoire As String


Private Sub Commandbutton1_Click()
' Gestionnaire d'erreurs
On Error GoTo DesErreurs

' Mémorise le choix d'armoire PC
VArmoire = UserForm1.ComboBox1

' Cherche la colonne de l'APC choisie
i = 29 'indice "0" des colonnes armoires : A EVENTUELLEMENT ACTUALISER !!!
Do
i = i + 1
Loop Until Cells(10, i) = VArmoire

' Sélectionne la feuille STOCKMAX et filtre la colonne APC (choisie dans le combo) avec valeurs <> 0
Worksheets("STOCKMAX").Range(Cells(12, i).Address & ":" & Cells(Bas_Tablo, i).Address).AutoFilter _
Field:=i, Criteria1:="<>"

' Efface données de VOTREARMOIRE et copie les nouvelles de STOCKMAX vers VOTREARMOIRE
Worksheets("VOTREARMOIRE").Range("A7:F11").ClearContents
Worksheets("VOTREARMOIRE").Range("A16:W" & Bas_Tablo).ClearContents
Worksheets("STOCKMAX").Range("B12:E" & Bas_Tablo).Copy
Worksheets("VOTREARMOIRE").Paste Destination:=Worksheets("VOTREARMOIRE").Range("A16")
Worksheets("STOCKMAX").Range("H12:H" & Bas_Tablo).Copy
Worksheets("VOTREARMOIRE").Paste Destination:=Worksheets("VOTREARMOIRE").Range("W16")
Worksheets("STOCKMAX").Range(Cells(12, i).Address & ":" & Cells(Bas_Tablo, i).Address).Copy
Worksheets("VOTREARMOIRE").Paste Destination:=Worksheets("VOTREARMOIRE").Range("V16")
Worksheets("STOCKMAX").Range("I12:R" & Bas_Tablo).Copy
Worksheets("VOTREARMOIRE").Paste Destination:=Worksheets("VOTREARMOIRE").Range("E16")
Worksheets("STOCKMAX").Range("T12:AA" & Bas_Tablo).Copy
Worksheets("VOTREARMOIRE").Paste Destination:=Worksheets("VOTREARMOIRE").Range("N16")

' Cherche les infos l'amoire dans la feuille Armoires
Sheets("Armoires").Select
w = 1
While Cells(w, 1).Value <> ""
If Cells(w, 1).Value = VArmoire Then
Activité = Cells(w, 2).Value
Info_Compl = Cells(w, 3).Value
Nom_Corr = Cells(w, 4).Value
Nom_Gest = Cells(w, 5).Value
Date_Maj = Cells(w, 6).Value
Commentaire = Cells(w, 7).Value
End If
w = w + 1
Wend

' Ferme le userform
UserForm1.Hide

' Selection de VOTRE ARMOIRE et ajout des infos en entête
Worksheets("VOTREARMOIRE").Select
Worksheets("VOTREARMOIRE").Cells(3, 23).Value = Date_Maj
Worksheets("VOTREARMOIRE").Cells(5, 4).Value = "" & VArmoire
Worksheets("VOTREARMOIRE").Cells(7, 1).Value = "Activité"
Worksheets("VOTREARMOIRE").Cells(7, 4).Value = Activité
Worksheets("VOTREARMOIRE").Cells(8, 4).Value = Info_Compl
Worksheets("VOTREARMOIRE").Cells(9, 4).Value = Commentaire
Worksheets("VOTREARMOIRE").Cells(10, 1).Value = "Correspondant(e)"
Worksheets("VOTREARMOIRE").Cells(10, 4).Value = Nom_Corr
Worksheets("VOTREARMOIRE").Cells(11, 1).Value = "Gestionnaire(s)"
Worksheets("VOTREARMOIRE").Cells(11, 4).Value = Nom_Gest
i = 16
Do
i = i + 1
Loop Until Cells(i, 4) = ""
Worksheets("VOTREARMOIRE").PageSetup.PrintArea = Cells(1, 1).Address & ":" & Cells((i - 1), 23).Address

' Lance la page en printpreview
Worksheets("VOTREARMOIRE").PrintPreview

Exit Sub
DesErreurs:
If Err.Number = 91 Then
Date_Maj = Cells(5, 6).Value
Resume Next
End If

End Sub

Private Sub userform_activate()
' Gestionnaire d'erreurs
On Error GoTo DesErreurs
' Efface le combo et charge les infos dedans
UserForm1.ComboBox1.Clear
UserForm1.ComboBox1.AddItem "APC 1"
UserForm1.ComboBox1.AddItem "APC 2"
UserForm1.ComboBox1.AddItem "APC 3"
UserForm1.ComboBox1.AddItem "APC 4"
UserForm1.ComboBox1.AddItem "APC 5"
UserForm1.ComboBox1.AddItem "APC 6"
UserForm1.ComboBox1.AddItem "Bac C"
UserForm1.ComboBox1.AddItem "Bac D"
UserForm1.ComboBox1.AddItem "APC 7"
UserForm1.ComboBox1.AddItem "Frigo plasturgie"
UserForm1.ComboBox1.AddItem "APC 8"
UserForm1.ComboBox1.AddItem "APC 9"
UserForm1.ComboBox1.AddItem "APC 10"
UserForm1.ComboBox1.AddItem "APC 11"
UserForm1.ComboBox1.AddItem "APC 12"
UserForm1.ComboBox1.AddItem "APC 13"
UserForm1.ComboBox1.AddItem "APC 14"
UserForm1.ComboBox1.AddItem "APC 15"
UserForm1.ComboBox1.AddItem "Bac E"
UserForm1.ComboBox1.AddItem "APC 16"
UserForm1.ComboBox1.AddItem "APC 17"
UserForm1.ComboBox1.AddItem "APC 18"
UserForm1.ComboBox1.AddItem "Bac dégraisseur"
UserForm1.ComboBox1.AddItem "Bac A"
UserForm1.ComboBox1.AddItem "Bac B"
UserForm1.ComboBox1.AddItem "Soute peinture"
UserForm1.ComboBox1.AddItem "APC 19"
UserForm1.ComboBox1.AddItem "APC 20"
UserForm1.ComboBox1.AddItem "Local produits d'entretien"
' Selectionne STOCKMAX et supprime les filtres
Worksheets("STOCKMAX").Select
Worksheets("STOCKMAX").ShowAllData
Exit Sub
DesErreurs:
If Error = "La méthode ShowAllData de la classe Worksheet a échoué." Then
Resume Next
End If
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Afficher une image en fonction du contenu de la cellule

Re:

j'ai vu, mais je n'ai pas vaincu 😕

Bon tes croix se mettent bien, les images, issues d'une feuille de taille et de position differente, se mettent n'importe ou ! 😱

Donc supprimer les images dans la feuille de reception, (tu as la procedure dans le dernier fichier joint) et adapter le macro pour integrer les images en fonction des croix et de la taille de la cellule !

ai je tout compris ?

@ te lire
 
Vote positif 0 Vote négatif
Re : Afficher une image en fonction du contenu de la cellule

C'est bien ça 🙂
Mais il faut que je précise la situation : mon fichier de suivi des produits est partagé, les responsables de labo y sélectionnent leur armoire de produits chimiques et grâce à la macro indigeste précédente, ils peuvent directement récupérer la feuille de stock de l'armoire, l'imprimer et l'afficher...
Donc : il faudrait que la macro supprime comme une grande les images qu'elle a mis n'importe où dans la feuille de réception, et qu'elle intègre automatiquement les picto sur les croix (sans avoir à cliquer), ceci à la taille de la cellule ; tout cela pour que la personne ait simplement à cliquer sur "Imprimer".
Si j'y crois très très fort, peut-être que ça pourra marcher ?! 😛
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
Microsoft 365 afficher image selon valeur cellule
Réponses
2
Affichages
208
juju91
J
A
  • Question Question
XL 2021 Comment préserver la première valeur d'une cellule uniquement si
2 3
Réponses
31
Affichages
499
Alamyr
A
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
fanch55
pascal21
  • Question Question
XL 2019 coloriser une partie du contenu de la cellule
Réponses
8
Affichages
177
mapomme
mapomme
Y
  • Résolu(e)
XL 2016 Remplacer du texte par une image dans une application
Réponses
8
Affichages
204
OKBI
O
W
  • Résolu(e)
XL 2016 Changer la taille, la couleur, la graisse d'une partie du contenu de cellule
Réponses
5
Affichages
210
job75
job75
G
  • Question Question
Microsoft 365 Formule qui retourne le contenu de la cellule sélectionnée
Réponses
5
Affichages
300
Guy_M
G
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
331
TooFatBoy
TooFatBoy
Philarête
  • Question Question
XL pour MAC Mise en forme conditionnelle de cellules adjacentes en fonction du contenu d'une cellule
Réponses
8
Affichages
217
sylvanu
sylvanu
R
  • Question Question
XL 2019 Paramètres de la fonction GRANDE.VALEUR
Réponses
8
Affichages
242
Hamid FLISSI
Hamid FLISSI
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
232
Yogean
Y
R
  • Question Question
XL pour MAC Action d'une formule conditionnelle dans une cellule en fonction de la couleur de cette cellule
2
Réponses
17
Affichages
482
rtlv17
R
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
367
spike29
S
S
  • Résolu(e)
XL 2021 "Blocage de la mise a jour d'une cellule"
Réponses
8
Affichages
254
Steph733
S
nrdz83
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
212
job75
job75
M
  • Question Question
Microsoft 365 Fonction Index ( sélectionner la Matrice en fonction de cellule
Réponses
3
Affichages
139
manuZ51
M
Y
  • Résolu(e)
XL 2013 Bloquer la saisie dans une plage selon un critère
Réponses
6
Affichages
344
TooFatBoy
TooFatBoy
E
  • Question Question
Microsoft 365 Changement valeur de cellule en cliquant sur une autre cellule
Réponses
3
Affichages
137
Dudu2
Dudu2
A
  • Question Question
XL 2010 Surligner texte en fonction d'une valeur en cellule K
Réponses
7
Affichages
256
ascal44
A
T
  • Résolu(e)
XL 2010 VBA - Insérer image proportionnelle à la taille de la cellule
Réponses
8
Affichages
211
job75
job75
Retour