Verrouiller les cellules jaunes dans planning

[mgrizzly]

Bonjour,
J'ai créé un planning sous excel où les jour fériés ainsi que les weekend se colorent en jaune.
Pour verrouiller les cellules jaunes j'ai fait ce code en VBA :

Sub Verrouiller() ' verrouiller les cellules de couleur jaune

Dim x As Integer
Dim n As Range

For x = 1 To Worksheets.Count
Sheets(x).Unprotect
For Each n In Worksheets(x).[F4:L34]
If n.Interior.ColorIndex = 6 Then
n.Locked = True
End If
Next
Sheets(x).Protect
Next

End Sub

Mais avec ce code le programme verrouille pas seulement les cellules jaune du mois en cours mais aussi celles qui étaient jaune les mois d'avant où celles qui le seront dans les mois après.
Comment faire pour verrouiller seulement celles du mois en cours.

Merci d'avance pour votre aide.

 

[vbacrumble]

Re : Verrouiller les cellules jaunes dans planning

Bonjour

Essayes ainsi

Sub Verrouiller() ' verrouiller les cellules de couleur jaune
Dim x As Integer
For x = 1 To Worksheets.Count
If Sheets(x).Name = StrConv(MonthName(Month(Date)), vbProperCase) Then
Sheets(x).Unprotect
Worksheets(x).[F4:L34].Cells.Locked = _
IIf(Worksheets(x).[F4:L34].Cells.Interior.ColorIndex = 6, True, False)
Sheets(x).Protect
End If
Next
End Sub

 

[mgrizzly]

Re : Verrouiller les cellules jaunes dans planning

Merci de m'avoir répondu aussi vite vbacrumble mais aux lignes :

Worksheets(x).[F4:L34].Cells.Locked = _
If(Worksheets(x).[F4:L34].Cells.Interior.ColorIndex = 6, True, False)

cela marque erreur de compilation, erreur de synthaxe.

 

[vbacrumble]

Re : Verrouiller les cellules jaunes dans planning

Re


C'est normal !!

C'est IIF pas If

relis bien le code que j'ai posté .

 

[mgrizzly]

Re : Verrouiller les cellules jaunes dans planning

Ah oui !!!
Le code ne fait plus d'erreur maitenant mais ça ne change rien : je n'ai pas que les cellules jaunes de verrouillées.