Impression avec Nbe de copie

Excel-lent

XLDnaute Barbatruc

• 19 Mars 2012

• #2

Re : Impression avec Nbe de copie

Bonjour Apdf,

Depuis le temps, tu devrais savoir qu'un extrait aussi petit ne nous aide pas beaucoup pour te répondre 😉

Par exemple ta variable Nb, elle contient quoi? Cela semble être une variable public.

A priori, sans certitude, ton souci d'impression proviendrais de tes deux boucles insérer. Je ne vois pas l'intérêt de la boucle : For n = 0 To Nb... Next. A première vue c'est elle qui est l'origine du problème.

A te lire

Bonne journée

Edition 1. : le problème n'est pas dû à la version d'Excel, donc si tu pouvais joindre ton fichier au format Excel2003 cela sera sympa et plus simple pour te répondre.

Edition 2. : salut Pierrot93 😉

 

Dernière édition: 19 Mars 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Mars 2012

• #3

Re : Impression avec Nbe de copie

Bonjour,

comprends pas cette boucle...

Code:

For x = 1 To TextBox1.Value
    Sheets(ListBox1.List(n)).PrintOut Copies:=x
    Next x

peut être tout simplement ceci :

Code:

Sheets(ListBox1.List(n)).PrintOut Copies:= TextBox1.Value

on ne voit même pas que la variable "nb" soit bien initialisée....

difficile avec un bout de code jeté sur un post..;

bonne journée
@+

Edition : bonjour Excel-Lent, un peu en retard moi....

 

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 19 Mars 2012

• #4

Re : Impression avec Nbe de copie

Re,

Peut être avec sa

 

Pièces jointes

• Imprime fois.xlsm

  37.9 KB · Affichages: 50
• Imprime fois.xls

  90 KB · Affichages: 38

Dernière édition: 19 Mars 2012

Vote positif 0 Vote négatif

S

sabyann

XLDnaute Nouveau

• 19 Mars 2012

• #5

Re : Impression avec Nbe de copie

une boucle doit suffire effectivement.
et enlever le x après le next

 

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 19 Mars 2012

• #6

Re : Impression avec Nbe de copie

Bonjour Sabyann,

Merci d'avoir repondu mais non sa ne marche pas ?

@+
Max

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 19 Mars 2012

• #7

Re : Impression avec Nbe de copie

Bonjour apdf, le forum,

Avec ce code, peut être, un peu de ménage et le code de Pierrot que je salue:

VB:

Private Sub OK_Click()
    For n = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(n) = True Then
      Sheets(ListBox1.List(n)).PrintOut Copies:=TextBox1.Value
      End If
    Next
End Sub

A+

 

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 19 Mars 2012

• #8

Re : Impression avec Nbe de copie

Bonjour Yaloo, Pierrot .......

Je te remercie sa marche nickel

Bonne journée

@+
Max

 

Vote positif 0 Vote négatif