Bonjour à toutes et à tous,
comme par le passé, j'aurais besoin d'aide sur une problématique que je n'arrive pas à résdoudre malgré les recherches sur le forum : comment afficher une image en fonction du résultat d'une cellule...
Une fichier valant mieux que de longs discours, il est joint. D'avance merci à cette sympathique communauté.
Bonne journée
Philippe
Merci pour la réponse, je connaissais ce fichier, mais ça ce marche pas... après avoir bidouillé les insertions noms décaler et autres, je coince, et dans mon cas il n'y a pas de fichier déroulant et plusieurs images....merci
Bonsoir à toutes et à tous,
malgré les bons fichiers exemples que l'on trouve ci-joint sur ce post, je ne trouve pas de solution à ce problème : un tableau de 10 colonnes et 100 lignes, avec 15 codes différents, (100 patients avec pour chacun 10 choix), que je voudrais pouvoir afficher sous forme de pictogrammes)... donc dans une cellule Si on trouve un code CA par exemple on affiche un pictogramme, j'ai essayé du genre =SI(B3="CA";image1.jpg...un bon fichier vaut mieux que bien des discours.
Merci
Bien cordialement
Function AfficheCache(nb, seuil, image)
If nb > seuil Then
ActiveSheet.Shapes(image).Visible = True
Else
ActiveSheet.Shapes(image).Visible = False
End If
afffichecache = 0
End Function
Function AfficheImage(image)
Application.Volatile
ActiveSheet.Shapes(image).Left = Range(Application.Caller.Address).Left
ActiveSheet.Shapes(image).Top = Range(Application.Caller.Address).Top
AfficheImage = 0
End Function
Bonsoir, et merci,
ces codes sont très intéressants, pour un tableau de bord, mais dans mon cas il y a 15 images différentes dans 1000 cellules....je veux juste remplacer automatiquement un code par l'image correspondante.
Vous me direz pourquoi ne pas mettre directement les images : c'est plus compliqué , pas de liste de validation...
Bonjour tout le monde,
désolé de m'intégrer dans votre fil, masi plutôt que d'en créer un nouveau je m'invite avec vous. d'autant que mon problème est lié à la fonction SI.
Comment reproduire par macro dans worksheet1_open
la formule suivante pour toute la colonne de J2:J65536.
=SI(F37="texte1";"t1";SI(F37="texte2";"t2";SI(F37="texte3";"t3"; SI(F37="texte4";"t4";"mar"))))
je suis certain que c'est tout simple mais là j"ai un blanc!? désolé philmar et les autres.
Bonsoir,
Lii, j'ai mis le code, je l'ai modifié mais à priori quand on effectue des modifications il se contente de recoller les images sans supprimer celles qui n'ont plus lieu d'être..Est-ce qu"on peut y remédier?
Merci
A+
Philippe
Bonjour le forum, le fil
Un exemple en PJ avec l'utilisation de l'apareil photo
Puis on renomme la photo
ensuite la formule est dans Insertion > Nom > définir.
Je l'utilise assez souvent
A voir si adaptable à ton cas
A++
Lio