Sujet Précédent Sujet Suivant

MsgBox Excel

Résolu/Fermé
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 24 avril 2015 à 15:50
Excel-worker Messages postés 589 Date d'inscription mardi 7 avril 2015 Statut Membre Dernière intervention 23 juillet 2015 - 27 avril 2015 à 13:59
Bonjour,

Je souhaiterais simplement que si sur ma feuille 1, la division entre 2 cellule soit inférieure à un montant, une MsgBox apparaissent avec le message que je souhaite.

Merci d'avance.
A voir également:

3 réponses

Réponse 1 / 3
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
Modifié par Kuartz le 24/04/2015 à 16:37
Parfait merci beaucoup.

A quoi sert le "vbExclatmation"? svp?

Ah pour le titre, OK :)
0
Excel-worker Messages postés 589 Date d'inscription mardi 7 avril 2015 Statut Membre Dernière intervention 23 juillet 2015 58
27 avril 2015 à 13:43
Bonjour, le vbexclamation indique que l'icône d'exclamation est affichée lorsque la fonction MsgBox est appelée.
0
Réponse 2 / 3
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
24 avril 2015 à 16:39
Est-il possible de ne pas avoir de message d'erreur si toutes les cellules sont vides?

Par exemple si tout est vide, le calcul ne se fait pas, je ne voudrais pas de MsgBox, je voudrais que le code s'arrête de suite.

Merci d'avance.
0
Excel-worker Messages postés 589 Date d'inscription mardi 7 avril 2015 Statut Membre Dernière intervention 23 juillet 2015 58
27 avril 2015 à 13:59
Là par contre, je ne suis pas assez expérimenté. Je cède ma place à quelqu'un d'autre. Cdlt
0
Réponse 3 / 3
Excel-worker Messages postés 589 Date d'inscription mardi 7 avril 2015 Statut Membre Dernière intervention 23 juillet 2015 58
Modifié par Excel-worker le 24/04/2015 à 16:23
Bonjour,

Cela peut se faire en VBA. A mettre dans worksheet : 

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B3") <... Then
alerte
End If
End Sub

Sub alerte()
MsgBox "texte à tapper ici", vbExclamation, "ALERTE"
End Sub


Cordialement
-1