Problème avec l'évènement worksheet_selectionChange

Bonjour,

Je suis en train de développer ma première application en VBA et je rencontre un problème avec l'évènement worksheet_selectionchange.

Je veux que l'utilisateur entre une valeur >= 0, et afficher un msgbox quand la valeur saisie ne remplie pas ce critère. Pour ceci, j'ai utilisé l'évènement ws_selectionchange. Or, il ne se passe rien quand la valeur saisie ne remplie pas ce critère et ce n'est qu'en resélectionnant la cellule concernée que le message s'affiche.

Rencontrez-vous le même problème ? et auriez-vous des solutions s'il vous plaît ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim msg As Variant

    If Not Application.Intersect(Target, Range("E14, E20, E26, E30, E32")) Is Nothing Then

        If Not (IsNumeric(Target.Value) And Target.Value >= 0) Then
        msg = MsgBox("Veuillez renseigner une valeur >= 0", vbOKOnly, "Valeur non-valide")
        End If

    End If

End Sub

Merci par avance.

Bonjour,

Vous n'avez pas pris la bonne procédure événementielle :

Private Sub Worksheet_Change(ByVal Target As Range)

Merci beaucoup.

ça fonctionne parfaitement maintenant.