XL 2010 [Résolu] Changer la couleur de la bordure d'une image

pierrejean

XLDnaute Barbatruc

• 7 Janvier 2017

• #2

Re
Non seulement je n'ai pas d'idée mais j'observe qu'avec la seule sub checkbox_click le fonctionnement est supprimé si l'on clique sur l'image

 

Vote positif 0 Vote négatif

A

alias_2003

XLDnaute Occasionnel

• 7 Janvier 2017

• #3

Bonjour pierrejean,
Merci pour ta réponse ! Tu as raison, j'ai observé la même chose, je t'avoue ne pas comprendre non plus...
A+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Janvier 2017

• #4

Bonjour à tous,

En ajoutant UserForm1.Repaint avant chaque End Sub ce code répond à la demande.

Code:

Private Sub CheckBox1_Click()
    If Me.CheckBox1 = True Then
        Me.Image1.BorderColor = vbRed
    Else
        Me.Image1.BorderColor = vbBlack
    End If
UserForm1.Repaint
End Sub

Private Sub Image1_Click()
    If Me.CheckBox1 = True Then
        Me.CheckBox1 = False
        Me.Image1.BorderColor = vbBlack
    Else
        Me.CheckBox1 = True
        Me.Image1.BorderColor = vbRed
    End If
UserForm1.Repaint
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

A

alias_2003

XLDnaute Occasionnel

• 7 Janvier 2017

• #5

Bonjour Philippe,
Merci ! C'est exactement ce que je recherchais !! Merci beaucoup !
Bonne journée

 

Vote positif 0 Vote négatif