× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Macro pour imprimer une listeSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
PATRICE76
  Posté le 29/01/2009 @ 13:23 
Aller en bas de la page 
Petit astucien

Bonjour à tous

suivant liste ci dessous

qui peut me faire une macro pour imprimer le nom, prenom, congé et ancienneté sur une feuille A4 et repeté à chaque nom ?

Nom Prenom Congé Anciennete

a aa 30 1

b bb 30 3

Merci d'avance

Publicité
Marmotte18
 Posté le 29/01/2009 à 15:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour PATRICE76,

Si j'ai bien compris ta demande, c'est de changer de page pour chaque nom en portant 2 lignes :

  • la ligne de titres (Nom, prénom, congés, ancienneté)
  • la donnée correspondante à chacun de ces 4 titres

Merci de bien vouloir confirmer ce point.

Par ailleurs, pour t'aider utilement, il serait bon de nous faire parvenir un petit fichier avec des données factices. Utilise, par exemple le lien http://cjoint.com/ pour nous faire cela.

PATRICE76
 Posté le 29/01/2009 à 15:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

En fait, il s'agit de faire des fiches de congés payés ou il y a un champ nom, un champ prénom, un champ congés et un champ ancienneté...Et faire cela à chaque changement de nom...J'espere que le lien fonctionne!!!!

http://cjoint.com/?bFpGuZbpa7

vieuxmonsieur
 Posté le 29/01/2009 à 15:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour Marmotte18, Patrice76,

Désolé de vous apostropher ainsi, c'est juste pour vous demander de bien vouloir privilégier Cijoint.fr à la place de Cjoint.com

car sur Cijoint les fichiers ne sont pas effacés et ca permet de suivre plus facilement les différentes étapes.

En te remerciant.

Marmotte18
 Posté le 29/01/2009 à 16:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour vieuxmonsieur,

Je ne comprends pas vraiment tes arguments sur le choix de Cijoint.fr par rapport à Cjoint.com car si les fichiers étaient effacés régulièrement, il y a longtemps que je n'aurai plus mon avatar, ni ma signature et je n'ai jamais eu besoin de les refaire depuis le temps que je suis sur ce forum.

Marmotte18
 Posté le 29/01/2009 à 16:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

PATRICE76,

Ton lien fonctionne bien mais j'aurai préféré la transmission d'un fichier Excel plutôt qu'une image car cela oblige les intervenants à reconstituer chacun de leur côté, le fichier en fonction des données affichées sur ton image.

Ci-joint un fichier qui peut servir aux intervenants : http://cjoint.com/?bFqLCRWZQf



Modifié par Marmotte18 le 29/01/2009 16:37
Bérylion
 Posté le 29/01/2009 à 16:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut

pour être précis (dans un souci d'efficacité), il nous faut un classeur avec en feuille 1 un modèle de fiche de congé et en feuille 2 un modèle de liste.

à partir de ça c'est du gateau...

PATRICE76
 Posté le 29/01/2009 à 16:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bérylion
 Posté le 29/01/2009 à 16:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut la marmotte,

j'avais pas vu ton modèle (t'as éditer ton post )

c'est pas mal, mais ça nous dit pas ce qu'il faut en faire !!

d'ou un besoin du modèle de la "fiche de congé" pour savoir ou injecter les données de la liste avant d'envoyer la rafale vers l'imprimante...

Publicité
PATRICE76
 Posté le 29/01/2009 à 16:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bérylion
 Posté le 29/01/2009 à 16:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut

une proposition ici : http://cjoint.com/?bFq3Y188q6

il faut sélectionner TOUS les noms, et lancer la macro (attention, ça imprime !!)

Bérylion
 Posté le 29/01/2009 à 17:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

PATRICE76 a écrit :

et là?

http://cjoint.com/?bFq062YMjJ

La même en couleur : http://cjoint.com/?bFreD1ZjQe

Marmotte18
 Posté le 29/01/2009 à 17:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour tout le monde,

J'arrive après la bagarre !

Voici quand même ma solution : http://cjoint.com/?bFri0YUafG

Cela s'appuie sur la macro suivante :

Sub FicheCongés()

Dim NbeFiches As Integer, N As Integer

'Calcul du nombre de fiches
'--------------------------
NbeFiches = Range("a65536").End(xlUp).Row - 1
Sheets("Fiches").Select

'Effacement de la fiche précédente
'---------------------------------
Range("Données").ClearContents

'Remplissage des fiches
'----------------------
For N = 1 To NbeFiches
With Sheets("Base")
Range("B1") = .Cells(N + 1, 1)
Range("B2") = .Cells(N + 1, 2)
Range("B4") = .Cells(N + 1, 3)
Range("B5") = .Cells(N + 1, 4)
End With

'Impression de la fiche
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next N

'Retour à la feuille "Base"
'--------------------------
Sheets("Base").Select
Range("B1").Select
MsgBox "Edition de " & NbeFiches & " fiches de congés"

End Sub

PATRICE76
 Posté le 29/01/2009 à 17:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci à tous..c'est ok..Clair et precis

Juste une dernière petite question...si je n'ai que 2 ou 3 fiches à faire ou à refaire, comment je selectionne les noms?

Merci

Bérylion
 Posté le 29/01/2009 à 17:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

PATRICE76 a écrit :

Merci à tous..c'est ok..Clair et precis

Juste une dernière petite question...si je n'ai que 2 ou 3 fiches à faire ou à refaire, comment je selectionne les noms?

Merci

re-

à la main !

(ça ira plus vite...)

Marmotte18
 Posté le 29/01/2009 à 18:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

PATRICE76,

J'ai rajouté un 2ème bouton pour faire des impressions à l'unité. Dans ce cas, il faut d'abord cliquer sur le nom souhaité avant de cliquer sur le bouton "Une fiche"

Ci-joint le fichier aménagé : http://cjoint.com/?bFsgLRY

Il s'appuie non seulement sur la 1ère macro décrite plus haut mais aussi sur celle-ci :

Sub UneFiche()

Dim Ligne As Integer
Ligne = ActiveCell.Row

'Effacement de la fiche précédente
'---------------------------------
Sheets("Fiches").Select
Range("Données").ClearContents

'Remplissage de la fiche
'-----------------------
With Sheets("Base")
Range("B1") = .Cells(Ligne, 1)
Range("B2") = .Cells(Ligne, 2)
Range("B4") = .Cells(Ligne, 3)
Range("B5") = .Cells(Ligne, 4)
End With

'Impression de la fiche
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

'Retour à la feuille "Base"
'--------------------------
Sheets("Base").Select
Range("A1").Select

End Sub



Modifié par Marmotte18 le 29/01/2009 18:09
PATRICE76
 Posté le 29/01/2009 à 22:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci Marmotte18, cest ok

C'est plus facile qu'à la main, hein Bérylion ..@+

Publicité
vieuxmonsieur
 Posté le 29/01/2009 à 23:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

re,

différence entre cjoint et cijoint :

http://cjoint.com/

La taille des documents téléchargés est pour le moment limitée à 500 Ko.
Nous hébergerons vos photos, fichiers, url et adresse email durant une période de 21 jours.

http://www.cijoint.fr/

La taille des fichiers est limitée à 8 Mo et le délai de garde est illimité.

cordialement

vieuxmonsieur
 Posté le 30/01/2009 à 00:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

re,

essayez de cliquez sur les liens de ce post :

Posté le 20/12/2008 à 17:11 par vedene

Bonjour


Personne pour m'aider ?

je bricole sur mon fichier depuis deux jours.

Le http://cjoint.com/?mur1LyytAO ">voici dans sont état lamentable

Ah encore une chose, c'est fait sous excel 2007

ou http://cjoint.com/?mur44Wt1tc">ici pour excel 2003

Dites moi au moins si vous pouvez m'aider.

Merci d'avance et bonne journée

Marmotte18
 Posté le 30/01/2009 à 17:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour vieuxmonsieur,

Je vais regarder de plus prêt ton conseil. Par contre, cela ne m'explique pas pourquoi ma signature et mon avatar restent toujours visibles et ceci depuis de nombreuses années.

vieuxmonsieur
 Posté le 30/01/2009 à 20:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonsoir Marmotte18, le forum,

je ne puis hélas te donner aucune explication au sujet de ta signature, mais te remercie pour chacun de nous concernant ma suggestion de cijoint.fr

en te souhaitant une très bonne soirée et continuation sur ce forum.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
54,99 €Liseuse Amazon Kindle avec éclairage frontal à 54,99 €
Valable jusqu'au 29 Novembre

Amazon fait une promotion sur sa nouvelle liseuse Kindle qui passe à 54,99 € livrée gratuitement. Cette version est équipée d'un écran tactile à encre électronique qui a l'apparence du papier et se lit comme un livre papier. Elle possède maintenant un éclairage frontal réglable vous permet de lire confortablement pendant des heures, à l'intérieur et à l'extérieur, de jour comme de nuit. Elle possède le WiFi ainsi qu'un port MicroUSB. Cette version peut afficher des publicités discrètes pendant sa mise en veille. Pour ne pas les avoir, vous devez vous tourner vers la version Sans offres spéciales qui coûte 64,99 €. Elle peut lire les fichiers ePub en suivant cette astuce.


> Voir l'offre
172,99 €SSD Crucial MX500 2 To à 172,99 €
Valable jusqu'au 28 Novembre

Amazon propose actuellement le SSD Crucial MX500 2 To à 172,99 € livré. On le trouve ailleurs à partir de 220 €. Ce SSD salué par la critique par son rapport qualité prix imbattable offre des débits de 560 Mo/s en lecture et 510 Mo/s en écriture. Il est garanti 5 ans.


> Voir l'offre
1169 €TV 55 pouces LG 55BX6LB 2020 (4K, OLED, FullHD, 10 bits) à 1169 €
Valable jusqu'au 28 Novembre

Amazon fait une promotion sur l'excellente TV 55 pouces (140 cm) OLED LG 55BX6LB 2020 à 1169 € livrée gratuitement au lieu de 1500 €. Offrant un noir absolu et des couleurs riches, ce modèle 4K vous invite dans un monde exceptionnel pour un divertissement inoubliable. La version 65 pouces (


> Voir l'offre

Sujets relatifs
VBA macro avec formule si( pour imprimer
raccourci ou macro pour imprimer avec options ?
Macro Pour Liste Déroulante
une macro pour trier les homonymes d'une liste
macro pour comparer 2 listes
Creation d' une boucle macro dans fichier EXCEL pour impression
Macro pour word 2013
Macro pour raccourci impression
Imprimer une liste de videos d'un dossier.
Macro pour ouverture d'un fichier Excel
Plus de sujets relatifs à Macro pour imprimer une liste
 > Tous les forums > Forum Bureautique