VBA - mise en protection d'une ligne sous condition. Résolu/Fermé

Question

Bonjour, 

Je suis confronté à un petit soucis et ne voit pas comment le résoudre. 
Ce que je souhaite obtenir :


Si le texte introduit dans une cellule de la colonne A (2 choix possible : Actif et Non actif) est "Non Actif", j'aimerais que les cellules de le colonne B à Z de la ligne concernée soient bloquées en écriture. 

Si on modifie la valeur de la colonne A en Actif, on peut à nouveau écrire dans les cellules de la colonne B à Z



Grand merci pour l'aide !

Configuration: Windows 7 / Firefox 42.0

Pierre1310 · Answer

Bonjour,

Je ne suis pas sur à 100% de ce que je vais te donner donc teste le avant.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("b1:b20")) Is Nothing Then Range("b1").Select

End Sub

Ce code n'autorise que les lignes b1 à b20 en écriture.

Si il marche comme je viens de te l'expliquer adapte le pour toi, a+

michel_m · Answer

Bonjour

si en col A ="non actif" 
en cliquant de col B-Z m^ ligne
on retourne en Col A 

on pourrait agrémenter avec un msgbox mais....à toi de jouer
Option Explicit'-----------Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim Lig As Integer, Plage As RangeLig = Target.RowSet Plage = Range(Cells(Lig, "B"), Cells(Lig, "Z"))If Not Intersect(Target, Plage) Is Nothing Then    If LCase(Cells(Lig, "A")) = "non actif" Then: Cells(Lig, "A").Select End IfEnd Sub

VBA - mise en protection d'une ligne sous condition.

2 réponses

Discussions similaires