Bug sur le calcul d'une fonction avant impression

Version imprimable

11/01/2011, 22h24
XceSs

Bug sur le calcul d'une fonction avant impression

Bonsoir, j'ai créé un bouton qui permet d'imprimer une zone définie, mon souci c'est que quand je click pour imprimer j'ai une fonction qui change son résultat et affiche #valeur! alors qu'avec Menu->Fichier->Imprimer cela fonctionne correctement.

Merci de votre aide.

©Xs'
11/01/2011, 22h44
Qwazerty

Salut
Tu aurais pas un petit fichier qui reproduit cette erreur?
++
Qwaz
11/01/2011, 22h54
XceSs

re

Tu veux dire un fichier ouvert au même moment incluant la même fonction ?

©Xs'
11/01/2011, 23h03
Qwazerty

:) Non, je voulais dire, n'aurais tu pas un fichier a nous mettre à dispo qui reproduit l'erreur, pour qu'on puisse étudier cette erreur. ;)
++
Qwaz
11/01/2011, 23h27
XceSs

Ah ok
le voilou, le fichier est à remettre au format .xlsm

thx

©Xs'
12/01/2011, 06h56
Qwazerty

Salut
Il fonctionne en xls, pas en xlsm.
Par contre il nous faut un fichier compatible avec le tien, contenant les cellules au bon endroit, afin que tes formule contenues dans ton 1er fichier ne soient pas toutes en erreur, et indique nous aussi sur quelle(s) cellule(s) tu as le problème.
++
Qwaz
12/01/2011, 13h52
XceSs

Salut, le fichier est sous office 2007, l'original est en extension .xlsm, je l'ai modifié pour le mettre sur le forum. Les cellules posant problème sont avec un fond bleu. La fonction couleurs() est en VB. Le bug : quand on click sur le bouton imprimer cela me met #valeur! dans les cellules incluant la fonction.

Merci

si tu enlève

Code:

Application.Volatile True

sinon, tu peux faire (sans enlever l'application.volatile true)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton1_Click()
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
ActiveSheet.PageSetup.BlackAndWhite = True
With Application
    .Calculate
    .Calculation = xlCalculationAutomatic
End With
ActiveSheet.PrintOut Copies:=1, Collate:=True
Unload Me
End Sub
 
Private Sub CommandButton2_Click()
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
ActiveSheet.PageSetup.BlackAndWhite = False
With Application
    .Calculate
    .Calculation = xlCalculationAutomatic
End With
ActiveSheet.PrintOut Copies:=1, Collate:=True
Unload Me
End Sub

12/01/2011, 15h11
XceSs

Merci, ça fonctionne parfaitement par contre a ton avis je remets

Code:

.ScreenUpdating = True

ou pas ?

©Xs'
12/01/2011, 15h19
mercatog

Pour moi pour ce cas pas nécessaire