Discussion :

[Sorayadz]

Bonjour à toutes et tous

Je veux premièrement vous remercier pour ce très beau site
Je suis débutante en VBA. Je veux savoir comment puis-je verrouiller des cellules selon les données saisie dans une colonne d'un tableau.
exemple si j'entre la valeur Entrée certaine cellules se verrouille et d'autre se déverrouille dans la même ligne.
et si j'entre la valeur Sortie d'autres cellules se verrouille et d'autre se déverrouille dans la même ligne.
J'espère que vous comprenez mon français
Je vous remercie d'avance

Soria

[parmi]

Bonjour,

Partant du fait que tu veux avoir des cellules verrouillées, il faut donc qu'il y ait une protection sur la feuille. Pour pouvoir changer l'état de la cellule, il faut donc déprotéger auparavant. Tu peux aussi ajouter un mot de passe entre guillemets là où j'ai mis un commentaire.

Il faut aussi s'assurer que les mots Entrée et Sortie sont toujours écrits de la même façon (majuscules, accents,...) sinon il faudra ajuster le code

Voici un exemple simple à mettre dans le code de la feuille.
S'il y a plusieurs feuilles à traiter de la même façon, tu pourrais mettre le code dans ThisWorkbook, dans Workbook_SheetChange

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveSheet.Range("A" & Target.Row) = "Entrée" Then
        ActiveSheet.Unprotect   'mot de passe si nécessaire
        ActiveSheet.Range("B" & Target.Row).Locked = True
        ActiveSheet.Protect     'mot de passe si nécessaire
    End If
End Sub

[Sorayadz]

Bonsoir,
Merci beaucoup pour votre réponse, mais je n'arrive pas à écrire le code!!!
L'image jointe montre comment je veux travailler.
lorsque je saisie "Entrée" et j'utilise la touche tabulation, je bascule automatiquement vers la cellule C3 puis vers puis vers E3 et vers H3 et enfin vers la ligne suivante.
"Selon la valeur saisie dans la plage de cellules de A3:A8 "
J'espère que vous me comprenez, merci pour votre aide une autre fois

[parmi]

Essaie comme ceci
Encore là, il faudra s'assurer que les mots soient bien écrits (majuscules, accents,...)

Et tu dois utiliser la touche TAB pour te déplacer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveSheet.Range("A" & Target.Row) = "Entrée" Then
        ActiveSheet.Unprotect   'mot de passe si nécessaire
        ActiveSheet.Range("B3:H8").Locked = False
        ActiveSheet.Range("B3:B8,D3:D8,F3:G8").Locked = True
        ActiveSheet.Protect     'mot de passe si nécessaire
    ElseIf ActiveSheet.Range("A" & Target.Row) = "Sortie" Then
        ActiveSheet.Unprotect   'mot de passe si nécessaire
        ActiveSheet.Range("B3:H8").Locked = False
        ActiveSheet.Range("B3:B8,D3:F8").Locked = True
        ActiveSheet.Protect     'mot de passe si nécessaire
    End If
End Sub

[nibledispo]

Bonjour Parmi,

Ta proposition souffre un léger inconvénient : le vicieux peut parfaitement modifier certaines valeurs entrées précédemment par d'autres.
C'est pourquoi je propose de limiter la saisie aux cellules accessibles de la ligne active.

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Range("A" & Target.Row) <> "Entrée" And ActiveSheet.Range("A" & Target.Row) <> "Sortie" Then
    MsgBox "attendu mot [ Sortie ] ou [ Entrée ]"
    Application.EnableEvents = False
      Target.ClearContents
      Target.Activate
    Application.EnableEvents = True
Else
    With ActiveSheet
        .Unprotect   'mot de passe si nécessaire
        .Range("B3:H8").Locked = True
        If Range("A" & Target.Row) = "Entrée" Then
           .Range("B" & Target.Row & ":H" & Target.Row).Locked = False
           .Range("B" & Target.Row & ",D" & Target.Row & ",F" & Target.Row & ",G" & Target.Row).Locked = True
        End If
        If .Range("A" & Target.Row) = "Sortie" Then
           .Range("B" & Target.Row & ":H" & Target.Row).Locked = False
           .Range("B" & Target.Row & ",D" & Target.Row & ",E" & Target.Row & ",F" & Target.Row).Locked = True
        End If
        .Protect
    End With
End If
End Sub

Cordialement,

[Sorayadz]

Bonsoir,
Merci beaucoup pour votre aide, mais comment puis-je appeler cette procédure , j'ai essayé mais je n'y arrive plus !!!!
Bonne soiré et merci encore pour votre aide