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!