Modifier une cellule si conditions remplies

Re,

Je te laisse adapter la macro aux autres cas ...

Sub Kit15Inox3N322()
    ThisWorkbook.Sheets("calcul").Unprotect Password:=""
      If Worksheets("Enquête").Range("F300") = "Estimation" And [N322] = True Then
          Feuil2.Cells(42, 4).Value = 198
          Feuil2.Range("A42:F42").Interior.Color = RGB(216, 216, 216)
      Else
          Feuil2.Cells(42, 4).ClearContents
          Feuil2.Range("A42:F42").Interior.Color = xlNone
      End If
    ThisWorkbook.Sheets("calcul").Protect Password:=""
    ThisWorkbook.Sheets("calcul").Activate
End Sub

Have Fun ...

Nickel!!!

bon weekend

ET BONNE FÊTE A TOUTES LES MAMANS

pskyl a écrit :

Nickel!!!

bon weekend

ET BONNE FÊTE A TOUTES LES MAMANS

Ravi que tout fonctionne ...

Tu as raison : BONNE FETE à TOUTES LES MAMANS