[RESOLU] Cacher une images sans cacher les bouttons

[mike78]

Bonjour à tous,

après des heures de recherche je lève les mains en l'air, surtout que mon niveau d'expertise est très bas.

J'ai trouvé un moyen de cacher/afficher une image en fonction du texte dans une cellule. La fonction marche super bien.

Par contre dès que j'insère un bouton de commande ActiveX la macro qui gère mes images me met le bouton d'action dans l'invisible.

Quand je regarde les propriétés du bouton celui-ci a la variable "Visible" en fasle.

J'en déduis que ma macro cache aussi le bouton.

Avez vous une astuce pour palier à cela ?

Merci par avance

 

[pierrejean]

Re : Cacher une images sans cacher les bouttons

Bonjour mike78

Et bienvenue sur XLD

A tester:

Private Sub WorkSheet_Change(ByVal Target As Range)
Dim p As Object
For Each p In Me.Pictures
    If InStr(p.Name, "Command") = 0 Then p.Visible = [O40] = p.Name
Next
End Sub

 

[Pierrot93]

Re : Cacher une images sans cacher les bouttons

Bonjour Mike, PierreJean🙂

une autre approche peut être :

Private Sub WorkSheet_Change(ByVal Target As Range)
Dim p As Shape
For Each p In Me.Shapes
    If p.Type = msoPicture Then p.Visible = [O40] = p.Name
Next
End Sub

bon après midi
@+

 

[mike78]

Re : Cacher une images sans cacher les bouttons

Bonjour Pierrejean et Pierrot,

Je vous remercie pour votre aide aussi rapide et très précise.

J'ai testé vos 2 commandes et tout marche, je me vais me creuser la tête maintenant pour les comprendre 🙂

Milles merci encore.