> Tous les forums > Forum Bureautique
 Imprimer plusieurs fois la meme page,et les numéroSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
efi64
  Posté le 23/01/2008 @ 14:57 
Aller en bas de la page 
Petit astucien

Bonjour à tous.

J'expose mon problème:

- Je dois imprimer 60 fois une meme feuille excel.

-Je voudrais numéroter chaque copie (de 1à 60 donc) en cellule B2.

Est-ce possible ??? Et comment faire.

Merci de vos réponses

A+

Efi

Publicité
gilbert_rgi
 Posté le 23/01/2008 à 15:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

avec cette petite macro

remplacer le n° de la feuille par le n° de la votre

Sub imprim()
On Error GoTo vide
For i = 1 To 60
Feuil2.Range("b2").Value = "Page " & i & "/60"
Feuil2.PrintOut
Next
Exit Sub
vide:
MsgBox "il n'y a rien à imprimer"
End Sub

Cdlt

RGI

efi64
 Posté le 23/01/2008 à 22:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir Gilbert.

Tout d'abord,merci pour ta réponse.

Je tente de te répondre,mais le "Neuf",comme d'habitude,fait des siennes.Un coup oui et des coups non.Bref,j'ai fait des recherches sur "google" parceque je ne comprends pas la "fonction" "on error go to".Et comme google ne marche pas,et que PC astuces passe,je me tourne vers toi pour comprendre cette "fonction".(c'est pas une fonction mais je ne sais pas comment il faut l'appeler !!!)

Bref,si tu peux m'éclairer,je suis preneur.

A+

Efi

Bérylion
 Posté le 23/01/2008 à 22:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien


Salut

ça permet d'éviter un "plantage" si y'a rien a imprimer.

mais yapa de raison...

on peut même raccourcir le truc du genre :

sub impr()
for i = 1 to 60
with activesheet
.cells(2,2).value = i
.printout
end with
end sub

mais le code de RGI reste () valable


gilbert_rgi
 Posté le 24/01/2008 à 09:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

Comme l'a dit Bérylion le "on error" sert uniquement dans le cas ou il n'y a rien dans la feuille2 à imprimer

voilà un classeur ICI en exemple (j'ai limité volontairement l'impression à deux modifier le code)

l'exemple de Bérylion imprime la feuille active

Cdlt

RGI

efi64
 Posté le 24/01/2008 à 19:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir à tous.

Merci pour vos réponses.

J'ai adapté vos codes et ça donne ça:

Sub imprim()
For i = 1 To 60
Feuil1.Range("b2").Value = i
Feuil1.PrintOut
Next
Exit Sub
End Sub

Merci encore

A+

Efi

gilbert_rgi
 Posté le 24/01/2008 à 19:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

le Exit Sub
n'est pas utile dans ce cas

RGI

efi64
 Posté le 24/01/2008 à 19:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Oui,merci;j'ai oublié de l'enlever ........

A+

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
89,99 €Liseuse Amazon Kindle Paperwhite avec éclairage intégré, WiFi, IPX8 à 89,99 €
Valable jusqu'au 20 Octobre

Amazon fait une superbe promotion sur la toute dernière version de sa liseuse Kindle Paperwhite (8ème génération) . Elle passe ainsi à 89,99 € au lieu de 129,99 € (avec offres spéciales) ou à 99,99 € au lieu de 139,99 € (sans offres spéciales). La livraison est gratuite.

Cette liseuse a de nombreux avantages notamment son écran d'excellente qualité. Elle est maintenant résistante à l'eau (IPX8), afin que vous puissiez lire en toute tranquillité à la plage, au bord de la piscine ou dans le bain. Cette liseuse dispose du WiFi, de l'affichage encre électronique et surtout d'un rétro éclairage intégré pratique pour lire confortablement, quelle que soit les conditions d'éclairage (la nuit, en plein soleil, ...). Pratique pour emmener votre bibliothèque partout avec vous ! 

Formats pris en charge : Kindle Format 8 (AZW3), Kindle (AZW), TXT, PDF, MOBI non protégé, PRC natif ; HTML, DOC, DOCX, JPEG, GIF, PNG, BMP converti. Vous pouvez également les fichiers Epub avec cette astuce.

La version avec offres spéciales (moins chère) affiche de la publicité pour des livres lors de la mise en veille de l'appareil (jamais pendant la lecture d'un livre). 


> Voir l'offre
31,99 €Enceinte connectée Amazon Echo Dot (4ème génération) avec assistant Alexa à 31,99 €
Valable jusqu'au 20 Octobre

Amazon fait une promotion sur l'enceinte Amazon Echo Dot (4ème génération) qui passe à 31,99 € (au lieu de 59,99 €). L'appareil piloté par la voix fonctionne avec Alexa, l’intelligence artificielle développée par Amazon. Vous pourrez avec elle écouter de la musique, interagir avec vos appareils domotiques, écouter les infos, la radio, connaître la météo et d’accéder à des milliers d’autres possibilités grâce aux Skills : recettes de cuisine, petits jeux, etc. Par rapport à la génération précédente, le son est amélioré et l'enceinte arbore un nouveau design. 


> Voir l'offre
179,99 €Fauteuil gaming Millenium G1-MGC à 179,99 €
Valable jusqu'au 20 Octobre

Fnac fait une promotion sur le fauteuil gaming Millenium G1-MGC qui passe à 179,99 € au lieu de 299 €. Ce fauteuil est doté d'un revêtement en similicuir particulièrement épais (2 mm) qui offre une assise confortable et une grande durabilité. Trouvez la position la plus adaptée pendant vos parties et appréciez le dossier inclinable du fauteuil Millenium Chair. Basculez jusqu'à 170° et profitez d'une pause bien méritée pour reprendre des forces. Vous pourrez même verrouiller l'inclinaison pour retrouver la position souhaitée à tout moment ! Quant aux accoudoirs 4D, vous allez pouvoir trouver la configuration qui vous conviendra le mieux et qui sera la plus confortable pour vous.


> Voir l'offre

Sujets relatifs
enregistrer plusieurs mail sur une meme page papie
imprimer la même ligne en tête de chaque page
TCD : plusieurs critères d'un même champ page
plusieurs feuilles sur une même page ?
imprimer plusieurs fichiers a la fois
Imprimer plusieurs fichier word en meme temps [res
Imprimer plusieurs photos par page A4 >>réso
impossible imprimer page à l'unité sur publipostage
Affichage du numéro de la page dans Word 2007
numéro de page avec libre office calc
Plus de sujets relatifs à Imprimer plusieurs fois la meme page,et les numéro
 > Tous les forums > Forum Bureautique