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
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