Discussion :

[Bisbis27]

Bonsoir

Je m'en remet à vous car je sèche voici le code que j'ai écris,
je veut que lorsque je saisie une valeur dans la colonne A22 alors B22 et E22:AQ22 soient protéger
et lorsque je saisie une valeur dans la colonne C22 alors D22 et AR22:AV22 soient protéger
et ainsi de suite pour A23,A24... et C23,C24...

voici le code que j'ai écris , je ne parviens pas à trouver mon erreur

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
18
19
20
21
22
23
24
25
26
 
 
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
With Target
 
If Application.Intersect(Target, Range("A22:A1004, C22:C1004")) Is Nothing Then Exit Sub
If .Count > 1 Then Exit Sub
 
Application.EnableEvents = False
 
If .Value = "" Then .Offset(, 1).Value = "" Else .Offset(, 1) = Date
 
.EntireRow.Locked = False 'déverrouille toute la ligne
 
'verrouille en fonction
If .Column = 1 Then Union(.Offset(, 1), Range(.Offset(, 4), .Offset(, 42))).Locked = Target.Value <> "" 'si colonne A
If .Column = 3 Then Union(.Offset(, 1), Range(.Offset(, 41), .Offset(, 45))).Locked = Target.Value <> "" 'si colonne C
 
Application.EnableEvents = True
 
End With
 
End Sub

[mercatog]

Bonjour

Initialement il faudra déverrouiller toutes les cellules.
La feuille étant protégée sans mot de passe dans l'exemple ci-dessous:

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
18
19
20
21
22
23
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Application.Intersect(Target, Range("A22:A1004, C22:C1004")) Is Nothing Then Exit Sub
With Target
    If .Count > 1 Then Exit Sub
    .Worksheet.Unprotect
    .EntireRow.Locked = False    'déverrouille toute la ligne
 
    Application.EnableEvents = False
    If .Value = "" Then
        .Offset(, 1).Value = ""
    Else
        .Offset(, 1) = Date
        If .Column = 1 Then
            Union(.Offset(, 1), Range(.Offset(, 4), .Offset(, 42))).Locked = Target.Value <> ""    'si colonne A
        ElseIf .Column = 3 Then
            Union(.Offset(, 1), Range(.Offset(, 41), .Offset(, 45))).Locked = Target.Value <> ""    'si colonne C
        End If
    End If
    Application.EnableEvents = True
    .Worksheet.Protect
End With
End Sub