formule pour afficher une image selon critere

[BLACKHAYES]

Bonjour le forum,

Existe t'il une formule simple dans a mettre dans une cellule pour que selon un critere une image JPEG ou Bitmap

s'affiche ou pas;

Ex: Si(D8="oui";"Toto";"")

sauf que je voudras remplacer "Toto" par l'affichage d'une image

est ce possible !!!!!?????

Amicalement,

a bientot

 

[DoubleZero]

Re : formule pour afficher une image selon critere

Bonjour, BLACKHAYES, le Forum,

Un essai en pièce jointe.

A bientôt 🙂

 

[BLACKHAYES]

Re : formule pour afficher une image selon critere

bonjour Doublezero, bonjour le forum,

oui parfait c'es exactement ce que je cherchais a faire.

Mais comment faire, pour le refaire avec une autre image ou sur un autre dossier.

comment avez vous fait !!!!

sinon bravo

Cordialement,

 

[DoubleZero]

Re : formule pour afficher une image selon critere

Bonjour, BLACKHAYES, le Forum,

1 - saisir oui, en D8, afin que l'image apparaisse ;

2 - supprimer le papillon ;

3 - insérer l'image souhaitée, présente dans le fichier de travail ou tout autre répertoire ;

4 - sélectionner et nommer la nouvelle image (dans la zone blanche située juste au dessus de la cellule A1, à gauche de la barre de formule) ;

5 - si le nom donné à l'image est différent de "toto", modifier le nom présent dans le code de cet onglet ;

6 - "Option Compare Text", en début de macro, permet de ne pas distinguer les majuscules des minuscules. "OUI" et "oui" peuvent donc être saisis pour faire apparaître l'image. Si la casse est importante, supprimer cette option.

Bon courage et à bientôt 🙂

 

[BLACKHAYES]

Re : formule pour afficher une image selon critere

Bonjour DoubleZero; bonjour le forum,

ok, j'ai reussi merci a vous, c'est genial;

juste une petite derniere question; quelle est la modification du code si je veux avoir plusieurs cellules quelconque qui afficherait différente image selon le critere alloué .

j'ai essayé de doublé le code avec une cellule et un nom d'image different, mais cela me met en conflit ?,,,,

avez une solution !!!?

Cordialement

 

[DoubleZero]

Re : formule pour afficher une image selon critere

Re-bonjour,

Cf. le fichier joint.

A bientôt 🙂

 

[BLACKHAYES]

Re : formule pour afficher une image selon critere

Bonsoir Doublezero,

Et oui bien sur, c'est genial, ca fonctionne a merveille.
j'avais bien doubler le code mais j'avais omis de changer le nom "toto" dans les 2 guillemets, je l'avais fait sur les premiers, mais pas sur les deuxieme.

grosse erreur de ma part, et donc desolé de vous avoir deranger pour cette erreur, j'aurais du faire plus attention
encore une fois mille merci a vous.

a bientot

 

[JCGL]

Re : formule pour afficher une image selon critere

Bonjour à tous,
Salut 00,

Puis-je me permettre ma très chère Annesse :

Option Explicit
Option Compare Text


Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Shapes("toto").Visible = IIf([D8].Value = "oui", True, False)
    ActiveSheet.Shapes("coccinelle").Visible = IIf([G1].Value = "oui", True, False)
    ActiveSheet.Shapes("signature").Visible = IIf([K4].Value = "oui", True, False)
    ActiveSheet.Shapes("cosmos").Visible = IIf([M17].Value = "oui", True, False)
End Sub

Bises++
A+ à tous

 

[DoubleZero]

Re : formule pour afficher une image selon critere

Bonjour, BLACKHAYES, JCGL, le Forum,

... erreur de ma part, et donc desolé de vous avoir deranger pour cette erreur...

@ BLACKHAYES,

Qui ne fait pas d'erreur ? Soyez rassuré, celle-ci n'a causé aucun dérangement 🙂.

... Puis-je me permettre ma très chère Annesse

@ JCGL,

Un grand merci de t'être permis + bises itou 😀.

A bientôt 🙂🙂

 

[Pierrot93]

Re : formule pour afficher une image selon critere

Bonjour BLACKHAYES, 00🙂, Jean-Claude🙂,

En partant du code de Jean-Claude, ceci devrait également fonctionner...

Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
    With Me
        .Shapes("toto").Visible = [D8].Value = "oui"
        .Shapes("coccinelle").Visible = [G1].Value = "oui"
        .Shapes("signature").Visible = [K4].Value = "oui"
        .Shapes("cosmos").Visible = [M17].Value = "oui"
    End With
End Sub

bonne journée
@+

 

[natorp]

Re : formule pour afficher une image selon critere

Sorry, ma question n'a pas lieu d'être là, je crée une nouvelle discussion

Gérard

 

[BLACKHAYES]

Re : formule pour afficher une image selon critere

Bonjour, JCGL, Doublezero, Pierrot93, le forum,

Merci a vous,de vous etres penchés sur mon probleme, toutes vos solutions fonctionne a merveille.

il n y a rien a dire cest top. je vais donc adapter votre travail au mien pour finaliser mon projet.

Grands merci a vous tous.

Juste une derniere petite question, j'ai posté un autre projet sous l'intitulé voir ci dessous

"XL 2003] petit programme pour enregistrer des mots de passe"

je n'ai aucune reponse, sauf une qui me froisse un peu et a laquelle j'ai repondu, mais ce n'est pas le travail de ce site.
alors pour me rassurer, pouvez me dire, en allant le regarder, ou ais je commis des erreur dans ma demande, ou estce que mon probleme est realisable.

amicalement a vous ,

a bientot

 

[JCGL]

Re : formule pour afficher une image selon critere

Bonjour à tous,
Salut Pierrot,

En partant du code de Pierrot, ceci devrait également fonctionner...

Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
        Me.Shapes("toto").Visible = [D8] = "oui"
        Me.Shapes("coccinelle").Visible = [G1] = "oui"
        Me.Shapes("signature").Visible = [K4] = "oui"
        Me.Shapes("cosmos").Visible = [M17] = "oui"
End Sub

A+ à tous