Verrouiller ou déverrouiller des cellules excel VBA

Version imprimable

07/01/2014, 21h05
Sorayadz

Verrouiller ou déverrouiller des cellules excel VBA

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

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:

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

08/01/2014, 21h08
Sorayadz

1 pièce(s) jointe(s)

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

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:

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

verrouiller ou déverrouiller

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:

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,

09/01/2014, 20h43
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
09/01/2014, 20h59
parmi

Comme inscrit dans le message 2, tu peux soit mettre la macro dans le code la feuille et, si elle doit servir à plusieurs feuilles du classeur, tu peux la mettre dans ThisWorkbook.

Tout d'abord, assure-toi de déverrouiller la colonne A
Elle sera activée lorsque tu changeras la valeur d'une cellule en colonne A

Si les mots "Entrée" et "Sortie" sont inscrits ailleurs qu'en A, il te faudra modifier la macro en conséquence.
09/01/2014, 21h22
Sorayadz

1 pièce(s) jointe(s)

Voilà ce j'ai fait, pour que vous puissiez corriger mes erreurs, j'ai suivi toutes vos étapes du message #2 mais lorsque j'ai cliqué sur Exécuter, la fenêtre nom de la macro S'affiche!!!!! que dois-je s'il vous plait
09/01/2014, 22h59
parmi

Si tu mets le code dans ThisWorkbook, utilise la procédure Workbook_SheetChange comme précisé...

Et tu n'as pas à utiliser Exécuter.
La macro est déclenchée automatiquement lorsque tu inscris quelque chose dans la colonne A et que tu sors de la cellule (préférablement avec TAB)
09/01/2014, 23h17
nibledispo

1 pièce(s) jointe(s)

verrouiller ou déverrouiller

Bonsoir,

Ci-joint le fichier. le code est sur la feuille 1, celle concernée par la question.
Bien entendu tu es libre de mettre en lieu et place le code qui te convient le mieux.

j'ai rajouté une boite de validation en colonne A qui évitera des saisies erronées.
Cette colonne ne sera jamais verrouillée, du moins pas à cause du code.
la liste nécessaire à la boite de validation se trouve en feuille 2 mais bien entendu on peut la mettre à toute autre endroit qui ne sera jamais occupé.

Edit: je n'avais pas vu la dernière réponse de Parmi avant de poster.
réponse au demeurant intéressante je ne connaissais pas sheetchange de l'objet thisworkbook

Cordialement,
10/01/2014, 06h24
Sorayadz

Bonjour,

Merci beaucoup pour votre aide parmi et nibledispo; vos réponses ont vraiment réglées mon problème, merci bien pour vos conseils!

Merci biennibledispo pour le fichier joint!
J'apprécie vraiment vos aides!

Très belle journée à vous deux et à tous les membres de ce très bon site