Dévérouiller une céllule automatiquement

[JR.31]

Bonjour a toutes et tous,
Je souhaiterais dévérouiller une céllule avec une condition.
Ci joint, un exemple qui j'éspère serat assez clair pour que vous puissiez m'aider.

Merci a routes et tous

 

[Caillou]

Re : Dévérouiller une céllule automatiquement

Bonjour,

Essayes avec ce code (à placer sur le module de feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
  'si on est en colonne A
  If Target.Column = 1 Then
    'Si c'est BM 151 RP
    If Target.Value = "BM 151 RP" Then
      'Cellule B non verrouillée
      ActiveSheet.Unprotect
      Target.Offset(0, 1).Locked = False
      ActiveSheet.Protect
    End If
  End If
End Sub

Caillou

 

[JR.31]

Re : Dévérouiller une céllule automatiquement

Bonjour Caillou et merci de ton aide; une question, si c'est une autre cellule autre que "B" qu'il faut dévérouiller?

Encore merci a toi

JR.31

 

[Caillou]

Re : Dévérouiller une céllule automatiquement

Re,

En fait j'ai utiliser le déplacement ra rapport à la cellule en question, donc dans la ligne de code :
Target.Offset(0, 1).Locked = False
indique qu'il faut se déplacer de 0 ligne et de 1 colonne vers la droite (donc il suffit de changer cette valeur pour atteindre une autre cellule à déverrouiller.

Caillou

 

[JR.31]

Re : Dévérouiller une céllule automatiquement

Re bonjour,
Désolé j'ai essayé mais cela ne marche pas, à tu une idée?
Merci

 

[Caillou]

Re : Dévérouiller une céllule automatiquement

Si tu veux déverrouiller la cellule de la colonne C, tu remplaces 1 par 2 !
C'est tout !
T'as essayé quoi ?

 

[JR.31]

Re : Dévérouiller une céllule automatiquement

Voici ce que j'ai fais.

 

[Caillou]

Re : Dévérouiller une céllule automatiquement

Voici ce que fait la macro :

On pars du principe ou la feuille est protégée et les cellules de la colonne A sont non verrouillées (comme quand tu as posté ton fichier au début)
On écrit dans les cellules de la colonne A
Si on saisit BM 151 RP la cellule de la meme ligne dans la colonne B est déverrouillée!
Sinon, il ne se passe rien