Discussion :

[anareda]

Bonjour

Comment empêcher le clique sur une cellule ou une plage de cellule....je ne veux pas utiliser format cellule protection donner protéger cellule...et une fois quand on clique on reçoit le fameux message cellules protéger. Je veux mettre direct le code à la feuille.

Supposons les plages de cellules sont A1:N22 et aussi B25: C35 (le nom de la feuille est "Module")

Merci beaucoup

[Menhir]

Je ne comprends rien à ton explication...

[Thautheme]

Bonjour le fil, bonjour le forum,

Le code ci-dessous, à mettre dans le composant VBA de l'onglet en question, sélectionnera systématiquement la cellule A23 (à adapter) en cas de tentative de sélection d'une cellule de la plage indiquée :

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Application.Union(Range("A1:N22"), Range("B25:C35"))) Is Nothing Then Range("A23").Select
End Sub

[anareda]

Bonjour le fil, bonjour le forum,

Le code ci-dessous, à mettre dans le composant VBA de l'onglet en question, sélectionnera systématiquement la cellule A23 (à adapter) en cas de tentative de sélection d'une cellule de la plage indiquée :

Merci infiniment...ça marche très bien

[BENNASR]

bonsoir
je sais pas si ça va aider
pour empêcher le sais dans deux champs concaténée je fais avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim Test1 As Range, Test2 As Range, y As Range
   Sheets("Module").Activate
   Set Test1 = Range("A2:B5")
   Set Test2 = Range("A10:B15")
   Set y = Application.Union(Test1, Test2)
    Sheets("Module").Unprotect
    y.Locked = False
    Sheets("Module").Protect
End Sub

[anareda]

BENNASR

J'ai testé ton code ...ça marche pas pour moi