Re : Mise en forme conditionnelle
Re,
Je craque ...
Aprés une macro du type (celle dessous),
Mais mise en forme conditionnelles de sont plus active ....
Sub ()
Sheets("f1").Unprotect "toto"
Sheets("f2").Unprotect "toto"
Dim plage As Range, c As Range, cSource As Range
Set plage = Feuil1.Range("D1😀2,F1:F2,C5:K12,D14😀15,F14:F15,C18:G25,D27😀28,F27:F28,C31:L39,D41😀42,F41:F42,C45:J53,I19:I23,I25:I28,K19:L26,I42:L42,C3:K3,J4,C16:G17,C29:L30,C44:J44,J19:J23,I1:L2")
Application.ScreenUpdating = False
For Each c In plage
If Not IsEmpty(c) Then
Set cSource = Sheets("f3").UsedRange.Find(what:=c, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not cSource Is Nothing Then
If cSource.Offset(0, 8).Value = "A" Then
c.Cut Destination:=Sheets("f2").Range("U" & _
Application.Rows.Count).End(xlUp)(2)
End If
End If
End If
Next c
plage.Locked = False
Application.ScreenUpdating = True
Sheets("f1").Protect "toto"
Sheets("f2").Protect "toto"
End Sub
Hors protection et sans faire de macro, ça fonctionne.....