Verrouillage cellules VBA

Bonjour à tous,
Dans mon tableau j'ai en colonne A différents numéros de services et d'annotations.
Je précise que la colonne A est verrouillée et donc non modifiable puisque remplie automatiquement par l'onglet Planning.
Donc si:
A1="2581" B1,C1,D1 sont déverrouilées
A1="2582" B1,C1,D1 sont déverrouilées
A1="2681" B1,C1,D1 sont déverrouilées
A1="2682" B1,C1,D1 sont déverrouilées

Si A1 contient une autre valeur que 2581, 2582, 2681 ou 2682 alors B1,C1 et D1 sont verrouillées.

Ai-je été assez clair ?

Par avance, merci à tous.

Citation:

---

Envoyé par Kermitoo

Ai-je été assez clair ?

---

Pas vraiment.
Tu décris l'état de tes données mais tu ne décris pas ce que tu souhaites obtenir... :koi:

Bonjour Menhir
1) :plusser:
2) voilà où mènent les nouvelles "manières de s'exprimer". Je suppose qu'il faut traduire "sont déverrouillées" (qui signifie un état de fait) par "sont alors à déverrouiller"
Et qu'il faut également ajouter un SI qui, lui, marque une condition de verrouillage ou de déverrouillage.

Je ne crois de toutes manières pas que la chose soit possible sans VBA (par Excel uniquement)

Salut.

Sans VBA, tu pourrais placer une validation sur les cellules B1:D1 qui testerait que la formule suivante renvoie VRAI:

Code:

---

=ET(NON(ESTVIDE($A1));OU($A1=2581;$A1=2582;$A1=2681;$A1=2682))

---

Pièce jointe 373429

La saisie en B1:D1 sera verrouillée si A1 vide ou différent des valeurs que tu énonces. Idéalement, il faudrait que ces valeurs soient dans une feuille (jamais de constantes dans une formule) et donc que tu adaptes la formule en fonction de cela. La validation personnalisée se base sur une formule qui doit renvoyer VRAI pour la saisie puisse avoir lieu. Il est souvent utile de décocher la case Ignorer si vide.

Limitation: Un copier-coller sur une des cellules bousille la validation. Ca n'offre donc pas la limitation du VBA mais ça peut peu-être suffire.

Bonsoir et un grand merci à toi Pierre pour ta réponse qui résous en partie mon problème.
En fait j'ai mal détaillé... Alors je reprends:

Par défaut, les colonnes B,C,D sont verrouillées et la feuille est protégée. Seules les cellules non protégées sont sélectionnables.

A1 n'est jamais vide puisque compléter par une autre feuille.

J'ai nommé les valeurs ainsi:
Serv1="2581" Serv2="2582" Serv3="2681" Serv4="2682"

Si A1=Serv1 ou A1=Serv2 ou A1=Serv3 ou A1=Serv4
Alors B1 est déverrouillée, C1 reste verrouillée et D1 reste verrouillée
Si B1= une valeur sur quatre chiffres (exemple: 2510) alors C1 est déverrouillée et D1 reste verrouillée
Si C1= une valeur sur quatre chiffres (exemple: 2510) alors D1 est déverrouillée

Par contre:
Si A1<>Serv1 ou A1<>Serv2 ou A1<>Serv3 ou A1<>Serv4
Alors B1,C1 et D1 restent verrouillées.

Et en VBA avec une macro du style:

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)

---

ou

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

---

D'ailleurs, je n'ai pas saisi la différence entre les deux...

Voilà j'espère avoir été plus clair cette fois.
Merci à vous,

Bonjour Kermitoo

Tout d'abord, selectionChange la macro se lance lorsque tu sélectionne une nouvelle cellule. Change, la macro se lance lorsque tu modifie le contenu de la cellule.

Ensuite, si j'ai bien compris ton problème, tu souhaite empêcher la saisie d'une valeur dans les colonnes B-C et D si les condition que tu as énumérés ne sont pas remplies.
La question posée ainsi permet d'élargir les solutions possibles à ton problème.

Ainsi, par exemple, tu peux utiliser Private Sub Worksheet_Change(ByVal Target As Range) pour valider si lorsqu'une valeur est saisie dans les colonnes B c ou D, les conditions souhaitées sont remplies. Si le résultat est négatif, tu peux effacer la saisie. voici un exemple que tu pourras perfectionner :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Private Sub Worksheet_Change(ByVal Target As Range)   Application.EnableEvents = False Select Case Target.Column   Case Is = 2 valeur = Cells(Target.Row, 1) Select Case valeur Case Is = 2581, 2582, 2681, 2682 Application.EnableEvents = True Exit Sub End Select   Case Is = 3 valeur = Len(Cells(Target.Row, 2)) If valeur = 4 And IsNumeric(Cells(Target.Row, 2)) Then Application.EnableEvents = True Exit Sub End If   Case Is = 4 valeur = Len(Cells(Target.Row, 3)) If valeur = 4 And IsNumeric(Cells(Target.Row, 3)) Then Application.EnableEvents = True Exit Sub End If   End Select   MsgBox ("opération proscrite") Target.ClearContents   Application.EnableEvents = True   End Sub

---

D'autres solutions sont possibles, à toi de choisir

Bonsoir LeBo74,
Merci pour ton code et pardon pour la réponse tardive.
J'ai adapté ta solution et j'ai réussi à obtenir ce que je souhaitais.
Un grand merci donc et bonne continuation.