Empêcher l’entrée des valeurs non valides à l’aide de VBA dans Microsoft Excel
Question:
Les entrées de valeurs invalides dans la zone A1: B6 doivent être empêchées, en cas d’erreur, une boîte de message respective doit être affichée.
Réponse:
Insérez le code suivant dans ce module de classeur.
Private Sub Worksheet_Change(ByVal Target As Range) Dim var As Variant If IsEmpty(Target) Then Exit Sub If Intersect(Target, Range("Calculating")) _ Is Nothing Then Exit Sub var = Application.Sum(Range("Calculating")) If IsError(var) Then Beep MsgBox "Please enter the correct value!" Target.Value = "" End If End Sub