Boite de dialogue informative

Pierrot93

XLDnaute Barbatruc

• 3 Mai 2013

• #2

Re : Boite de dialogue informative

Bonjour,

essaye avec ceci, restera affiché 2 secondes...

Code:

CreateObject("WScript.Shell").Popup "Ca va être long....", 2, "Patienter....", vbCritical

bonne journée
@+

 

Vote positif 0 Vote négatif

H

havopti

Guest

• 3 Mai 2013

• #3

Re : Boite de dialogue informative

merci mais dans se cas il faut toujours cliquer sur ok pour que la suite se lance

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Mai 2013

• #4

Re : Boite de dialogue informative

Re,

CreateObject("WScript.Shell").Popup "Ca va être long....", 2, "Patienter....", vbCritical

Cliquez pour agrandir...

non au bout de 2 secondes (2ème argument), la boite de dialogue se ferme....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Mai 2013

• #5

Re : Boite de dialogue informative

Re,

merci mais dans se cas il faut toujours cliquer sur ok pour que la suite se lance

Cliquez pour agrandir...

non au bout de 2 secondes (2ème argument), la boite de dialogue se ferme....

 

Vote positif 0 Vote négatif

H

havopti

Guest

• 3 Mai 2013

• #6

Re : Boite de dialogue informative

quelle est l'erreur alors?

change les quantités pour que la macro modifie les chiffres
merci de l'attention portée a mon problème 😉

 

Pièces jointes

• test calcul v2.xlsm

  17.7 KB · Affichages: 34
• test calcul v2.xlsm

  17.7 KB · Affichages: 31
• test calcul v2.xlsm

  17.7 KB · Affichages: 37

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Mai 2013

• #7

Re : Boite de dialogue informative

Re,

pas le code dans ta macro... si je le rajoute, ok sous 2003

Code:

Sub test()
CreateObject("WScript.Shell").Popup "Ca va être long....", 2, "Patienter....", vbCritical
With Sheets("feuil1").Range("H4:H10")
.FormulaLocal = "=SI(D4<>"""";G4/D4/$G$16*$G$18+E4;"""")"
.Value = .Value
End With
End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Mai 2013

• #8

Re : Boite de dialogue informative

Re,

non OK sous 2010, ma msgbox reste affichée....

 

Vote positif 0 Vote négatif

H

havopti

Guest

• 3 Mai 2013

• #9

Re : Boite de dialogue informative

oops oubliez de sauvez avant de l'envoyer, mais sous 2007 moi ca ne marche pas :/
edit ah au moins je suis pas complètement a la rue ^^

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Mai 2013

• #10

Re : Boite de dialogue informative

Re,

oui... sous 2010 non plus, voir post #8...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Mai 2013

• #11

Re : Boite de dialogue informative

Re,

une autre approche avec un userform....

 

Pièces jointes

• classeur2.xls

  29.5 KB · Affichages: 43
• classeur2.xls

  29.5 KB · Affichages: 42
• classeur2.xls

  29.5 KB · Affichages: 43

Vote positif 0 Vote négatif

H

havopti

Guest

• 3 Mai 2013

• #12

Re : Boite de dialogue informative

merci beaucoup avec ton modèle j’ai réussi à coder un userfrom qui fonctionne 😀

 

Vote positif 0 Vote négatif