Vérouillage d'une ligne en fonction de la couleur d'une cellule

Bonjour,

Je souhaite verrouiller une ligne de mon tableau excel lorsque la dernière case de cette même ligne a été mise en vert. (Dans l'exemple, la case F1) Je souhaiterais que le verrouillage puisse se faire sur toutes les lignes du tableau.

Pour cela je souhaite recourir à une macro.

Pour l'instant j'ai un code qui ressemble à ça:

Public Sub verouillage()

'attribue à la variable id-cellule le type entier'

Dim id_cellule As Integer

'attribue à la variable id-cellule, le numéro d'identifiant de la couleur de la case'

id_cellule = Range("D").Interior.colorIndex

MsgBox (id_cellule)

Select Case id_cellule

Case Is <> 4

With ActiveSheet

.Unprotect Password:="ttt"

End With

Case Else

With ActiveSheet

.Unprotect Password:="ttt"

.Cells.Locked = False

.Range("A1:F10").Locked = True

.Protect Password:="ttt"

End With

End Select

End Sub

Cependant, avec ce code toute la feuille se verrouille, ce qui ne correspond pas à ce que je souhaite réaliser. Auriez-vous une solution?

Merci!

Bonjour et bienvenue,

N'est ce pas A1:F1 que tu veux simplement verrouiller?

.Range("A1:F10").Locked = True

deviendrait

.Range("A1:F1").Locked = True

Cdlt.