XL 2016 verrouillage de cellule

[florian140001]

Bonsoir, voilà dans une cellule j'ai une liste et dans cette liste je voudrai que quand 'A' est choisi la case à côté d'elle soit verrouiller
savez vous comment faire ?

 

[job75]

Bonsoir florian140001,

Ce n'est pas clair, soyez plus précis et joignez le fichier en indiquant le mot de passe pour protéger la feuille.

A+

 

[Calvus]

Bonsoir,

Sans fichier, difficile de donner une réponse...

A+

Edit : bonsoir Job75 🙂🙂

 

[florian140001]

Quand je choisi chaise dans ma liste déroulante je veux que la case 'Rpàp' soit vérouiller et que je n'écrive pas dedans

 

[Calvus]

Re,

la case Rpap ou la colonne ?

 

[florian140001]

la case juste à côté du choix

 

[florian140001]

où j'ai mis les croix c'est ici que je veux vérouiller

 

[job75]

Re, salut Calvus,

Bof puisque vous ne voulez pas indiquer le mot de passe ce sera "toto", le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Protect "toto", UserInterfaceOnly:=True
Set Target = Intersect(Target, UsedRange)
If Target Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each Target In Target 'si entrées multiples (copier-coller
    If Target.Column > 1 And LCase(Target) = "chaise" Then Target(1, 0).Locked = True 'verrouille la cellule à gauche
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

Bien sûr les cellules où l'on fait les choix doivent avoir été préalablement déverrouillées.

A+

 

[florian140001]

pourquoi voulez vous un mot de passe, je veux juste qu'il soit bloquer quand je choisis chaise c'est tout

 

[job75]

Notez bien le LCase pour ignorer la casse.

Pour bloquer une cellule il faut qu'elle soit verrouillée et que la feuille soit protégée.

 

[florian140001]

d'accord par contre le VBA je n'ai jamais pratiqué du coup votre code je ne sais pas comment l'implanter
j'ai réussi à ouvrir une feuille mais après je ne sais pas quoi faire

 

[job75]

Clic droit sur l'onglet de la feuille et Visualiser le code puis y coller la macro.

 

[florian140001]

et après..

 

[job75]

Après la macro s'exécute toute seule quand on modifie le contenu d'une cellule.

 

[job75]

En fait puisque la macro ne modifie pas le contenu des cellules les Application.EnableEvents sont inutiles :

Private Sub Worksheet_Change(ByVal Target As Range)
Protect "toto", UserInterfaceOnly:=True
Set Target = Intersect(Target, UsedRange)
If Target Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each Target In Target 'si entrées multiples (copier-coller
    If Target.Column > 1 And LCase(Target) = "chaise" Then Target(1, 0).Locked = True 'verrouille la cellule à gauche
Next
End Sub