Autres AFFICHER IMAGES SELON LEURS NOMS

chaelie2015

XLDnaute Accro

• 22 Décembre 2020

• #2

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Décembre 2020

• #3

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

 

Dernière édition: 22 Décembre 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Décembre 2020

• #4

Bonjour chaelie2015, JM,

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

VB:

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+

 

Pièces jointes

• Images(1).xlsm

  37.9 KB · Affichages: 27

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 22 Décembre 2020

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Décembre 2020

• #6

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

 

Vote positif 0 Vote négatif