verouiller certaines cellules en fonction du contenu

[yves03]

Bonjour à tous,
Je voudrais pouvoir verouiller les cellules de la colonne A qui contiennent le mot INTER.
Est-ce possible ?
Merci d'avance de votre aide.

 

[Pierre-Henry]

Re : verouiller certaines cellules en fonction du contenu

Bonjour,
Un essai par macro :

Sub verrouiller()
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
taille = ActiveSheet.UsedRange.Rows.Count
For i = 1 To taille
    If Range("A" & i).Value Like "*INTER*" Then
        Range("A" & i).Locked = True
    End If
Next i
ActiveSheet.Protect
End Sub

Cordialement

 

[yves03]

Re : verouiller certaines cellules en fonction du contenu

Merci beaucoup Pierre-Henry, cela fonctionne tres bien.
😉