alertes avec création d'une message box sous excel.

Bonjour,

J'aimerais savoir si il est possible de créer une alerte qui déclenchera l'ouverture d'une message box?
En effet, j'aimerais que lorsqu'une condition n'est pas respectée, une message box apparaisse me demandant la raison pour laquelle la condition n'est pas respectée et que suite à l'explication cela me remplisse une cellule avec la raison.


Merci de votre aide.

Bonsoir,
mess as string

Code:

---

1 2 3 4 5 6

if condition non respectée then   mess = msgbox("Pourquoi la condition n'est'elle pas respectée") end if   range("tacellule") = mess

---

Comment fait-on cela sous excel? désolé mais je ne maitrise pas excel.

Bonsoir,
Je viens d'arriver chez moi, je veux bien t'aider mais si tu ne maitrises pas excel et, j'imagine, encore moins le VBA, on va y aller par étape.

Citation:

---

...j'aimerais que lorsqu'une condition n'est pas respectée, ..

---

déjà la il faut en savoir un peu plus afin que je puisse t'aider à coder :

Code:

---

if condition non respectée then

---

dans quelle cellule est la condition et dans quelle cellule est l'entrée de l'utilisateur ?
Quelle cellule faut'il remplir avec le texte du msgbox ? <= inputbox

PS : D'ailleurs je viens déjà de faire une erreur, ce n'est pas par msgbox mais par inputbox qu'il faut passer, mais nous verrons ça

je t'expliquerai ensuite comment faire

a +

Par exemple :

demande 20
stock 10
raison

il faudrait avoir l'alerte su la condition si stock < demande



merci de ton aide.

Comme tu ne me dis ou sont tes cellules, pour que tu comprennes, fais un essai sur fichier vierge.

1 - ouvres un nouveau fichier
2 - cliques sur alt +f11
3 - dans la fenêtre la plus à gauche, cliques sur "feuil1(feuil1)"
4 - dans la fenetre à droite, au niveau du premier ascenseur, cliques sur worksheet
normalement, en dessous, tu devrais voir ça :

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   End Sub

---

tu peux supprimer ce code.

maintenant copies le code ci-dessous en selectionnant tout (et ctrl C)
et copies le dans la fenetre vba (ctrl V)

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) Dim mess As String   If Target.Address = "$A$3" Then If Range("A3") > Range("A2") Then mess = InputBox("Pourquoi la condition n'est'elle pas respectée") Range("A4") = mess End If End If End Sub

---

retournes dans excel, inscris 20 en A2, 30 en A3 mets le message que tu veux dans l'inputbx et vois le résultat
les explications viendront après

ok c'est le comportement qu'il me faut cool. un peu d'explications?
Merci

on choisit dans quel evenement declencher le code, ci-dessous le code agit dès qu'on change quelque chose dans la feuille

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)

---

ci-dessous, on doit déclarer une variable qui va permettre de prendre le message, le "as string" pour dire que cette variable sera du texte

Code:

---

Dim mess As String

---

ci-dessous si la cellule est A3, le code est provoqué (si on ne précise pas, il agirait sur toutes les cellules et tu aurais des surprises)

Code:

---

If Target.Address = "$A$3" Then

---

2eme condition, tu l'as comprise si A3 est supérieur à A2

Code:

---

If Range("A3") > Range("A2") Then

---

on provoque la boite de dialogue et grace à la variable, le texte tapé est stocké dans celle-ci

Code:

---

mess = InputBox("Pourquoi la condition n'est'elle pas respectée")

---

et on range le texte dans A4

Code:

---

Range("A4") = mess

---

fin de la deuxieme condition 30 > 20

Code:

---

End If

---

fin de la première condition (adresse cellule = A3)

Code:

---

End If

---

fin du code

Code:

---

End Sub

---

comme je ne pourrai pas te faire un cours, si tu es intéressé, tu trouveras tout ce dont tu as besoin sur ce site

Bonne soirée