Discussion :

[XceSs]

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'

[Qwazerty]

Salut
Tu aurais pas un petit fichier qui reproduit cette erreur?
++
Qwaz

[XceSs]

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

©Xs'

[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

[XceSs]

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

thx

©Xs'

[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

[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

[mercatog]

si tu enlève

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Volatile True

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[XceSs]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.ScreenUpdating = True

ou pas ?

©Xs'

[mercatog]

Pour moi pour ce cas pas nécessaire

[XceSs]

Ok, merci en tout cas

Bonne apm

@+

©Xs"