afficher ou masquer des images en fct d'un contenu de cellule

Le
fb
Bonjour tout le monde,

D'abord merci à toutes les personnes qui s'arreteront sur ce message

Problème:
j'aimerais masquer ou afficher une image en fonction d'un contenu d'une
cellule
Y a t-il moyen de le faire sans passer par VBA (genre de format de cellule
conditionnel mais pour images)
Si il faut passer par VBA, pouvez me donner une brève explication de la
facon de procéder (niveau intermédiaire en VBA)

Merci d'avance pour toutes vos suggestion
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatanka
Le #5190581
Salut fb,

Essaie ceci.
En supposant que ton image se nomme Image1
et que la cellule concernée est A1 :
Fais un clic droit sur l'onglet de la feuille contenant ton image,
clique sur «Visualiser le code» et colle cette macro dans la
feuille vierge qui devrait apparaître :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [a1] Then
Set I = ActiveSheet.Shapes("Image1")
If [a1] = "non" Then
I.Visible = False
Else
I.Visible = True
End If
End If
End Sub

Serge



"fb"
Bonjour tout le monde,

D'abord merci à toutes les personnes qui s'arreteront sur ce message

Problème:
j'aimerais masquer ou afficher une image en fonction d'un contenu d'une
cellule
Y a t-il moyen de le faire sans passer par VBA (genre de format de cellule
conditionnel mais pour images)
Si il faut passer par VBA, pouvez me donner une brève explication de la
facon de procéder (niveau intermédiaire en VBA)

Merci d'avance pour toutes vos suggestion


JB
Le #5190551
Bonjour,

Alors iif()!

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Shapes("Image1").Visible = IIf(Target = "non",
False, True)
End If
End Sub

JB


On 19 mar, 15:22, "Tatanka"
Salut fb,

Essaie ceci.
En supposant que ton image se nomme Image1
et que la cellule concernée est A1 :
Fais un clic droit sur l'onglet de la feuille contenant ton image,
clique sur «Visualiser le code» et colle cette macro dans la
feuille vierge qui devrait apparaître :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = [a1] Then
        Set I = ActiveSheet.Shapes("Image1")
        If [a1] = "non" Then
            I.Visible = False
        Else
            I.Visible = True
        End If
    End If
End Sub

Serge

"fb"


Bonjour tout le monde,

D'abord merci à toutes les personnes qui s'arreteront sur ce message

Problème:
j'aimerais masquer ou afficher une image en fonction d'un contenu d'une
cellule
Y a t-il moyen de le faire sans passer par VBA (genre de format de cellu le
conditionnel mais pour images)
Si il faut passer par VBA, pouvez me donner une brève explication de l a
facon de procéder (niveau intermédiaire en VBA)

Merci d'avance pour toutes vos suggestion- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



JB
Le #5190541
ou

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Shapes("Image1").Visible = (Target <> "non")
End If
End Sub

JB

On 19 mar, 15:44, JB
Bonjour,

Alors iif()!

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        ActiveSheet.Shapes("Image1").Visible = IIf(Target = "n on",
False, True)
    End If
End Sub

JB

On 19 mar, 15:22, "Tatanka"


Salut fb,

Essaie ceci.
En supposant que ton image se nomme Image1
et que la cellule concernée est A1 :
Fais un clic droit sur l'onglet de la feuille contenant ton image,
clique sur «Visualiser le code» et colle cette macro dans la
feuille vierge qui devrait apparaître :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = [a1] Then
        Set I = ActiveSheet.Shapes("Image1")
        If [a1] = "non" Then
            I.Visible = False
        Else
            I.Visible = True
        End If
    End If
End Sub

Serge

"fb"
Bonjour tout le monde,

D'abord merci à toutes les personnes qui s'arreteront sur ce message

Problème:
j'aimerais masquer ou afficher une image en fonction d'un contenu d'un e
cellule
Y a t-il moyen de le faire sans passer par VBA (genre de format de cel lule
conditionnel mais pour images)
Si il faut passer par VBA, pouvez me donner une brève explication de la
facon de procéder (niveau intermédiaire en VBA)

Merci d'avance pour toutes vos suggestion- Masquer le texte des messag es précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Tatanka
Le #5190511
Impressionné je suis par ta concision mais au moins je comprends le code ;-)

Serge, le long


"JB" ou

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Shapes("Image1").Visible = (Target <> "non")
End If
End Sub

JB

On 19 mar, 15:44, JB
Bonjour,

Alors iif()!

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Shapes("Image1").Visible = IIf(Target = "non",
False, True)
End If
End Sub

JB

On 19 mar, 15:22, "Tatanka"


Salut fb,

Essaie ceci.
En supposant que ton image se nomme Image1
et que la cellule concernée est A1 :
Fais un clic droit sur l'onglet de la feuille contenant ton image,
clique sur «Visualiser le code» et colle cette macro dans la
feuille vierge qui devrait apparaître :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [a1] Then
Set I = ActiveSheet.Shapes("Image1")
If [a1] = "non" Then
I.Visible = False
Else
I.Visible = True
End If
End If
End Sub

Serge

"fb"
Bonjour tout le monde,

D'abord merci à toutes les personnes qui s'arreteront sur ce message

Problème:
j'aimerais masquer ou afficher une image en fonction d'un contenu d'une
cellule
Y a t-il moyen de le faire sans passer par VBA (genre de format de cellule
conditionnel mais pour images)
Si il faut passer par VBA, pouvez me donner une brève explication de la
facon de procéder (niveau intermédiaire en VBA)

Merci d'avance pour toutes vos suggestion- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




JB
Le #5331541
Bonjour

Voir exemple: http://cjoint.com/?dxf5fVsySE

http://boisgontierjacques.free.fr/pages_site/lesimages.htm

JB
http://boisgontierjacques.free.fr

On 19 mar, 14:55, fb
Bonjour tout le monde,

D'abord merci à toutes les personnes qui s'arreteront sur ce message

Problème:
j'aimerais masquer ou afficher une image en fonction d'un contenu d'une
cellule
Y a t-il moyen de le faire sans passer par VBA (genre de format de cellule
conditionnel mais pour images)
Si il faut passer par VBA, pouvez me donner une brève explication de la
facon de procéder (niveau intermédiaire en VBA)

Merci d'avance pour toutes vos suggestion


Publicité
Poster une réponse
Anonyme