Verrouiler/bloquer 1 cellule contenant une liste déroulante

Bonjour,

J'ai essayé de trouver la réponse à mon problème sur le forum sans succès.

Aussi j'espère que ma question ne sera pas un doublon.

Dans mon fichier joint en feuille "Autodiagnostic", cellule D30 j'ai une liste déroulante, si le choix en D30 est "0" (zéro), j'aimerais que la cellule E30 soit bloquée en écriture (comme verrouillée) ou toute autre solution qui puisse vous paraître intelligente à partir du moment où l'on ne peut pas y inscrire quelque chose. J'ai d'autres cellules qui sont verrouilles dans la feuilles.

J'ai essayé ceci :

Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveSheet.Range("D30" & Target.Row) = "0" Then

ActiveSheet.Unprotect 'Cesap2017

ActiveSheet.Range("E30" & Target.Row).Locked = True

ActiveSheet.Protect 'Cesap2017

End If

End Sub

Mais cela n'a pas fonctionné, je pouvais toujours choisir en E30

Merci infiniment pour votre aide et j'espère avoir été claire.

Amicalement,

Fizia

Bonjour,

Je pencherai plutôt vers 'Cells'

Worksheet change c'est ok,

Cells.Range etc ..

peut-être pas certain

crdlt,

André

Merci pour voter réponse malheureusement ça ne fonctionne pas

J'ai cette pop-up quoi que je fasse sur la feuille (fichier image joint)

Merci

Bonjour,

N'y a t il personne pour m'aider sur ce cas s'il vous plait ?

Je suis vraiment désolée, je n'y arrive vraiment pas toute seule...

Please !

merci

Bonjour et bon week end

il doit y avoir mieux je pense et à tester !

vu ici merci à Lacelin et ,MFerrand verouiller-une-cellule-excel-en-vba vu ici merci à Lacelin et ,MFerrand

Dans le Worksheet de la feuille Autodignostic

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Unprotect
If Range("D30") = 0 Then
    Range("E30").Locked = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
    ActiveSheet.Unprotect
    Range("E30").Locked = False
End If
End Sub

' pour ôter la protection de la feuille clic droit sur l'onglet Autodignostic

crdlt,

André

Merci c'est très gentil mais j'ai réussi à trouver la réponse sur un autre forum, sans VBA, avec la formule =siD30=0;"";choix_2 (choix_2 étant le nom de ma plage habituelle) à mettre dans les validations de données de la cellule que je veux voir inactive...

ça marche !

donc sujet résolu pour moi

au revoir et merci quand même