Syntaxe VBA ?

[BenHarber]

Bonsoir Le Forum,
Je cherche la syntaxe VBA qui, lorsque je passe la souris sur un contrôle label, mette ce contrôle en gras.

Jusqu'à présent, j'ai créé un module de classe qui réagit avec l'évènement MouseMove ; cf les quelques lignes suivantes ; j'ai précisé en commentaire la ligne où je flanchais.

Private Sub lblmonUsf_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim ctrl As Control
For Each ctrl In monUsf.Controls
On Error Resume Next
'C'est ICI que j'aimerais écrire l'équivalent VBA de : ''si c'est le contrôle survolé par la souris''
ctrl.Font.Bold = True
Else
ctrl.Font.Bold = False
End If
On Error GoTo 0

Merci d'avance si l'un de vous à une solution à me proposer..??
Cordialement,

 

[max.lander]

Re : Syntaxe VBA ?

Salut,

une piste!

https://www.excel-downloads.com/threads/mousemouve-changement-image.151379/

 

[Pierrot93]

Re : Syntaxe VBA ?

Bonjour,

peut être tout simplement ceci, en supposant la classe bien initialisée :

Option Explicit
Private Sub lblmonUsf_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    lblmonUsf.Font.Bold = True
End Sub

en supposant un code dans le même événement de l'usf qui remet à "false" la propriété des dits contrôles.. enfin tout dépend de ton projet.... pas facile d'en dire plus avec juste un bout de code jeté sur un post...

bonne journée
@+

 

[BenHarber]

Re : Syntaxe VBA ?

Max, Pierrot,
Merci pour vos réponses.
Je vais en effet chercher du coté de la suggestion de Pierrot.
@+
BH