libellule85
XLDnaute Accro
Bonjour le forum,
Actuellement sur mon bouton de contrôle quand je clique dessus cela fait apparaitre un userform. J'aimerais associer à ce bouton un infobulle. Quand j'ai mis les deux codes ci-dessous ensemble l'infobulle apparait bien mais l'userform apparait aussi mais "clignotant".
Ce que je voudrais donc c'est quand on passe la souris sur le bouton il n'y ai que l'infobulle qui apparaisse, l'userform apparaitra que quand on clique sur le bouton.
Code de l'userform :
Code pour l'infobulle :
D'avance merci beaucoup pour votre aide
Actuellement sur mon bouton de contrôle quand je clique dessus cela fait apparaitre un userform. J'aimerais associer à ce bouton un infobulle. Quand j'ai mis les deux codes ci-dessous ensemble l'infobulle apparait bien mais l'userform apparait aussi mais "clignotant".
Ce que je voudrais donc c'est quand on passe la souris sur le bouton il n'y ai que l'infobulle qui apparaisse, l'userform apparaitra que quand on clique sur le bouton.
Code de l'userform :
Code:
Private Sub CommandButton3_Click()
With UserForm5
If .Visible Then
Unload UserForm5
Else
.Show 0
End If
End With
End Sub
Code:
Private Sub Bn1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X > 2 And X < Bn1.Width - 2 And Y > 2 And Y < Bn1.Height - 2 Then
TextBox1.Top = Bn1.Top + Y - 30
TextBox1.Left = Bn1.Left + Bn1.Width + 10
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End Sub