Rapport activité
Bonsoir,
j'ai trouvé sur ce forum, un fichier qui correspond tout à fait à mes attentes à quelques détails prés :
Je souhaite en effet imprimer, non pas une feuille/date , mais toute les feuilles à date selectionnée dans le userform
et le code ne permet que d'imprimer la feuille active.
exemple, je sélectionne le 25/7 et le rapport permet de récupérer toutes les lignes renseignées en date du 25/7
renseignées sur chaque feuille du classeur ( en PJ)
en vous remerciant par avance.
P.
Pour compléter ,
Que dois je changer dans ces lignes pour que, lorsque je sélectionne une date,
la macro autorise l'impression d'un rapport qui concerne plusieurs feuilles (nom d'onglets différents)
comportant des lignes concernées par la date requêtée ?
merci pour votre aide.
Option Explicit
Dim ln&, derLn&, dico As Object
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Range("2:" & derLn).EntireRow.Hidden = True
For ln = 2 To derLn
If CStr(Range("A" & ln)) = ComboBox1 Then
Rows(ln & ":" & ln).EntireRow.Hidden = False
End If
Next ln
Sheets("Rapport").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Unload Me
Cells.EntireRow.Hidden = False
End Sub
Private Sub UserForm_initialize()
Cells.EntireRow.Hidden = False
derLn = Range("A" & Rows.Count).End(xlUp).Row
Set dico = CreateObject("Scripting.Dictionary")
For ln = 2 To derLn
dico(CStr(Range("A" & ln))) = ""
Next ln
ComboBox1.List = Application.Transpose(dico.keys)
End Sub
Bonjour et merci beaucoup !
je touche le Graal .
Est il possible de ne faire qu'une impression (1 feuille),
reprenant chaque ligne de chaque feuille ( rapport 1, 2, 3 etc..) concerné par la
date sélectionnée dans le userform?
Merci.
Ph.