Discussion :

[sandball22]

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.

[casefayere]

Bonsoir,
mess as string

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sandball22]

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

[casefayere]

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.

...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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 +

[sandball22]

Par exemple :

demande 20
stock 10
raison

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



merci de ton aide.

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sandball22]

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

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et on range le texte dans A4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A4") = mess

fin de la deuxieme condition 30 > 20

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

End If

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

End If

fin du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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