Exception

Bonjour à tous,

J'utilise le code suivant pour empêcher l'entrée d'une donnée non n umérique
dans une cellule.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim msg, msg2
If Not IsNumeric(Target) Then
msg = "La valeur saisie en " & Target.Address(False, False) & " n' est
pas numérique. Elle sera donc effacée."
msg2 = "The value entered in " & Target.Address(False, False) & " is
not numeric. It will be erased."
reponse = MsgBox(msg & vbLf & msg2, vbOKOnly, "Erreur - Error")
Target.Value = ""
End If
End Sub

Est-il possible de permettre l'entrée de valeur non numérique dans les
cellules B18 et B24 seulement?

Merci à l'avance!

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim msg, msg2
If Target.Address = "$B$18" Or Target.Address = "$B$24" Then
If Not IsNumeric(Target) Then
msg = "La valeur saisie en " & Target.Address(False, False) & "
n'est pas numérique. Elle sera donc effacée."
msg2 = "The value entered in " & Target.Address(False, False) & "
is not numeric. It will be erased."
reponse = MsgBox(msg & vbLf & msg2, vbOKOnly, "Erreur - Error")
Target.Value = ""
End If
End If
End Sub

Cordialement JB

Bonjour à tous,

J'utilise le code suivant pour empêcher l'entrée d'une donnée non numérique
dans une cellule.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim msg, msg2
If Not IsNumeric(Target) Then
msg = "La valeur saisie en " & Target.Address(False, False) & " n'est
pas numérique. Elle sera donc effacée."
msg2 = "The value entered in " & Target.Address(False, False) & " is
not numeric. It will be erased."
reponse = MsgBox(msg & vbLf & msg2, vbOKOnly, "Erreur - Error")
Target.Value = ""
End If
End Sub

Est-il possible de permettre l'entrée de valeur non numérique dans les
cellules B18 et B24 seulement?

Merci à l'avance!