XL 2013 Appliquer une macro sous condition

[creolia]

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:

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

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

 

[Lolote83]

Salut CREOLIA,
Voir fichier joint avec un module de classe qui permet de faire ce que tu souhaites
@+ Lolote83

 

[creolia]

Bonjour Lolote83 MERCI pour ton aide je vais tester cela des cette apres midi

 

[creolia]

re Bonjour Lolote83 parfait tous fonctionne parfaitement un grand merci encore et de bonne fête à vous