× 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
279,99 €Ecran ultra large LG 34 pouces 34WL50S-B à 279,99 €
Valable jusqu'au 31 Octobre

Amazon propose actuellement l'écran 34 pouces LG 34WL50S-B à 279,99 € livré gratuitement alors qu'on le trouve à partir de 400 € ailleurs. Cet écran ultra large est au format 21/9, possède une dalle IPS et offre une résolution de 2560 x 1080 pixels. Avec lui, vous pourrez bénéficier d'une plus grande immersion dans les jeux et les films. Cet écran est compatible FreeSync.


> Voir l'offre
54,99 €Microsoft Flight Simulator à 54,99 €
Valable jusqu'au 03 Novembre

Amazon fait une promotion sur le tout nouveau Microsoft Flight Simulator sur PC qui passe à 54,99 € livré gratuitement au lieu de 69,99 €. La boite contient les 10 DVD du jeu.


> Voir l'offre
87,99 €Disque dur Western Digital Red 4 To à 87,99 €
Valable jusqu'au 31 Octobre

Cdiscount propose actuellement le disque dur Western Digital Red 4 To à 87,99 € livré gratuitement alors qu'on le trouve ailleurs autour de 125 €. Ce disque dur 3.5 pouces SATA III est adapté aux NAS et ordinateurs qui fonctionnent 24h/24.


> 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