Imprimer une feuille avec plusieurs date

Gael

XLDnaute Barbatruc

• 5 Octobre 2008

• #2

Re : Imprimer une feuille avec plusieurs date

Bonsoir Mazette,

Essaye le code suivant:

Code:

Sub Imprimer()
'
' Macro2 Macro
' Macro enregistrée le 05/10/2008 par Zimour
'
Dim i As Integer
'Indiquer le nombre de Feuille à Imprimer
Range("A1").FormulaR1C1 = InputBox("Indiquer le nombre de Feuille à Imprimer ")
If Range("A1").Value <= 0 Then
    If Range("A1") = "" Then
    MsgBox "Merci de renseigner le nombre de Feuille "
    End If
End If
For i = 1 To Range("A1").Value
    
    ActiveWindow.SelectedSheets.PrintOut
    Range("I3").Value = Range("I3").Value + 1
Next i
End Sub

@+

Gael

 

Vote positif 0 Vote négatif

MAZETTE

XLDnaute Occasionnel

• 5 Octobre 2008

• #3

Re : Imprimer une feuille avec plusieurs date

Bonjour Gael,

C'est tout à fait ça

Merci à toi et bonne fin de journée

 

Vote positif 0 Vote négatif

MAZETTE

XLDnaute Occasionnel

• 7 Novembre 2009

• #4

Re : Imprimer une feuille avec plusieurs date

Bonjour bonjour le forum,

Je me permet de réouvrir ce fil avec une nouvelle variante suite à l'aide qui m'avait été apporté par Gael sur la macro suivante.

Code:
Sub Imprimer()'' Macro2 Macro' Macro enregistrée le 05/10/2008 par Zimour'Dim i As Integer'Indiquer le nombre de Feuille à ImprimerRange("A1").FormulaR1C1 = InputBox("Indiquer le nombre de Feuille à Imprimer ")If Range("A1").Value <= 0 Then If Range("A1") = "" Then MsgBox "Merci de renseigner le nombre de Feuille " End IfEnd IfFor i = 1 To Range("A1").Value ActiveWindow.SelectedSheets.PrintOut Range("I3").Value = Range("I3").Value + 1Next iEnd Sub
La dernière ligne de code incrémente automatiquement les dates de chaque feuilles de +1 mais ce que je souhaiterai maintenant c'est incrémenté chaque feuille avec les dates se trouvant sur la feuille "DATE"

Merci à vous pour le coup de main

 

Pièces jointes

• essai.zip

  16.1 KB · Affichages: 58
• essai.zip

  16.1 KB · Affichages: 54
• essai.zip

  16.1 KB · Affichages: 54

Vote positif 0 Vote négatif

MAZETTE

XLDnaute Occasionnel

• 7 Novembre 2009

• #5

Re : Imprimer une feuille avec plusieurs date

Re à tous le forum,

J'ai essayer un truc de ce genre en m'aidant de l'enregistreur de maco

Sub Macro1()
'
'
'
Dim i As Variant

For i = 20 To 1 Step -1

Sheets("Date").Select
Range("B" & i).Select
Selection.Copy
Sheets("Feuil1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

i = i - 1
Next i


End Sub

Mais le truc est que je me retrouve avec toujours la meme date de selectionné .

Si quelqu'un avait une soluce ...

Merci à vous

 

Pièces jointes

• Classeur1.zip

  8.1 KB · Affichages: 55
• Classeur1.zip

  8.1 KB · Affichages: 55
• Classeur1.zip

  8.1 KB · Affichages: 57

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 7 Novembre 2009

• #6

Re : Imprimer une feuille avec plusieurs date

Bonsoir Mazette le forum,
tu la veux ou la date dans tes feuilles copiées?
dans l'attente de ta réponse
a+
papou

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 7 Novembre 2009

• #7

Re : Imprimer une feuille avec plusieurs date

Bonsoir Mazette le forum,
je crois que j'ai compris ce que tu veux essayes le fichier joint et dis moi
a+
papou

 

Pièces jointes

• ClasseurMazette.xls

  31 KB · Affichages: 118

Dernière édition: 7 Novembre 2009

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 7 Novembre 2009

• #8

Re : Imprimer une feuille avec plusieurs date

Re bons oir Mazette le forum,
il faut même ajouter une condition si tu as des lignes vides
Sub Macro1()
Dim i As Integer
With Sheets("Date")
For i = 20 To 2 Step -1
If Feuil2.Cells(i, 2) <> "" Then
Feuil1.Cells(4, 3) = Feuil2.Cells(i, 2)
Feuil1.PrintOut
Else
End If
Next i
End With
End Sub
bonne soirée
papou

 

Dernière édition: 7 Novembre 2009

Vote positif 0 Vote négatif

MAZETTE

XLDnaute Occasionnel

• 8 Novembre 2009

• #9

Re : Imprimer une feuille avec plusieurs date

Bonjour Papou,

Après un test c'est bien ce que je voulais...malgré mes explication peu claire car il s'agit en fit d'une impression multiple de la feuille avec des dates différentes.

J'avai ecrit ce code de mon coté:

Dim i As Variant

For i = 20 To 1 Step -1

Sheets("Feuil2").Select
Range("B" & i + 1).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("B2:L2").Select
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next i

qui lui aussi fonctionne bien mais le tien à tout de même l'avantage d'être simple et beaucoup plus simple.

Merci à toi

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 8 Novembre 2009

• #10

Re : Imprimer une feuille avec plusieurs date

Bonjour Mazette,
voilà une autre version ou à ta boucle commence à la dernière ligne de ta colonne date, d'ailleurs pourquoi faire un step-1 ?
bref j'ai répondu là dessus mais bon
voilà essayes le nouveau et dis-moi
a+
papou 🙂

 

Pièces jointes

• ClasseurMazette2.xls

  32 KB · Affichages: 114

Vote positif 0 Vote négatif