Discussion :

[Bisbis27]

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$11" Then Exit Sub
Me.Unprotect
Range("B11:J11").Locked = Range("A11").Value <> ""
Me.Protect
End Sub

Bonjour

Voici un code que j'ai écris, je souhaite pouvoir verrouiller les cellules B11 à J11 lorsque la cellule A11 n'est pas vide.
Sauf que lorsque je teste, c'est toute la feuille qui se verrouille et pas seulement ces cellules la.
J'ai mis une autorisation pour que seul quelques utilisateurs puissent modifier la cellule A11.

Si quelqu'un a une piste ou une solution

Je suis preneuse

Merci d'avance

[pijaku]

Bonjour,

Peut-être comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$11" Then Exit Sub
With Me
   .Unprotect
   .Cells.Locked = False 'on déverouille toutes les cellules de la feuille
   .Range("B11:J11").Locked = Range("A11").Value <> "" 'on ne vérouille que celles que l'on veut
   .Protect
End With
End Sub

[Menhir]

Perso, j'aurais mis ActiveSheet plutôt que Me.

Et j'utiliserai des parenthèses pour lever l'ambiguïté de l'égalité et de l'inégalité sur la même ligne.

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> Range("A11").Address Then Exit Sub
    ActiveSheet.Unprotect
    Range("B11:J11").Locked = (Range("A11").Value <> "")
    ActiveSheet.Protect
End Sub

Sauf que lorsque je teste, c'est toute la feuille qui se verrouille et pas seulement ces cellules la.

A priori, il n'y a rien dans ce code qui verrouille d'autres cellules que B11:J11.
Les autres cellules n'étaient-elles pas verrouillées avant ?
Il faut garder à l'esprit que l'état "verrouillé" est l'état par défaut d'une cellule.

[Bisbis27]

Bonjour,

Peut-être comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$11" Then Exit Sub
With Me
   .Unprotect
   .Cells.Locked = False 'on déverouille toutes les cellules de la feuille
   .Range("B11:J11").Locked = Range("A11").Value <> "" 'on ne vérouille que celles que l'on veut
   .Protect
End With
End Sub

Merci super ça fonctionne tres bien comme ca

J'ai une autre question si tu peux m'aider pour la suite

Alors je voudrai faire la même chose pour chaque ligne, la méthode que j'ai trouvé est de copié plusieurs fois le code et de modifier 11 par 12, puis par 13 puis par 14 etc...
Mais je pense que c'est possible de le faire avec une boucle un peu comme en maths dans les algorithme, est ce que tu aurai quelque piste pour m'aider sachant que je dois aller jusqu'à la ligne 50 000

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$12" Then Exit Sub
With Me
   .Unprotect
   .Cells.Locked = False 'on déverouille toutes les cellules de la feuille
   .Range("B12:J12").Locked = Range("A12").Value <> "" 'on ne vérouille que celles que l'on veut
   .Protect
End With
End Sub

[/QUOTE]

[Bisbis27]

Perso, j'aurais mis ActiveSheet plutôt que Me.

Et j'utiliserai des parenthèses pour lever l'ambiguïté de l'égalité et de l'inégalité sur la même ligne.

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> Range("A11").Address Then Exit Sub
    ActiveSheet.Unprotect
    Range("B11:J11").Locked = (Range("A11").Value <> "")
    ActiveSheet.Protect
End Sub

Coucou

j'ai testé aussi, ça fonctionner mercii
mais du coup peux tu m'expliquer la différence entre ActiveSheet.Protect et Me.protect, je sais que ActiveSheet fait référence à la feuille...

[pijaku]

On ne fait pas de boucle dans l'événement Change pour réaliser ce que tu souhaites.

Tu veux que, à chaque saisie en colonne A, soit :
Axx est vide ==> on déverrouille les cellules contenues en B:J de cette ligne
Axx est non vide ==> On verrouille les cellules contenues en B:J de cette ligne

Il te faut donc, dans l'événement Change() traiter l'ensemble de la colonne A.

Pour cela, il te faut déjà virer :

Code :

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

.Cells.Locked = False

Pour ne pas déverrouiller toutes les cellules à chaque fois (sinon obligé de boucler et ==> cf début).
Ce code, une fois que tu l'as fait une fois (même manuellement), n'a plus lieu d'être.
Ton code devient donc :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 10 And Target.Cells.Count = 1 Then
   With Me
      .Unprotect
      .Range("B" & Target.Row & ":J" & Target.Row).Locked = (Target.Value <> "") 'on ne verrouille que celles que l'on veut
      .Protect
   End With
End If
End Sub

J'ai ajouté les parenthèses de Menhir que je salue au passage.

[Menhir]

Alors je voudrai faire la même chose pour chaque ligne, la méthode que j'ai trouvé est de copié plusieurs fois le code et de modifier 11 par 12, puis par 13 puis par 14 etc...

Ca n'est pas possible. Il ne peut pas y avoir plus d'une Worksheet_Change par onglet.
Par contre, il est possible de faire en sorte que cette macro traite plusieurs cas.

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Or Targer.Row < 11 Then Exit Sub
    ActiveSheet.Unprotect
    Range("B" & Target.Row & ":J" & Target.Row).Locked = (Target.Value <> "")
    ActiveSheet.Protect
End Sub