Changement de couleur d'une cellule dans une plage suivant la valeur.

[codeFern]

Bonjour à tous,

J'ai le code (1) suivant dans ma feuille (9) et je voudrais rajouter un code (2), mais je ne sais pas comment l'intégré si quelqu'un pourrais me donner un coup de main svp.

Code (1)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pwd$
Pwd = "test"
On Error Resume Next
    Application.ScreenUpdating = False
    If Not Intersect(Target, Range("d6:j33")) Is Nothing Then
    Target = WorksheetFunction.Proper(Target)
    Worksheets(1).Unprotect Pwd
    Worksheets(9).Unprotect Pwd
    Worksheets(1).Range("G24") = Now
    Worksheets(9).Range("AB3") = Now
    Worksheets(1).Protect Pwd
    Worksheets(9).Protect Pwd
    ElseIf Not Intersect(Target, Range("k6:q33")) Is Nothing Then
    Target = WorksheetFunction.Proper(Target)
    Worksheets(2).Unprotect Pwd
    Worksheets(9).Unprotect Pwd
    Worksheets(2).Range("G24") = Now
    Worksheets(9).Range("AB3") = Now
    Worksheets(2).Protect Pwd
    Worksheets(9).Protect Pwd
    ElseIf Not Intersect(Target, Range("r6:x33")) Is Nothing Then
    Target = WorksheetFunction.Proper(Target)
    Worksheets(3).Unprotect Pwd
    Worksheets(9).Unprotect Pwd
    Worksheets(3).Range("G24") = Now
    Worksheets(9).Range("AB3") = Now
    Worksheets(3).Protect Pwd
    Worksheets(9).Protect Pwd
    ElseIf Not Intersect(Target, Range("y6:ae33")) Is Nothing Then
    Target = WorksheetFunction.Proper(Target)
    Worksheets(4).Unprotect Pwd
    Worksheets(9).Unprotect Pwd
    Worksheets(4).Range("G24") = Now
    Worksheets(9).Range("AB3") = Now
    Worksheets(4).Protect Pwd
    Worksheets(9).Protect Pwd
End If
End Sub

Code (2)

If Cellule.Value = "G" Then
Cellule.Font.Color = 255
End If
Next Cellule

Merci.

 

[Compte Supprimé 979]

Re : Changement de couleur d'une cellule dans une plage suivant la valeur.

Bonjour

Il te manque des instruction dans ton code 2 ?

"Next Cellule" doit être précédée de

For Celulle = x to y

A+