Objet devenu opaque après un click, pour jmps entre autre

[Eric D]

Bonjour,

Après une petite pause, j'ai l'esprit plus reposé.

Je reviens sur le Pb d'objet devenant opaque. je précise que nous créons un label transparent Sur un objet2 pour avoir la possibilité virtuelle d'avoir l'évènement 'mousedown' ou 'mousemove' de cet objet2. En fait quand on clique sur l'objet 'le label qui est dessus', on déclanche la procédure 'mousedown', mais aussitôt après, cela déclanche la procédure 'mousemove'.
J'ai résolu ce problème de la manière suivante:
'
Private Sub lelabel_mousemove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sheets("mafeuille").OLEObjects("lelabel").Visible = False
Sheets("mafeuille").OLEObjects("lelabel").Visible = True
End Sub
'
Private Sub lelabel_mousedown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sheets("mafeuille").OLEObjects("lelabel").Visible = False
Sheets("mafeuille").OLEObjects("lelabel").Visible = True
End Sub

Je ne sais pas trop pourquoi, mais cela fonctionne.
Si tu as une explication ou si cette piste te donne une autre idée, merci de m'en faire part.
Bon après midi.
Eric D