Verouiller une ligne quand une des cellules est "ok"

[nat54]

Bonjour,

Sur une feuille protégé, je laisse libre certaines cellules jaunes
je souhaiterai lorsque "ok" est saisi dans la cellule D2, la ligne 2 de la feuille active soit verrouillée

comment réaliser cela ?

merci d'avance

Nat

ps : la PJ est ultra simplifiée

 

[job75]

Re : Verouiller une ligne quand une des cellules est "ok"

Bonjour nat54,

Essayez cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns(4)) Is Nothing Then Exit Sub
Dim cel As Range
Unprotect '+éventuellement mot de passe
For Each cel In Intersect(Target, Columns(4), Me.UsedRange) 'en cas de sélection d'une plage
 If UCase(cel) = "OK" Then cel.EntireRow.Locked = True
Next
Protect '+éventuellement mot de passe
End Sub

A+

 

[Odesta]

Re : Verouiller une ligne quand une des cellules est "ok"

Bonjour nat54

Voici une première proposition :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal selection As Range)
    
    
    If selection.Column = 4 Then 'réduction du test à la colonne
        If selection.Rows.Count = 1 And selection.Columns.Count = 1 Then
            If LCase(selection.Value) = "ok" Then
                 
                ActiveSheet.Unprotect
                Rows(selection.Row).Locked = True
                ActiveSheet.Protect
            Else
                'si l'on veut enlever la protection :
                'ActiveSheet.Unprotect
                'Rows(selection.Row).Locked = False
                'ActiveSheet.Protect
           
            
            End If
        End If
    End If
End Sub

Il reste des choses à améliorer, notament sur la selection de la cellule, où je verrais bien un test de de-sélection.

Olivier

EDIT : salut job75. Désolé du téléscopage, pas fait assez de refresh

 

[nat54]

Re : Verouiller une ligne quand une des cellules est "ok"

merci pour vos réponses
je testerai ca lundi au taf

 

[nat54]

Re : Verouiller une ligne quand une des cellules est "ok"

Bonjour nat54,

Essayez cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns(4)) Is Nothing Then Exit Sub
Dim cel As Range
Unprotect '+éventuellement mot de passe
For Each cel In Intersect(Target, Columns(4), Me.UsedRange) 'en cas de sélection d'une plage
 If UCase(cel) = "OK" Then cel.EntireRow.Locked = True
Next
Protect '+éventuellement mot de passe
End Sub

A+

Bonjour

Ca marche très bien sur le fichier test
Je vais essayer sur le fichier réel

 

[nat54]

Re : Verouiller une ligne quand une des cellules est "ok"

Re,

ca aurait été trop beau ...

ca marche sur un des deux onglets (le 2nd)
mais le 1er ne marche pas
est-ce possible que cela soit dû aux cellules fusionnées ?

 

[Odesta]

Re : Verouiller une ligne quand une des cellules est "ok"

Bonjour

Une façon de contourner le problème de la cellule fusionner :

If UCase(cel) = "FIN" Then Range(Cells(cel.Row, 2), Cells(cel.Row, 37)).Locked = True

Attention, si le 'fin' doit être vérouillé aussi, il faut mettre 38.

Cdt
Olivier

 

[job75]

Re : Verouiller une ligne quand une des cellules est "ok"

Bonjour nat54,

En effet c'est dû aux cellules fusionnées, c'est facile à vérifier...

Alors pour verrouiller uniquement les cellules jaunes (colonnes S:AK) :

If UCase(cel) = "FIN" Then [COLOR="Red"]Intersect(cel.EntireRow, Columns("S:AK")).[/COLOR]Locked = True

Edit : salut Odesta, pas rafraîchi...

A+

 

[Odesta]

Re : Verouiller une ligne quand une des cellules est "ok"

Salut Job
Sympa cette fonction, je ne l'utilise pas assez. ca me fera gagner quelques lignes

 

[nat54]

Re : Verouiller une ligne quand une des cellules est "ok"

Bonjour nat54,

En effet c'est dû aux cellules fusionnées, c'est facile à vérifier...

Alors pour verrouiller uniquement les cellules jaunes (colonnes S:AK) :

If UCase(cel) = "FIN" Then [COLOR=red]Intersect(cel.EntireRow, Columns("S:AK")).[/COLOR]Locked = True

Edit : salut Odesta, pas rafraîchi...

A+

Nickel !

J'ai verrouillé toutes les cellules de la ligne y compris celle qui sert de verrou

Merci !