Bonsoir à tous le monde
je suis bloquer sur un projet je souhaiterais lancer une macro type info bulle en passant ma sourie sur le Label
pour cela j'utilise cette macro:
qui fonctionne trés bien le soucis c'est que je doit faire cette macro pour ds label portant le non de DM00001 à 06000 voir un exemple ci dessous
y a t'il une solution pour faire ceci à tous mes label sans devoir retaper chaque fois la même macro
il me semblait qu'il existait une solution avec un module de classe mais je maitrise pas du tous celui ci
pouvez vous m'aider svp merci
je suis bloquer sur un projet je souhaiterais lancer une macro type info bulle en passant ma sourie sur le Label
pour cela j'utilise cette macro:
Code:
Private Sub DM05166_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With SSI.DM05166
On Error Resume Next
.ControlTipText = "ZONE: DM05166 "
End With
End Sub
qui fonctionne trés bien le soucis c'est que je doit faire cette macro pour ds label portant le non de DM00001 à 06000 voir un exemple ci dessous
Code:
Private Sub DM05166_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With SSI.DM05166
On Error Resume Next
.ControlTipText = "ZONE: DM05166 "
End With
End Sub
Private Sub DM05117_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With SSI.DM05117
On Error Resume Next
.ControlTipText = "ZONE: DM05117 "
End With
End Sub
Private Sub DM05119_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With SSI.DM05119
On Error Resume Next
.ControlTipText = "ZONE: DM05119 "
End With
End Sub
y a t'il une solution pour faire ceci à tous mes label sans devoir retaper chaque fois la même macro
il me semblait qu'il existait une solution avec un module de classe mais je maitrise pas du tous celui ci
pouvez vous m'aider svp merci