1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Sub Prime()
If Range("C22").Value = Range("C12").Value Then
Range("C32").GoalSeek Goal:=Cells(31, 8).Value, ChangingCell:=Range("D28")
Else: Range("D28").Value = ""
End If
If Range("D22").Value = Range("C12").Value Then
Range("C33").GoalSeek Goal:=Cells(31, 8).Value, ChangingCell:=Range("E28")
Else: Range("E28").Value = ""
End If
If Range("E22").Value = Range("C12").Value Then
Range("C34").GoalSeek Goal:=Cells(31, 8).Value, ChangingCell:=Range("F28")
Else: Range("F28").Value = ""
End If
If Range("F22").Value = Range("C12").Value Then
Range("C35").GoalSeek Goal:=Cells(31, 8).Value, ChangingCell:=Range("G28")
Else: Range("G28").Value = ""
End If
End Sub |
Partager