inihibition de la souris dans un range

Eliane · 3 Mai 2006

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 · 3 Mai 2006

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 · 4 Mai 2006

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 · 4 Mai 2006

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 · 5 Mai 2006

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 · 5 Mai 2006

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 · 5 Mai 2006

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]

inihibition de la souris dans un range

Eliane

Guest

_Thierry

XLDnaute Barbatruc

Eliane

Guest

_Thierry

XLDnaute Barbatruc

Eliane

Guest

Davidc57

XLDnaute Occasionnel

_Thierry

XLDnaute Barbatruc

Discussions similaires