Afficher/cacher une image sous condition

Bonjour,

Je viens une fois de plus faire appel à vos lumières.

Voilà mon problème :

J'aimerais faire apparaître dans ma case B1 une image, si et seulement si, dans ma case A1 je retrouve une valeur supérieur à zéro. Sachant que mon image est collé en cellule C1.

J'ai donc bêtement essayé :

=SI(A1>0;C1;"")

Mais bien évidemment, c'est pas aussi facile.

Une idée ?

Merci d'avance.

Salut Max,

Peux-tu nous fournir un fichier exemple, s'il-te-plait ?

Cordialement

bonjour

un essai/ exemple a tester si ça va >>>>des explications

cordialement

Bonjour Tulipe,

Une solution est de coder en VBA dans l'évènement Change de le feuille l'affichage (visible) de la forme que tu as inséré:

Private Sub Worksheet_Change(ByVal Target As Range)

If Me.Cells(1, 1).Value = 1 Then

Me.Shapes(1).Visible = False

Else

Me.Shapes(1).Visible = False

End If

End Sub

Explication: à chaque changement dans cette feuille, on test la valeur de la cellule A1. Si la valeur = 1 alors on masque l'image

si valeur <>1 alors on affiche l'image.

Pour insérer ce code, passe dans l'éditeur VBA (ALT+F11) puis dans la liste déroulante, sélectionne "worksheet" et dans la seconde "change". Ainsi l'ossature du code est créé, tu n'as qu'a insérer la partie entre le if et le endif.

En espérant avoir été assez clair.

Pyfux

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.Cells(1, 1).Value <= 0 Then  ' pour que ça ne réagisse pas avec une valeur egale ou inferieur à 0
    Me.Shapes(1).Visible = False
Else
    Me.Shapes(1).Visible = True  'je pense que tu dois mettre la valeur sur vrai pour au moins une des 2 condition...   :D 
End If
End Sub

Moi je changerais ces deux petit truc...

bonjour en particulier aux vba iste

comme je suis preque nul en vba

comment fait -on pour plusieurs images et si les images sont sur une autre feuilles

ps j'ai bien compris ce code evennementiel a mettre dans le vbe de la feuille car l'objet est sur cette feuille ; ce qui m'interesserait et certainement Mac ooo ; c'est le cas de plusieurs images voire photos qui seraient stokées sur une autre feiulle

la solution d'aller les recuperer directement dans un dossier quequonque ne m'interesse pas ; "commençons par faire simple"

merci ;c'est pour ma culture perso

tulipe_3 a écrit :

comme je suis preque nul en vba

Désolé, mais je ne vois que du code VBA pour répondre à ton besoin.

bonjour pyfux

oui ;mais lequel ; c'etait ma question ; parce que autrement je sais faire

merci cordialement

Bonjour ,

Je déterre un vieux sujet car il correspond a ce que je cherche .

Cependant je ne comprend bien pas comment m'y prendre , pour nommer l'objet puis comment l'utiliser en VBA .

En gros j'aimerai faire apparaitre une flèche lorsque la cellule D8 est selectionnée et sinon la flèche n apparait pas, j'ai tenté queklque chose dans ce style tout en sachant que la commande shapes ne fonctionnerait pas .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("D8") = "" Then
        Shapes(Flèchedroite1).Visible = True
            Else
                Shapes(Flèchedroite1).Visible = False
    End If
End Sub

Si quelqu un peut me renseigner ca serait top .

Merci