voivi mon problème. L'utilisateur du fichier doit rentrer 2 chiffres dans 2 cellules différentes . Si la somme de ces ne chiffres ne correspond pas au total indiqué dans une 3ème cellule, je souhaiterais qu'un message d'erreur apparaisse. Possible?
en supposant les deux valeurs à entrer en A1 et A2, et le résultat en A3
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
If Application.CountA(Range("A1:A2")) = 2 Then
If Application.Sum(Range("A1:A2")) = Range("A3").Value Then
Exit Sub
Else
MsgBox "Raté, essaye encore!"
Range("A1:A2").ClearContents
End If
End If
End If
End Sub