user form, comment résoudre

[news]

Bonsoir à tous du forum,

je remets de nouveau ceci comme n'est pas résolu comment bloquer que user form"info" ne s'ouvre plus toujours,

je me retrouve plus avec les private, public and l'expression "Private Workbook.close before as boolan", dont je comprends pas cette expression, car avant j'avais utilisé autoopen, autoclose,

le mieux se référer au fichier ou il y a les différents bug.

comment les expressions, le fichier devraient/pourraient fonctionner:

lorsque le fichier est ouverte, 2 user form s'ouvrent,
puis si Range("L16")<0 le montant va clignoter,

en fermant le fichier, que d'abord user form "info_minus" s'ouvre et se referme après 5 secondes, tant que Range("L16")<0 le ficher ne va pas se fermer,

merci d'avance d'astuces comment résoudre, comme j'avance plus avec ce fichier,

 

[news]

Re : user form, comment résoudre

ci joint le fichier avec les différents bug,

 

[jeanpierre]

Re : user form, comment résoudre

Bonsoir news,

Pas trop compris, mais je n'ai pas les polices qui vont bien. Même avec, j'ai l'impression que cela ne changerait rien.

lorsque le fichier est ouverte, 2 user form s'ouvrent,
puis si Range("L16")<0 le montant va clignoter, cela fonctionne

en fermant le fichier, que d'abord user form "info_minus" s'ouvre et se referme après 5 secondes, tant que Range("L16")<0 le ficher ne va pas se fermer, pourquoi après 15 secondes...? cela ne marche pas car je n'ai pas réussi à modifier L16/17 (fusionnées)

Que veux-tu faire.

Bonne soirée en attendant.

Jean-Pierre

 

[news]

Re : user form, comment résoudre

Bonsoir à tous du forum,

merci Jean-Pierre pour réponse,

en fermant le fichier, que d'abord user form "info_minus" s'ouvre et se referme après 5 secondes, tant que Range("L16")<0 le ficher ne va pas se fermer, pourquoi après 5 secondes...?
cela peut-être également 2 secondes, simplement qu'est affiché un peu la userform afin que le user peut lire le texte et que la userform se ferme automatiquement.

cela ne marche pas car je n'ai pas réussi à modifier L16/17 (fusionnées)
dans fichier ci-joint j'ai défusionné Range("L16:L17"),
de même j'ai ajouté l'écritue(font) en hindou, à copier dans C:\Windows\font

Comment expliquer, le fichier ne fonctionne pas comme devrait ...
Serait bien que le fichier focntionnerait comme ci-dessous:

Dès qu'on ouvre le fichier "hindou" est affiché une user form "info".
Lorsque on fait des ajoutes de montants dans D6:G15 ou K6:K15
et que résulte un montant négatif dans Range("L16"), que ce montant dans
Range("L16") commence à clignoter.
Si on veut fermer le fichier comme il n'y plus d'ajoutes à faire, le fichier ne se fermera pas (comme il a un montant négatif) et en même temps est affiché une user form"info_minus" laquelle se referme après 5 secondes.

Mais tout ceci ne fonctionne pas, de même il a un bug dans les expressions
"Public Sub Eclairage()" et "Public Sub ArrêtEclairage()".

peut-être c'est un peu plus explicite comme j'ai mis,

bonne soirée encore,

 

[news]

Re : user form, comment résoudre

Bonjour à tous du forum,

j'ai revérifié les données et fait les différens changements,

ce que ne fonctionne toujours pas encore, c'est lorsque Range("L16") < 0,
s'ouvre les deux user form, mais ne devraient pas,

je ne trouve pas pourquoi la user form initial "info" s'ouvre,
car dans l'expression "close_file" il n'y a rien indiqué de ceci dans la condition,

je remets le fichier et enlevé l'écriture hindou,

peut-être vous savez la solution comme résoudre ceci,

 

[news]

Re : user form, comment résoudre

Bonsoir à tous du forum,

après tants d'heures de recherches pourqoui cela ne fonctionne pas,
enfin résolu avec l'expression ci-dessous,
dont il fallait mettre la condition If, else avec Cancel = True dans this Workbook et non dans le module,
si simple, mais il fallait le trouver:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("L16") >= 0 Then
Application.DisplayAlerts = False
ActiveWorkbook.Save
Worksheets(".- -.").Activate
ActiveWorkbook.Save
Application.Quit ' va fermer Excell
Else
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True

info_minus.Show 0

Cancel = True
End If
End Sub

Bonne soirée encore,