Changement de curseur sur Bouton

[myjidu35]

Bonjour,

Quand je filtre la liste de mon fichier excel (par le biais d'un formulaire), j'aimerai avoir un changement de curseur quand je passe la souris sur le bouton "Valider" et "Arrêter filtre".
Si possible un curseur similaire à celui du bouton "Filtrer la liste" dans le fichier excel.

Si vous avez la solution je suis preneur.

Cordialement

Jimmy

 

[CHALET53]

Re : Changement de curseur sur Bouton

bonjour,

Peut-être avec une instruction de ce type dans le code de ton userform

Private Sub Valider_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox2.SetFocus
End Sub

Si tu passes sur le bouton Valider, le curseur se positionne sur la combobox2
A toi d'adapter en fonction de ce que tu veux faire : je ne suis pas sûr d'avoir compris

a+

 

[Si...]

Re : Changement de curseur sur Bouton

salut

et ain Si... ?

 

[myjidu35]

Re : Changement de curseur sur Bouton

bonjour,

Peut-être avec une instruction de ce type dans le code de ton userform

Private Sub Valider_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox2.SetFocus
End Sub

Si tu passes sur le bouton Valider, le curseur se positionne sur la combobox2
A toi d'adapter en fonction de ce que tu veux faire : je ne suis pas sûr d'avoir compris

a+

Bonjour,

Ce n'est pas ce que je souhaite.
En faite je souhaite juste que mon curseur change lorsque je passe ma souris sur les boutons.
Au lieu de voir le curseur en forme de flèche de ma souris , je vois le curseur en forme de main...

Merci

salut

et ain Si... ?
Regarde la pièce jointe 291038

J'ai essayé plusieurs fois mais le format de mon image n'est pas bon...

Personne n'a d'idée?

 

[myjidu35]

Re : Changement de curseur sur Bouton

Personne pour m'aider?

 

[myjidu35]

Re : Changement de curseur sur Bouton

Bonjour,

J'ai essayé de créer un module avec ceci:

Private Const IDC_HAND = 32649
    Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
    Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
 
Function ChangeMouseToHand()
    Dim hCur As Long
    hCur = LoadCursor(0, IDC_HAND)
    If (hCur > 0) Then
        SetCursor hCur
    End If
End Function

Dans mon formulaire j'ai ensuite fait ça:

' Animation pointeur souris sur bouton
Private Sub Valider_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    ChangeMouseToHand
 
End Sub
Private Sub Userform1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Screen.MousePointer = 0

End Sub

Cependant quand je lance j'ai le message d'erreur suivant.

Erreur de compilation:
La déclaration de la procédure ne correspond pas à la description de l’événement ou de la même procédure de même nom.

Sur cette ligne

Private Sub Valider_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Quelqu'un a une idée du problème?

Merci

 

[Modeste geedee]

Re : Changement de curseur sur Bouton

Bonsour®
aller dans les propriétés du bouton
propriété mousepointer : 99-fmMousePointerCustom
propriété Icone choisir dans le répertoire : X:\Windows\Cursors le curseur choisi
sinon installer un fichier .Ico dans ce répertoire afin de pouvoir le sélectionner

 

[Dranreb]

Re : Changement de curseur sur Bouton

Bonsoir.

J'ai ce curseur si ça vous intéresse.

 

[myjidu35]

Re : Changement de curseur sur Bouton

Bonsour®
aller dans les propriétés du bouton
propriété mousepointer : 99-fmMousePointerCustom
propriété Icone choisir dans le répertoire : X:\Windows\Cursors le curseur choisi
sinon installer un fichier .Ico dans ce répertoire afin de pouvoir le sélectionner

C'est parfait, merci.

Problème résolu