2 fois If, Msgbox à afficher

[news]

Bonsoir à tous du forum,

j'utilise différents conditions IF, mais bug restant comme la 2e condition n'est
pas activé,

autre bug avec : With Worksheets("data")
' pour indiquer que cela concerne que Worksheet "data"

un montant se trouve bien dans Range (G4) de Worksheet("data"),
en sélectionnant l'autre feuille("feuil2"), et puis cliquant sur x pour fermer le fichier,
Msgbox est affichée ??, mais ne devrait pas,

merci de vos astuces pour résoudre,

news

 

[news]

Re : Msgbox à afficher

Bonsoir à tous du forum,

les 2 conditions de IF sont résolus, fonctionnent,

arf,
reste encore bug avec : With Worksheets("data") ...

et 2e bug, n'affiche pas message box,

news,

 

[Cousinhub]

Re : 2 fois If, Msgbox à afficher

Bonsoir, News......

😡😡😡

Quand tu joins un fichier, essaie d'éviter les Auto_open....

J'ai ouvert ton fichier, regardé le code, et en moins d'une minute, un message d'alerte...... (sans doute que je ne travaille pas assez vite.....)

Bref, il est préférable de supprimer tout code à l'ouverture d'un fichier joint....

Bon courage....

 

[news]

Re : 2 fois If, Msgbox à afficher

Bonsoir à tous du forum,

il y avait encore la macro si le fichier n'est pas utilisé pendant 1 minute, le fichier se ferme,

dont n'arrive pas à résoudre :
'fichier explicite, voir réponse suivante

si on se met sur la feuille "Feuil2" et on clique sur x pour fermer le fichier, Msgbox est affiché de nouveau ("y mettre un montant dans G4") ??.
Msgbox ne devrait pas être affichée comme Range("G4") est déjà complété
et dans This Workbook est indiqué :

With Worksheets("data")
If Range("G4") = "" Or Range("G4") < 0 Then
réponse = MsgBox(vbCr & vbCr & "YOU DID NOT PUT AN AMOUNT," & vbCr & vbCr & vbCr & vbCr, vbInformation)
...
End If
End With

autre bug : Si Range("C2") < 0,00.- devrait s'afficher Msgbox, mais n'est pas affiché

Private Sub UserForm_Activate()
'Cette procédure referme la boite de dialogue 10 secondes après son activation.
Application.Wait Now + TimeValue("00:00:10") '10 secondes"
Unload Me
End Sub

 

[news]

Re : 2 fois If, Msgbox à afficher

Bonsoir à tous du forum,

j'ai résolu autre bug,
mais restant encore le bug suivant,

si dans feuille("data"), G4 est > 0, aucun MSgbox est à afficher,
mais si on se positionne sur une autre feuille et en cliquant sur x pour fermer le fichier, Msbox est affichée !

Comment résoudre ?

news

 

[news]

Re : 2 fois If, Msgbox à afficher

Bonjour à tous du forum, 🙂

Re:

bug restant, n'ais pas encore trouvé comment résoudre,

peut-être vous savez d'astuce,

merci d'avance de réponses,

news