verrouiller une celulle sous condition

[jboyer974]

bonjour,

je voudrais savoir si il existe une technique pour verrouiller une cellule en fonction d'un calcule.

exemple si A1>2 alors la cellule B1 peut être en mode écriture sinon la cellule est verouillée.


merci d'avance de votre aide.

 

[Catrice]

Re : verrouiller une celulle sous condition

Bonjour,

Un exemple ci-joint

 

[Robert]

Re : verrouiller une celulle sous condition

Bonjour Jboyer, Catrice,

Je n'ai pas regardé la proposition de Catrice alors je me permets de te proposer cette solution avec la macro événementielle Change à placer par Visual Basic Editor dans l'onglet concerné. Ici Feuil1(Feuil1).

Private Sub Worksheet_Change(ByVal Target As Range) 'à l'édition dans l'onglet
 
If Target.Address <> "$A$1" Then Exit Sub 'si l'édition se fait ailleurs qu'en A1, sort de la procédure
 
If Target.Value = 2 Then 'condition : si la valeur de A1 est égale à 2
    Cells.Locked = False 'déverrouille toutes les cellules
    Range("B1").Locked = True 'verrouille la cellule B1
    ActiveSheet.Protect 'protège l'onglet
Else 'sinon
    ActiveSheet.Unprotect 'déprotège l'onglet
End If 'fin de la condition
End Sub

 

[aurelien.francois]

Re : verrouiller une celulle sous condition

Bonjour,
Ces deux méthodes ne marchent pas chez moi... Peu importe la valeur de A1, B1 est toujours modifiable. Est-ce normal ?

 

[Jocelyn]

Re : verrouiller une celulle sous condition

Bonjour le Forum,
Bonjour jboyer974, Catrice, Robert,

Hum hum surprenant elles fonctionnent chez moi actives tu les macro a l'ouverture ?

Autrement une autre solution en fichier joint on sélectionne la ou les cellules que l'on veut voir limitées ici donc B1 puis menu => Donnée => Validation dans le premier champ avec la fleche choisir personaliser et en suite la formule je te laisse regarder le fichier

Jocelyn

 

[aurelien.francois]

Re : verrouiller une celulle sous condition

Oui en fait il fallait que je baisse la sécurité des macros.
Merci quand même.