Conditions et affichages

[JM]

Bjr @ tous,

J'ai un souci de conditions !!
J'ai essayé via "données - Validations " et par SI et Somme.SI, mais cela ne donne pas le resultat escompté.

Je voudrais tout simplement genere un message quand a la suite de la somme de 3 cellules le montant depasse 100, mais affiche tout de meme le resultat. C'est juste un message d'avertissement.

De plus, j'ai deja pose la question sur le forum, Thierry m'a repondu mais cela ne fonctionne pas, mais c'est dans la direction que je veux, dommage !!

Je voudrais creer un message lors de la sortie d'xcel, qui informe la sortie du prog, et qui demande si tout est bien fini, et si non, bah il retourne dans l'appli. Voila !!!

Sur ce bonne journée et @++

 

[eric]

Bonjour,

Essaie ça pour ton problème de somme, dans mon exemple, les chiffres à additionner sont dans les cellules de a1 à a3 et la somme en a4 :

Private Sub Worksheet_Calculate()
If Range("a4") > 100 Then MsgBox ("supérieur à 100")

End Sub

Pour générer un message avant la fermeture :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Message = MsgBox("etes vous sûr de vouloir quitter ?", vbYesNo)
If Message = vbNo Then Cancel = True
End Sub

Bonne journée

 

[JM]

Merci Eric pour tes suggestions. La fermeture tres bien.
Maintenant la condition que tu m'as donne ne fonctionne pas, mais c'est ce que je souhaiterais.
J'ai bien remplacé la cellule A4 par la mienne C18

@++++

 

[eric]

Qu'est ce qui ne fonctionne pas ?

As tu bien mis cette procédure dans un évènement worksheet_calculate() ?

 

[JM]

salut eric,

cela fonctionne desormais, car je navais pas oter une condition sur la cellule; Comment fait on lorsque j'ai plusieurs cellules (c18, E18, f18)
("C18:F18"), ne fonctionne pas.
As tu une idee ??

d'autre part est il possible dans ta requete de fermeture de lui dire de sauvegarder si la reponse est oui ??

Merci bonne aprèm !!!!

 

[eric]

J'utiliserai des "or" car je ne sais pas si on peut lui définir une plage :

If Range("a4") > 100 Or Range("b4") > 100 Then MsgBox ("supérieur à 100")

Pour la sauvegarde ajoute ça à la suite :

If Message = vbyes Then ActiveWorkbook.Save

A ++

 

[JM]

En tout cas merci beaucoup Eric.

@++