Bonjour
Je voudrais réaliser un filtre en VBA avec une ou deux condition. Des que je valide le filtre je veux obtenir un aperçu prêt à être imprimé.
Déjà je ne sais même pas si cela est possible
J'explique:
-J'ai une première feuille (feuil1) qui est renseigner par des opérateurs.
-Sur ma deuxième feuille je reporte les informations de la feuil1 avec une mise en page différente et des conditions.
Ce que j'aimerais c'est d'avoir un aperçu (avant impression) de ma feuille2 mais avec des filtres, à savoir suivant un mois et/ou suivant un poste.
Pour cela je pensais appeler un UserForm avec choix du mois et/ou du poste, valider et tombé sur un aperçu de la feuille 2 filtré.
Bon il me semble que je suis loin d'avoir trouvé la solution
Je par de ce code:
Déjà pensez vous que cela est réalisable ?
Je joint ma première esquisse...
Merci par avance.
Je voudrais réaliser un filtre en VBA avec une ou deux condition. Des que je valide le filtre je veux obtenir un aperçu prêt à être imprimé.
Déjà je ne sais même pas si cela est possible
J'explique:
-J'ai une première feuille (feuil1) qui est renseigner par des opérateurs.
-Sur ma deuxième feuille je reporte les informations de la feuil1 avec une mise en page différente et des conditions.
Ce que j'aimerais c'est d'avoir un aperçu (avant impression) de ma feuille2 mais avec des filtres, à savoir suivant un mois et/ou suivant un poste.
Pour cela je pensais appeler un UserForm avec choix du mois et/ou du poste, valider et tombé sur un aperçu de la feuille 2 filtré.
Bon il me semble que je suis loin d'avoir trouvé la solution
Je par de ce code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Sheets("Feuil2")
.Range("A5:F5").Select
Selection.AutoFilter
Selection.AutoFilter Field:=9, Criteria1:=" ??? "
ActiveWindow.SelectedSheets.PrintPreview 'Pour Aperçu
' ActiveWindow.SelectedSheets.PrintOut 'Pour Imprimier
Selection.AutoFilter
Range(" ??? ").Select
End With
Application.ScreenUpdating = True
End Sub
Déjà pensez vous que cela est réalisable ?
Je joint ma première esquisse...
Merci par avance.