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

[alias_2003]

Bonjour à tous,
Je ne pensais pas que ce point me poserait problème, j'ai eu tort.
Dans le fichier joint, j'essaie de modifier la couleur de la bordure de l'image selon la valeur de la checkbox1.

• Si la checkbox1 = true alors la bordure de l'image devient rouge sinon elle reste noire. Ce point fonctionne sans problème.
• Mais j'aurais aimé que l'action de cliquer sur l'image elle-même change la propriété de la checkbox1. Dans ce cas, je ne parviens pas à modifier la couleur de la bordure...

Avez-vous une idée ?
Merci beaucoup !
Amicalement

 

[pierrejean]

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

 

[alias_2003]

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+

 

[phlaurent55]

Bonjour à tous,

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

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

 

[alias_2003]

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