Changer Pointeur de Souris

Bonjour à tous!

Je suis a la recherche d'une méthode pour changer l'aspect du pointeur de la souris ( Exp: Main) sur une plage de données

Par MFC ( je n'ai pas trouver de moyen) peut être par macro.

Merci à tous.

Bonjour,

uniquement par macro :

Application.Cursor = xlWait

Remarques

XlMousePointer peut être l'une de ces constantes XlMousePointer.

xlDefault. Pointeur par défaut.

xlIBeam. Pointeur en I.

xlNorthwestArrow. Pointeur en flèche orientée nord-ouest.

xlWait. Sablier.

Et il faut un événement, par exemple sélection d'une cellule, pour lancer une macro.

Donc d'un intérêt limité, sauf éventuellement à partir dans une usine à gaz (inutile pour du cosmétique à mon avis).

eric

Bonjour à Vous eriiic!

En cherchant sur des sujets similaires je me suis trouver ce code que je voulais adapter à vous de me dire ou de m'aider à l'appliquer sur une plage de cellules exemple sur D2:BO2

Option Compare Database
Option Explicit

Public Const IDC_HAND = 32649 
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long 
Public 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

Je pense que sur cette partie suivante que je devrais définir la plage de cellules concernées D2:BO2:

Private Sub NomDeTonContrôle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     ChangeMouseToHand
 End Sub

Par contre sur cette partie on reviens à l'état initial du Pointeur

Screen.MousePointer = 0

Merci infiniment!

Voilà ce que j'évoquais dans "usine à gaz".

Gadget inutile pour moi, et donc sans moi

Merci à vous eriiic.

Bon courage.