Affichage Msg Box sous conditions

[ToM]

URGENT!!!
Bonjour à tous

Je suis étudiant et j'ai un projet à présenter dans klk heures sous Excel avec de mutiples macros VBA!!!

Je voudrais faire klk chose de tt simple mais je ne me rapl plus comment faire.

Une de mes macros me permet de gérer l'état d'un stock et je voudrais que quand celui passe en dessous de 0 une msg box s'affiche.
(pour me signaler que ma commande n'est pas possible car pas assez de stock!).

Je crois kil faut k j'utilise "If" mais je me souviens plus de sa structure.

Pourriez vous m'aider?!
Help!

Merci d'avance.

ToM

 

[Eric C]

Bonjour le forum
Bonjour ToM


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value <= 0 Then
MsgBox "Attention, valeur négative!!!"
End If
End Sub
A adapter à ton projet.
@ ++ Eric C

 

[ToM]

Merci beaucoup!!!
Je vais tester de suite...
ToM

 

[ToM]

C'est génial cela marche parfaitement mais j'ai une autre question.

Comment faire pour qu'apres l'affichage de la msgbox d'erreur, l'utilisateur retrouve à nouveau comme case active la txtbox qu'il a mal rempli dans la userform qu'il utilisait?

Merci.

 

[Eric C]

Re le forum
Re ToM


Donc tu utilises un USF. Si je comprend bien, si une valeur entrée dans un TxtBox est négative, il y a affichage de ton MsgBox et ton TxtBox reprend le focus ??
@ ++ Eric C