Impression nb copie en fonction d'une cellule

Bonjour ,

je cherche sans succès une simple macro (les macro je débute) mais ça coince tout le temps alors merci de votre aide s'il vous plait.

voila mon problème:

je souhaite via un bouton sur l'onglet" Saisie" imprimer la sélection de l'onglet "Sterile" avec un nombre de copie défini par

la cellule (G4) dans l'onglet "Saisie" .(ou la même info cellule lier (B2 dans l'onglet Sterile)

actuellement au dernier essai j'ai çà.

Sub IMPRESSION()

'

' IMPRESSION Macro

'

'

Sheets("Sterile").Select

Range("A1:AF39").Select

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=Range(B2), Collate _

:=True, IgnorePrintAreas:=False

End Sub

Merci d'avance

Bonjour,

Avec une boucle.

Dim i as integer
Dim nbcop as integer
nbcop = range("B2").Value
For i = 1 to nbcop

'ton code

next i

bonjour et merci de votre réponse.

malheureusement je n'arrive pas a la faire fonctionne lors du clic sur le bouton rien ne se passe ni en direct exécuter.....

je me doute que cela vient de moi mais quoi ?

voici ce que j'ai coller

Sub IMPRESSION()

Dim i As Integer

Dim nbcop As Integer

nbcop = Range("B2").Value

For i = 1 To nbcop

Sheets("Sterile").Select

Range("A1:AF39").Select

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _

:=True, IgnorePrintAreas:=False

Next i

End Sub

Re,

En fait même pas besoin de boucle.

WorkSheets("Sterile").PrintOut From:=1, To:=1, Copies:=nbcopie, Collate _
:=True, IgnorePrintAreas:=False

Si sa ne fonctionne pas je comprend pas ^^.

Cdlt,

cela fonctionne......presque

en fait ca fonctionne mais uniquement si je met moi même le nb de copie dans le code ( pas pratique )

et si je met ma cellule B2 (ou se trouve la quantité a imprimer )cela ne fonctionne pas

a savoir j'ai essayer en remplacant le 2 par (B2) ou aussi par Range(B2)

Sub IMPRESSION()

Worksheets("Sterile").PrintOut From:=1, To:=1, Copies:=2, Collate _

:=True, IgnorePrintAreas:=False

End Sub

Re,

Sub IMPRESSION()

Dim nbcop As Integer
nbcop = WorkSheets("Sterile").Range("B2").Value

WorkSheets("Sterile").PrintOut From:=1, To:=1, Copies:=nbcop, Collate _
:=True, IgnorePrintAreas:=False

Essaie ça.

RE il me met une erreur 1004

le nombre doit etre compris entre 1 et 32767 ???????

Re,

Met ton fichier en pièces jointes STP. Même si je suis persuader qu'un membre avec un nom de couleur rouge te résoudrai le problème en 2 temps, 3 mouvements ^^, j'aimerai voir ton fichier sans informations confidentielles.

C'est bizarre le code fonctionne chez moi..

Cdlt,

et voila merci de ta disponibilite.

pas moyen meme avec plus rien dedans est zippe il me disent fichier trop volumineux

Ah mince.. je comprend pas pourquoi le code ne fonctionne pas en plus. Peut-tu utiliser le débogueur et me dire sur quelle ligne le code coince ?

Aussi, peut être que le nombre de copie que tu veux faire est trop important ? Mais tu ne compte en faire plus de 32000 si ? Pense à la planète

Alors ça coince la

Worksheets("Sterile").PrintOut From:=1, To:=1, Copies:=nbcop, Collate _

:=True, IgnorePrintAreas:=False

et pour les impression une cinquantaine de pages(planche)

en fait ce fichier a terme servira a éditer des étiquettes de production que l'on colle sur les boites pour les identifier

l'onglet Stérile en fait est une planche d’étiquettes pour deux produit a la fois

• deux grosses (identification de la boite)
• deux petites (identification des sachets a l’intérieur des boites)
• dix petites (deux fois cinq) (traçabilité)

en générale édition d'une cinquantaine de planche

d’ailleurs une fois régler ce problème il y en aura un autre pour incrémenter un numéro sur les deux grosses étiquettes

en fait il me faut sur chaque grosses étiquettes le lot du produit plus un numero unique par etiquette

du genre lot:1236/1 1236/2 1236/3 1236/4 donc si j'imprime 50 planche (soit 100 produits) il faut que ca part du 1236/1 au 1236/100..............mais ceci et un autre problème

La feuille Sterile n'est pas masqué ? Je ne vois pas où est l'erreur sinon ..

Non rien de masquer ......

Le message d'erreur de précise simplement le numéro de l'erreur ou y'a-t il un complément d'informations ? Peut être c'est ta variable nbcop qui est mal incrémentée... c'est ma dernière cartouche après je jette l'éponge ^^

Grosse Grosse erreur de ma part !!!!!!!!!!!!!!!

ca fonctionne !!!!! a force de trifouiller j'ai enlever le nombre de copie en b2 !!!!!!

mille merci !

si tu a le temps de te pencher sur mon problème d’incrémentation de numéro je vais voir de mon cote mais ca a pas l'air simple !

merci encore !!!!!!!

Ahah ca m'arrive très très souvent ce genre de bêtise Ahah. Derien.