XL 2013 changement de couleur de police qd cellule modifiée

michel.dupont à dit:

bonjour
je travaille dans une institution pour personnes handicapées
je voudrais dans le fichier en attaché qui sert à établir les menu du jour pour les cuisines faire en sorte que les cellules de la plage b626 changent de couleur de police en rouge lorsque la cellule est modifiée.Seuls les cellules en blanc peuvent être encodées ;les cellules en couleurs ne peuvent être modifiées et la feuille est protégé par un mot de passe "cuisine".Les cellules en blanc ne sont pas verrouillées. Mon code ne fonctionne que quand le mot de passe est levée ce qui donne la possibilité de modifier les cellules en couleurs ce qui ne devrait pas se faire.Voilà mon code et mon fichier en attaché .
Par avance merci pour votre aide
Michel
Private Sub Worksheet_Change(ByVal Target As Range)
Dim modifiedCell As Range
Dim modifiedRange As Range

' Check if the modification is within the specified range (B626)
Set modifiedRange = Intersect(Target, Range("B626"))
If Not modifiedRange Is Nothing Then
' Loop through each modified cell in the range
For Each modifiedCell In modifiedRange
' Change the font color to red
modifiedCell.Font.Color = RGB(255, 0, 0) ' Red
Next modifiedCell
End If
End Sub

Cliquez pour agrandir...

ActiveSheet.Unprotect "cuisine"

Cliquez pour agrandir...

ActiveSheet.Protect "cuisine"

Cliquez pour agrandir...

michel.dupont à dit:

bonjour
Merci de votre réponse mais le problème reste identique.J e remets le fichier en attaché ace le code modifié au cas ou
cordialement
Michel

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect "cuisine"
Dim modifiedCell As Range
Dim modifiedRange As Range
' Check if the modification is within the specified range (B6:p26)
Set modifiedRange = Intersect(Target, Range("B6:P26"))
    If modifiedRange.Count > 1 Then Exit Sub
    If modifiedRange.Interior.Color <> RGB(255, 255, 255) Then
        Application.EnableEvents = False
        Application.Undo
        GoTo fin
    End If
    If Not modifiedRange Is Nothing Then
        ' Loop through each modified cell in the range
        For Each modifiedCell In modifiedRange
            ' Change the font color to red
            modifiedCell.Font.Color = RGB(255, 0, 0) ' Red
        Next modifiedCell
    End If
    ActiveSheet.Protect "cuisine"
    Exit Sub
fin:
    Application.EnableEvents = True
    ActiveSheet.Protect "cuisine"
End Sub

Gégé-45550 à dit:

If modifiedRange.Count is nothing Then Exit Sub

Cliquez pour agrandir...

TooFatBoy à dit:

Bonjour,

A tout hasard, peut-être ajouter ceci :

Cliquez pour agrandir...

michel.dupont à dit:

Mon code ne fonctionne que quand le mot de passe est levée ce qui donne la possibilité de modifier les cellules en couleurs ce qui ne devrait pas se faire.Voilà mon code et mon fichier en attaché .

Cliquez pour agrandir...

michel.dupont à dit:

code quasi parfait mes amis mais je ne comprends pas pourquoi le changement de couleur de police des cellules modifiées ne peut se faire que sur les cellules sans couleurs...sur une cellule par exemple de fond orange cela ne fonctionne pas

Cliquez pour agrandir...

Seuls les cellules en blanc peuvent être encodées ;les cellules en couleurs ne peuvent être modifiées et la feuille est protégé par un mot de passe "cuisine".Les cellules en blanc ne sont pas verrouillées.

Cliquez pour agrandir...