2 fois If, Msgbox à afficher

N

news

XLDnaute Impliqué

• 29 Mars 2009

• #2

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,

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 29 Mars 2009

• #3

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

 

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 29 Mars 2009

• #4

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

 

Dernière édition: 29 Mars 2009

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 29 Mars 2009

• #5

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

 

Pièces jointes

• dataMsgbox_modifié.zip

  73.8 KB · Affichages: 42

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 30 Mars 2009

• #6

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

 

Vote positif 0 Vote négatif