Verrououillage d'un menu deroulant suivant une condition

[Pierre44]

Bonjour,

J'ai quelques legers problemes avec un code sous vba.
Je voudrais pouvoir verouillez un menu déroulant si une condition est réalisée.
j'ai donc utilisé se code si dessous, malheuresement cela ne fonctionne pas:
Sub variables()

If IsNumeric(range("F25")) Then

Dim numéro_ligne As range, menu_deroulant As range

Set numéro_ligne = range("F25")

Set menu_deroulant = range("H34")

If Not numéro_ligne = 2.4 Then

menu_deroulant.Protect userinterfaceonly = True

End If

End If

End Sub

Quel est le probleme svp ?
Cordialement

Pierre

 

[fredl]

Re : Verrououillage d'un menu deroulant suivant une condition

Je ne sais pas quel est ton pb.
J'ai testé également et ça ne marche pas. Pas sûr que tu puisses t'en sortir comme ça...
Je ne peux répondre car peut etre pas suffisamment à la hauteur.
Par contre, je peux te proposer la parade suivante :
Ton menu déroulant est la seule case protégée de ta feuille
Si il y a 2.4 dans la cellule F25, la page se protège(code0) le menu déroulant est bloqué
Si il y a autre chose que 2.4 dans la cellule F25 la page se déprotège le menu déroulant est débloqué

Pour ce qui est du code, tu le trouvera en Feuil 1(en cas de modif case F25) et This workbook (à l'ouverture du fichier, déblocage ou non du menu déroulant en fonction de la case F25

Dis moi
Frédéric

 

[Pierre44]

Re : Verrououillage d'un menu deroulant suivant une condition

Ce que tu me propose est intéressant.
Malheuresement d'autre cellule sont présentes sur cette page et je ne veut pas qu'elles soient accessibles par un autre utilisateurs.
Je m'explique:
Je réalise une fiche technique que n'importe qui puissent remplire de facons intuitive c'est pourquoi certaines cellules se remplissent toutes seules en fonction de se que va demander l'utilisateur. Ces cellules doivent rester inacessibles.
Donc si F25 n'est pas égale à 2.4 alors le menu deroulant est acccessibles sinon on ne peut pas y toucher, et a coté quels que soit le résultat de F25 des cases restent verouillez.
Auriez vous une solution ?
Merci d'avance

 

[fredl]

Re : Verrououillage d'un menu deroulant suivant une condition

trouvé!

Je te laisse tester la case qui contient "frede" : elle est inmodifiable qqe soit la situation.

Code en Feuil1 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
'si la feuille est déprotégée et que la cellule à ne pas modifier est selectionnée, selectionner la cellule d'à côté.
If Target.Address = "$E$29" And Sheets(1).ProtectContents = False Then
ActiveCell.Offset(0, 1).Range("A1").Select
End If
End If
End Sub


cdt
Frédéric