Verrouillage cellule si "OK"...

Roland_M

XLDnaute Barbatruc

• 9 Novembre 2016

• #2

Bonsoir,

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

 

Dernière édition: 9 Novembre 2016

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 9 Novembre 2016

• #3

Juxan à dit:

Pourriez-vous me guider svp ?

Cliquez pour agrandir...

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

VB:

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

 

Vote positif 0 Vote négatif

J

Juxan

XLDnaute Nouveau

• 9 Novembre 2016

• #4

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 9 Novembre 2016

• #5

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 !

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 9 Novembre 2016

• #6

Juxan à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 10 Novembre 2016

• #7

Bonjour à tous,

Un essai avec validation des données.

JHA

 

Pièces jointes

• Essai Juxan.xlsx

  8.4 KB · Affichages: 31

Vote positif 0 Vote négatif