Discussion :

[Baptiste 5234]

Bonjour,

Je suis actuellement sur un projet Excel afin d'automatiser la rédaction d'un bilan comptable. Je souhaite faire une macro qui, lors de la fermeture vérifiera si le Bilan est équilibré (Que les montants soit identique dans deux cellules précises). Si celui-ci est équilibré alors le fichier se fermera et sera enregistré, cependant si celui-ci ne l'est pas je souhaiterais que cela affiche un message indiquant que le bilan n'est pas équilibré.

Le message afficherait : "Le bilan n'est pas équilibré" avec la possibilité soit de répondre que je souhaite quand même fermer et enregistrer les modifications. Soit que je veux vérifier l'équilibre et donc ce choix nous raménerais sur la feuille "Bilan" à un emplacement de case précise et donc annulerait la fermeture.

Après de multiples essais, je n'ai pas trouver la solution.


Cordialement
Baptiste

[Menhir]

Il faut passer par une macro évènementielle Workbook_BeforeClose.
Lire ceci : https://docs.microsoft.com/fr-FR/off...ok.beforeclose

[Baptiste 5234]

Effectivement, j'vais déjà essayé mais étant débutant dans la matière je n'ai pas réussi à atteindre mon but …

Je n'ai que peu de connaissances dans le domaine..

[MarcelG]

Donc tu te documentes et tu reviens avec un code.
Nous mènerons ensuite la procédure jusqu'à son exécution effective.
A plus donc.

[Menhir]

Si déjà tu montrais ce que tu as fais histoire qu'on évite de perdre son temps.
Ca permettrait de corriger ce que tu as fais de travers.

[BENNASR]

bonsoir
aussi vous pouvez ajouter un bouton de commande avec par exemple :
total débit en C10 et total crédit en E10

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub saveandclose()
If MsgBox("Etes-vous sûr de vouloir enregistrer et quitter ???", vbExclamation + vbYesNo) = vbYes Then
    If Worksheets("feuil1").Cells(10, 3) <> Worksheets("feuil1").Cells(10, 5) Then
        If MsgBox("bilan non équilibré ??? voulez vous continuer ???", vbExclamation + vbYesNo) = vbYes Then
        ActiveWorkbook.Save
        ActiveWorkbook.Close
        Else
        Exit Sub
     End If
 Else
Exit Sub
End If
End If
End Sub

[MarcelG]

Salut Benassr,

Je me suis exprimé dans ce sens du développement de la fonction MsgBox.
Il vaut mieux que notre ami revienne avec son code.

Au demeurant, je persiste dans le processus qui consiste à inclure ce type de code dans l'évènement BeforeClose.
Et ce d'autant que l'annulation est prévue dans cet évènement.

[MarcelG]

Bonjour Baptiste et bienvenu sur ce Forum,

Il suffit de gérer l'évènement BeforeClose de ton classeur.
Voir l'aide Microsoft sur cet évènement

Quant à la fonction Msgbox, tu peux consulter cette aide

Consulte ces espaces documentaires et reviens avec un code en exposant clairement les points d'achoppement.

A plus tard.