Salut Martin
Regarde dans cette procédure il y à peut-être ce que tu cherche
Sub VerifierEcheances()
Dim ZoneATester As String
ZoneATester = ActiveWindow.RangeSelection.Address
If ZoneATester = Null Then
MsgBox "Sélectionnez la plage de cellules à tester.", _
vbOKOnly & vbInformation
Exit Sub
End If
Dim DateEcheance As Variant
DateEcheance = InputBox("Indiquez la date d'échéance.", _
"Echéance des opérations en cours", Date + 30)
DateEcheance = CDate(DateEcheance)
Dim CellTest As Range
Dim DatesHorsEcheance As Boolean
DatesHorsEcheance = False
For Each CellTest In Range(ZoneATester)
If IsDate(CellTest) = True Then
If CellTest.Value > DateEcheance Then
CellTest.Interior.ColorIndex = 6
DatesHorsEcheance = True
End If
End If
Next
If DatesHorsEcheance = True Then
Dim RedéfinirLaDate As Integer
RedéfinirLaDate = MsgBox("Des problèmes d'échéance ont été trouvés." & _
Chr(10) & "Souhaitez-vous spécifier une autre date ?", _
vbYesNo + vbQuestion, "Redéfinir la date d'échéance ?")
If RedéfinirLaDate = vbYes Then
Range(ZoneATester).Interior.ColorIndex = xlNone
Call VerifierEcheances
End If
Else
MsgBox "Pas de problème d'échéance.", _
vbOKOnly + vbInformation, "Echéancier respecté"
End If
End Sub
Gérard