Pointeur de souris Excel

Bonjour,

Est-ce que quelqu’un sait comment désactiver le pointeur et remettre le pointeur par défaut de Windows ?

Voici le pointeur en question :

Bonjour

Excel a plusieurs pointeurs qui ont tous une signification

La croix type pharmacie sert à sélectionner des cellules mais il y a plein d'autres pointeurs selon ce que l'on veut faire : sélection d'objet, déplacement, redimensionnement...

Bonsoir,

vous pouvez désactiver le pointeur d'Excel en le masquant, pour cela dans un module standard :

Option Explicit

#If VBA7 Or Win64 Then
    ' fonction pour gestion de l'affichage ou pas du curseur
    Declare PtrSafe Function ShowCursor Lib "user32" (ByVal bShow As LongPtr) As Long
#Else
    ' fonction pour gestion de l'affichage ou pas du curseur
    Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
#End If

puis dans votre code pour le masquer :

ShowCursor False

et pour le réafficher :

ShowCursor True

Attention ! en cas de "plantage du code" le curseur peut rester invisible... Une petite procédure "Oups" pour le récupérer :

Sub Oups()
    ShowCursor True
End Sub

Dont vous pouvez définir un raccourcie clavier...

Sinon si vous voulez garder à tout moment le pointeur "flèche" en lieu et place de la croix de sélection de cellule vous avez :

Application.Cursor = xlNorthwestArrow

et pour revenir à l'état normal :

Application.Cursor = xlDefault

@ bientôt

LouReeD

Bonsoir,

Merci de votre réponse. Je craint ne pas avoir compris par contre...

Bonjour le forum

Bonjour Nounas, 78chris, LouReeD

Il faut placer le code de LouReeD dans un module. Exemple avec 4 curseurs différents :

Sub Curseur_Change()
Application.Cursor = xlDefault
' Application.Cursor = xlNorthwestArrow
' Application.Cursor = xlIBeam
' Application.Cursor = xlWait
 End Sub

Bonsoir,

pour l'exemple du curseur en forme de flèche même "au dessus" des cellules vous avez mon application "Chasseur de Bombes" qui l'illustre, et pour le masquage du curseur lors de l'exécution d'un code, il y a ma machine à sous "SevenSfruitS"

@ bientôt

LouReeD