Discussion :

[bizzzounours]

Bonjour,

Je souhaites verrouiller les cellules de plusieurs colonnes en fonction de la valeur des cellules de la colonnes "d".
Par exemple, si d2=10 je verrouille a2,b2,f2,l2,etc... et si d3=15 je verrouille a3,b3, k3,p3,etc...
J'ai essayé plusieurs choses mais je n'ai pas trouvé comment verrouiller les cellules correspondantes à la ligne de "d" donc j'ai verrouillé toute la colonne. Ensuite, il ne prend en compte que ma première ligne de verrouillage (avec N et P déverrouillé)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Columns("D"), Target) Is Nothing Then
        ActiveSheet.Unprotect
        If Target = "10" Or Target = "25" Or Target = "40" Or Target >= "100" Then
            Range("A:A, B:B, F:F, J:J, K:K, L:L, O:O").Locked = True And Range("N:N,P:P").Locked = False
       Else
                If Target = "5" Or Target = "15" Or Target = "20" Or Target = "30" Or Target = "35" Or Target = "45" Then
                    Range("A:A, B:B, F:F, N:N, K:K, P:P, O:O").Locked = True And Range("J:J, L:L").Locked = False
                Else
                    Range("A:A, B:B, F:F, K:K, O:O").Locked = True And Range("N:N,P:P, J:J, L:L").Locked = False
                End If
        End If
         ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub

[EricDgn]

Bonjour,

Pas vraiment saisi le problème, mais il faut cependant commencer par faire des lignes distinctes pour les .Locked:

Code :

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

1
2
            Range("A:A, B:B, F:F, J:J, K:K, L:L, O:O").Locked = True
            Range("N:N,P:P").Locked = False

Cordialement.