Dévérouiller cellule si condition

Fermé
mahots Messages postés 5 Date d'inscription lundi 15 mars 2010 Statut Membre Dernière intervention 24 mars 2013 - 23 mars 2013 à 16:43
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 24 mars 2013 à 12:03
Bonjour,

Voilà mon problème

J'ai un fichier sous excel 2007 dans lequel je propose une liste déroulante avec 3 modes de gestion d'argent, en colonne H:
Choix 1
Choix 2
Choix 3

En fonction du choix une somme à miser, en colonne I en découle (en fonction du budget de départ).

Cette colonne I est verrouillée pour que les formules de calcul en fonction du choix ne soient pas effacées par l'utilisateur.

Je souhaiterais rajouter un 4ème choix, "mise libre" et que l'utilisateur puisse lui même décider de la somme à miser.

la colonne I étant verrouillée, ma question est la suivante :

Peut-on déverrouiller une cellule sous condition?
C'est à dire déverrouiller I5 par exemple si H5=mise libre

Merci d'avance

A voir également:

4 réponses

Raymond PENTIER Messages postés 58777 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 24 décembre 2024 17 258
24 mars 2013 à 05:08
Pas avec une formule ni une commande.

Mais avec une macro, c'est peut-être faisable ; je n'en sais trop rien ...
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
24 mars 2013 à 10:39
Bonjour,

Comme le dit Raymond que je salue, il faut passer avec une macro événementielle comme celle ci-dessous. Si tu as mis un mot de passe, il faut le rajouter derrière tous les "..protect" précédé d'un espace :

Private Sub Worksheet_Change(ByVal sel As Range)
If sel.Count = 1 And Not Intersect(sel, [H:H]) Is Nothing Then
    If sel.Value = "mise libre" Then
        Unprotect
        sel.Offset(0, 1).Locked = False
        Protect
    Else
        Unprotect
        sel.Offset(0, 1).Locked = True
        Protect
    End If
End If
End Sub
0
mahots Messages postés 5 Date d'inscription lundi 15 mars 2010 Statut Membre Dernière intervention 24 mars 2013
24 mars 2013 à 11:50
Bonjour

merci pour vos réponses
mais je ne connais rien aux macros
je n'y arrive pas du tout
La macro ci dessus ne marche pas en tout cas impossible de saisir quoi que ce soit dans la cellule désirée.
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
24 mars 2013 à 12:03
Bonjour,

Regardes un petit mode d'emploi et pour toi, il faut absolument mettre la macro dans la feuille concernée.
0