Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Interdire la sélection d'un objet

Interdire la sélection d'un objet

4 réponses
Avatar
Philippe.R
Bonjour toutes et tous,

J'utilise une procédure de Patrick Bastard d'après Gaëtan Mourmant, publiée sur MPFE le 22/04/2004,
pour mettre une ligne en évidence en fonction de certains critères.
Je souhaiterais maintenant rendre impossible la sélection du rectangle à l'aide de la souris.

J'ai essayé diverses syntaxes dont celle ci

If ActiveSheet.Shapes("RectangleH").Selected = True Then
ActiveSheet.Shapes("RectangleH").Selected = False
End If

sans succès :-(((

Merci de vos lumières.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LeSteph
ReBonjour,
Idée à tenter :
Dans un Private sub Selection change
ou peut-être un évennement de mouse
If ActiveSheet.Shapes("RectangleH").Selected = True Then
Activecell.select
End if

On ne sait jamais.

LeSteph

"Philippe.R" a écrit dans le message de
news:O67%
Bonjour toutes et tous,

J'utilise une procédure de Patrick Bastard d'après Gaëtan Mourmant,
publiée sur MPFE le 22/04/2004,

pour mettre une ligne en évidence en fonction de certains critères.
Je souhaiterais maintenant rendre impossible la sélection du rectangle à
l'aide de la souris.


J'ai essayé diverses syntaxes dont celle ci

If ActiveSheet.Shapes("RectangleH").Selected = True Then
ActiveSheet.Shapes("RectangleH").Selected = False
End If

sans succès :-(((

Merci de vos lumières.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002




Avatar
AV
Je souhaiterais maintenant rendre impossible la sélection du rectangle à
l'aide de la souris.


Protège la feuille

AV

Avatar
Philippe.R
Bonjour LeSteph,

Merci pour ta suggestion, qui cependant me renvoie toujours le même message d'erreur que celui que
j'obtenais : Erreur d'exécution '438' : Propriété ou méthode non gérée par cet objet.
J'ai opté pour la solution d'Alain, en ôtant la protection en début de procédure et en la remettant à la
fin
--
Amicales Salutations

"LeSteph" a écrit dans le message de
news:40f38436$0$18192$
ReBonjour,
Idée à tenter :
Dans un Private sub Selection change
ou peut-être un évennement de mouse
If ActiveSheet.Shapes("RectangleH").Selected = True Then
Activecell.select
End if

On ne sait jamais.

LeSteph

"Philippe.R" a écrit dans le message de
news:O67%
Bonjour toutes et tous,

J'utilise une procédure de Patrick Bastard d'après Gaëtan Mourmant,
publiée sur MPFE le 22/04/2004,

pour mettre une ligne en évidence en fonction de certains critères.
Je souhaiterais maintenant rendre impossible la sélection du rectangle à
l'aide de la souris.


J'ai essayé diverses syntaxes dont celle ci

If ActiveSheet.Shapes("RectangleH").Selected = True Then
ActiveSheet.Shapes("RectangleH").Selected = False
End If

sans succès :-(((

Merci de vos lumières.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002








Avatar
Philippe.R
Bonjour Alain,
Merci pour ta suggestion que je mets en oeuvre en corrigeant du coup quelques procédures qui nécessitent
une déprotection de la feuille pour s'exécuter correctement.
--
Amicales Salutations

"AV" a écrit dans le message de news:
Je souhaiterais maintenant rendre impossible la sélection du rectangle à
l'aide de la souris.


Protège la feuille

AV