bonjour Hamid
dans l'exemple joint , un message s'affiche s'il y a une erreur dans la cellule A1 . la procedure est lancée à chaque nouveau calcul dans la feuille
Private Sub Worksheet_Calculate()
If WorksheetFunction.IsErr(Range("A1")) = True Then MsgBox "Il y a une erreur dans la formule . "
End Sub
bonne soirée
michel
