Limiter du "Cocher - Décocher" à limiter dans un pavé de cellules

[Webperegrino]

Bonjour le Forum

Avec la macro décrite ci-dessous, l'action "cocher - décocher" fonctionne bien pour un pavé entier de cellules.
Je n'arrive pas à limiter l'action à deux zones distinctes d'un pavé de cellules.

Ici ,mon objectif est que la macro exclue la cellule M3 dans le pavé L3:AK3.
Compte tenu de mon amateuriste en conception de macro, il me serait agréable de connaître mon erreur dans la syntaxe de celle décrite ci-dessous (avec OR ça coince, pas plus avec ELSE).
Merci

Voici la macro : la cellule M3 continue à être cochée ou décochée.

'/// Cellules à cocher – décocher
‘/// dans le pavé L3:AK3 SAUF DANS LA CELLULE M3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("TB")
Dim derli As Integer
derli = Range("A310").End(xlUp).Row
If Target.Count > 1 Then Exit Sub
'/// ci-après : ça fonctionne bien suf pour la cellule M3 qui continue à subir l'action de la macro Cocher-Décocher
If Not Intersect(Target, Range("L3", "N3:AK3" & derli)) Is Nothing Then
'Essai non concluant avec :
'If Not Intersect(Target, Range("L3" & derli)) Or Intersect(Target, Range("N3:AK3" & derli)) Is Nothing Then
If Target = "" Then Target = "þ" Else Target = ""
Range("A" & Target.Row).Select
End If
End With
End Sub

 

[Pierrot93]

Re : Limiter du "Cocher - Décocher" à limiter dans un pavé de cellules

Bonjour,

peut être ainsi, mais pas tout compris et ton vert passe très mal à l'écran, utilise les balises pour placer du code, c'est plus facile... :

If Not Intersect(Target, Range("L3:L" & derli & ",N3:AK" & derli)) Is Nothing Then

bonne journée
@+

 

[Webperegrino]

Re : Limiter du "Cocher - Décocher" à limiter dans un pavé de cellules

Bonjour Pierrot 93,
Je m'empresse de te répondre car l'application fonctionne maintenant parfaitement avec le tranfert de ta proposition.
La macro est rectifiée.
Grand merci pour tes conseils et cette astuce.
Bon week-end avec beaucoup de soleil.
Webperegrino