Discussion :

[Chewi]

Bonjour à tout le forum,

Est-il possible de n'interdire la sélection de cellules que sur certaines cellules?

Dans l'aide VBA, on propose la propriété

.EnableSelection = xlNoSelection

Mais apparement cela ne peut s'appliquer qu'à l'objet feuille (entière).

Est-il possible de réaliser cela?
Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(1).Range(A4:B5,B8:C9).EnableSelection = xlNoSelection

(qui ne fonctionne évidemment pas)

Merci d'avance pour votre éclairement.

[ouskel'n'or]

Remplace xlNoSelection par xlUnlockedCells
Les cellules verruillées sur une feuille protégée ne pourront être sélectionnées
Tu dis

[Chewi]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub selection()
Worksheets("Sheet3").Range("A4:B6").EnableSelection = xlUnlockedCells
End Sub

==> "L'objet ne supporte pas cette propriété ou méthode"

C'est juste le fait de pouvoir faire un clic sur une cellule que je voudrais empêcher, pas seulement quand on veut la modifier.

Mais je pense que je pourrai m'assoir dessus car entre ça et la protection, il n'y a qu'un pas et ... à défaut de grives, ...

[ouskel'n'or]

Mais je pense que je pourrai m'assoir dessus

Non, c'est très pointu
Tu n'as pas à protéger tes cellules mais la feuille. Si les cellules de ta plage sont verrouillées, tu ne pourras pas les sélectionner.
Sélectionne ta feuille, déverrouille toutes les cellules, reverrouille les cellules de ta plage, protège ta feuille, mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Sheet3").EnableSelection = xlUnlockedCells

et vérifie
A+

[Chewi]

Et tout ça sans message d'alerte!

Si ça c'est pas du service après-vente au cas par cas , je m'y connaît pas!
(mais sans les recettes )

Encore un problème de résolu,

merci Ouskel'nord!

P.S.: Edit: juste un truc que je viens de remarquer, lorsque l'on sélectionne une cellule et que l'on double-clique sur une où la sélection n'est pas permise, cela ouvre la cellule sélectionnée initialement.
Voilà, ça vallait la peine de le dire