Pb avec l'image d'un control

[Eric D]

Bonjour à toutes et tous et bonne et heureuse année,

Je viens vous consulter car j'ai un petit souci avec l'image d'un contol image. voici mon code:
Sub Cson()
Dim imag As String
Range("BA11").Value = -1 * Range("BA11").Value
Range("W6").Value = IIf(Range("BA11").Value < 0, "<0", ">0")
'
imag = IIf(Range("BA11").Value < 0, _
"Chemin\HP2.JPG", "Chemin\HP1.JPG")
ActiveSheet.son.Picture = LoadPicture(imag)
End Sub

Dans le code de ma feuille, j'ai:
'
Private Sub son_click()
Call Cson
End Sub

donc quand je cilck sur le control image son, j'enclenche ma procédure Cson. La 1ère partie va bien, "W6" passe bien de "<0" à ">0" et vice versa quand je click sur mon control, mais la 2ème partie ne fonctionne pas, à savoir que l'image ne change pas.
Je ne vois pas d'où cela peut venir. Avez vous une idée.
Merci et bonne soirée.
Eric D

 

[wilfried_42]

Re : Pb avec l'image d'un control

bonsoir

dis moi c'est quoi chemin

imag = IIf(Range("BA11").Value < 0, _
"Chemin\HP2.JPG", "Chemin\HP1.JPG")

si c'est une variable :

imag = IIf(Range("BA11").Value < 0, _
Chemin & "\HP2.JPG", Chemin & "\HP1.JPG")

devrait aller mieux

par contre je n'ai pas vu l'initialisation de la variable

 

[Eric D]

Re : Pb avec l'image d'un control

Bonjour Wilfried_42,

Ce n'est pas une variable, simplement pour masquer le chemin "C:\toto" par exemple. Ta suggestion était bonne par rapport aux données fournies.
Merci
Eric D

 

[Eric D]

Re : Pb avec l'image d'un control

Bonjour à toutes et tous,

je reviens pour actualiser ma question et pour apporter le fruit de mes recherches...
Lorsque je clicque sur mon image, ma valeur en W6 est bien modifiée mais mon image n'est modifiée que lorsque mon curseur resurvol ma feuille et pas de suite?
Meri pour votre aide
Eric D