Imprimer une feuille avec plusieurs date

[MAZETTE]

Bonjour à tous,

Je sollicite votre science pour m'aider à finir cette macro.

L'idée:

Imprimer une feuille comportant des données mais avec des dates différentes.

La date est choisi par l'utilisateur via un bouton et se retrouve en I3
Le nombre de Feuille à imprimer est choisi par l'utilisateur via un bouton et se retrouve en A1.

Jusque là...pas de souci...

Mon problème est que :

Si l'utilisateur choisi 5 feuille, la macro devra imprimer cette feuille avec 5 dates différentes

Ex: nous sommes le 05/10

Si l'utilisateur choisi 3 alors la macro va imprimer cette feuille en date du :
05/10
06/10
07/10

Je vous met un bout de fichier ...et encore merci pourle coup de main.

 

[Gael]

Re : Imprimer une feuille avec plusieurs date

Bonsoir Mazette,

Essaye le code suivant:

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

 

[MAZETTE]

Re : Imprimer une feuille avec plusieurs date

Bonjour Gael,

C'est tout à fait ça

Merci à toi et bonne fin de journée

 

[MAZETTE]

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

 

[MAZETTE]

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

 

[Paritec]

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

 

[Paritec]

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

 

[Paritec]

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

 

[MAZETTE]

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

 

[Paritec]

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 🙂