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:

Dévérouiller cellule si condition
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Déverouiller clavier - Guide
Excel si couleur cellule alors ✓ - Forum Excel

4 réponses

Réponse 1 / 4

Raymond PENTIER Messages postés 58395 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 avril 2024 17 095
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 ...

Réponse 2 / 4

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
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

Réponse 3 / 4

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.

Réponse 4 / 4

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
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.

Discussions similaires

Excel si cellule contient texte alors...

Excel : colorer une cellule sous condition d'une autre ?

Changer la couleur d'une cellule selon son texte

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel formule : savoir si une cellule contient partie texte

Discussions similaires

Newsletters