inihibition de la souris dans un range

[Eliane]

Bonjour

Dans un classeur PARTAGé j'aimerai faire un code VBA pour avoir le fonctionnement suivant :

TantQue la souris est déplacée au dessus d'une plage fixe (par exemple 'A1300')
*le click gauche est inhibé,
*le click droit est inhibé,
*la souris a une autre forme (ou une autre couleur)
FinTanQue


Mon objectif est d'inhiber les interactions du pointeur pour limiter les possibilités d'effacements et modifications de cellules dans la plage ci-dessus SANS avoir à protéger la feuille qui contient aussi des groupements à éditer hors de la zone A1300..

Ces actions sur la souris sont-elles envisageables en VBA pour Excel 2002 SP3 sur XP ?

D'avance merci

Eliane

 

[_Thierry]

Bonjour Eliane, le Forum

Petit subterfuge, mais peut-être suffisant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range('A1300')) Is Nothing Then Exit Sub
Range('A301').Activate
End Sub

Bonne Journée
[ol]@+Thierry[/ol]

 

[Eliane]

Bonjour Thierry, Jmps et le forum

Les 2 propositions de code sont super.

Comme je débute encore en VBA, j'ai essayé en vain d'adapter vos 2 sympatiques propositions pour tenter d'interdire une 2ème zonne par exemple 'J1:M6' au sein de la même feuillle.

Quelles instructions VBA ajouter pour inhiber une zonne supplémentaire ?

D'avance merci à vous et au Forum

Eliane

 

[_Thierry]

Bonjour Amigo Jodé, bonjour Eliane

Rapidos, (je laisse José mettre d'autres Labels (lol)...

Pour ma petite solution, il te faut 'Union' (Slogan Belge 'l'Union fait la Force')

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PlageNonContigue As Range

Set PlageNonContigue = Application.Union(Range('A13'), Range('A1013'), Range('A2023'))

If Application.Intersect(Target, PlageNonContigue) Is Nothing Then Exit Sub
    Range('A30').Activate
End Sub

Bonne Journée
[ol]@+Thierry[/ol]

 

[Eliane]

Résolu : inihibition de la souris dans un range

Thierry,

En un mot tu es Génial

Un grand merci à toi, Jmps et ce merveilleux forum

Lili
:kiss:

 

[Davidc57]

Re:Résolu : inihibition de la souris dans un range

Bonjour à vous tous,

Comme je suis content d'être passé par là !!

:woohoo:

Un grand merci Thierry pour ce code magnifique !

Ciao
David

 

[_Thierry]

Re:Résolu : inihibition de la souris dans un range

Bonsoir Eliane, David, José, Jmps, Jps, Jmp, Jsp, JsuiJreste lol

Merci Eliane et David, c'est sympa de rentrer à la maison et de trouver deux messages comme ça

Bonne Nuit

[ol]@+Thierry[/ol]