Autres AFFICHER IMAGES SELON LEURS NOMS

[chaelie2015]

Bonjour Forum
ci dessous, dans la cellule A1 une liste déroulante qui contient des noms des images; je souhaite afficher une image selon son nom
exemple : des images nommées "TOTO", "TITI",TATA" ...etc
dans la cellule A1 j'ai une liste déroulante "TOTO", "TITI",TATA"
je souhaiterai généraliser ce code.
If UCase(Range("A1")) = "TOTO" Then
Shapes("TOTO").Visible = True
Else
Shapes("TOTO").Visible = False
End If
Salutations

 

[chaelie2015]

Re
après une recherche j'ai trouvé ce code

Private Sub Worksheet_Change(ByVal Target As Range)

For Each img In ActiveSheet.Shapes
If img.Name Like [A1] Then
With img: .Visible = Not .Visible
End With
End If
Next
End Sub
mais les images ne se masque pas automatiquement ??
a+

 

[Staple1600]

Bonjour le fil

chaelie2015
Tu ne mets pas assez souvent les pieds dans ton dressing VBA, on dirait, non ? 😉

Autres - afficher et masquer les images

Bonsoir Forum dans une feuille excel j'ai 49 images superposées je souhaite afficher image0 par défaut ( toujours visible en premier plan) mais dis que je sélectionne un numéro dans une cellule F4 (de 1 a 48) elle s'affiche sur l'image0 Exemple Si je selectionne Numero 16 dans la cellule F4 elle...

www.excel-downloads.com

EDITION: Bonjour job75

 

[job75]

Bonjour chaelie2015, JM,

Voyez le fichier joint et cette macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x$, e
With [A1]
    If Intersect(Target, .Cells) Is Nothing Then Exit Sub
    x = UCase(.Value)
End With
For Each e In [liste]
    If UCase(e) <> "TOUS" Then Shapes(e).Visible = x = "TOUS"
Next
    If x <> "" And x <> "TOUS" Then Shapes(x).Visible = True
End Sub

A+

 

[chaelie2015]

Bonsoir JM , JOB75
@ job75: merci pour la réponse et désolé pour ce retard.
j'ai un bug "Erreur d’exécution..... : élément portant ce nom est introuvable"
a ce niveau du code : ....... Shapes(e).Visible = x = "TOUS"
merci par avance

 

[job75]

Chez moi il n'y a aucun bug sur le fichier que j'ai joint.