Verrouillage cellule si "OK"...

[Juxan]

Bonjour à tous et à toutes,

Je cherche comment :

en A1 j'ai du texte (un nom par exemple), en B1 : si B1="OK" (lorsque je marque OK) alors verrouillage de la cellule A1 (plus personne ne peut marquer quoique se soit en A1).

Pourriez-vous me guider svp ?

Merci beaucoup par avance.

 

[Roland_M]

Bonsoir,

EDIT: salut jacky, effectivement, je n'avais pas bien lu, suis fatigué et vais aller me coucher !
Bonne nuit à tous.

 

[Jacky67]

Pourriez-vous me guider svp ?

Bonsoir,
Dans le module de la feuille en question
Essaye ceci

Dim TMP As String

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If UCase([b1]) = "OK" And Target.Value <> TMP Then [a1] = TMP
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then TMP = Target.Value
End Sub

 

[Juxan]

ouh la je ni connais rien en VB :/ pas de solution possible sans VB ?

 

[Roland_M]

re

il te suffit de faire un copier/coller du code de Jacky67 du côté code feuille !
c'est pas compliqué et c'est inutile que tu connaisses vb !
sinon tu n'as pas d'autre choix pour ce que tu souhaites !

 

[Jacky67]

ouh la je ni connais rien en VB :/ pas de solution possible sans VB ?

RE..
A ma connaissance, non
Si tous les noms autorises sont connus, on pourrait imaginer une liste de validations
Sinon pour le code vba
1-Copier tout le code du message précèdent
2-Sur la feuille concernée, clic droit sur son onglet
3-Choisir "Visualiser le code"
4-Coller le code dans la grande fenêtre a droite
5-Retourner sur la feuille et tester

 

[JHA]

Bonjour à tous,

Un essai avec validation des données.

JHA