Affichage Msg Box sous conditions

ToM · 24 Mai 2004

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 · 24 Mai 2004

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 · 24 Mai 2004

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

ToM · 24 Mai 2004

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 · 24 Mai 2004

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

Affichage Msg Box sous conditions

ToM

Guest

Eric C

Guest

ToM

Guest

ToM

Guest

Eric C

Guest

Discussions similaires