Comment imprimer certaines pages ou une feuille de calcul selon la valeur d’une cellule dans Excel ?
Vous est-il déjà arrivé de devoir imprimer des pages ou des feuilles de calcul spécifiques dans Excel en fonction de la valeur d’une cellule ? Qu’il s’agisse d’imprimer une page précise ou une feuille entière dès qu’une condition est remplie, ce guide vous propose des méthodes claires et détaillées pour y parvenir facilement.
Imprimer une page spécifique en fonction de la valeur d’une cellule avec du code VBA
Imprimer une feuille spécifique en fonction de la valeur d’une cellule avec du code VBA
Imprimer une page spécifique en fonction de la valeur d’une cellule avec du code VBA
Par exemple, vous souhaitez que la page 1 de la feuille de calcul actuelle soit imprimée automatiquement dès que vous saisissez le numéro 1 dans la cellule A1 de cette même feuille. Voici comment procéder pour y parvenir.
1. Sélectionnez la cellule contenant le numéro de page que vous souhaitez imprimer, puis appuyez simultanément sur les touches Alt et F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications. Cliquez ensuite sur Insertion > Module.
2. La fenêtre Microsoft Visual Basic pour Applications s’ouvre alors. Veuillez copier et coller le code VBA suivant dans la fenêtre Code.
Code VBA : Imprimer une page en fonction de la valeur d’une cellule
Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
xPage = .Value
Else: MsgBox "Please specify a cell and enter a page in cell"
Exit Sub
End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
Exit Sub
End If
End Sub3. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools pour Excel qui s’ouvre, cliquez sur le bouton Oui pour imprimer la page concernée, ou sur le bouton Non pour fermer la boîte de dialogue sans imprimer. Voir capture d’écran :
La fenêtre d’aperçu de la page concernée de la feuille de calcul actuelle s’ouvre alors. Cliquez sur le bouton Imprimer pour lancer l’impression.
Imprimer une page spécifique en fonction de la valeur d’une cellule avec du code VBA
Supposons que vous souhaitiez imprimer la feuille active dès que la valeur de la cellule B2 de cette même feuille atteint 1001. Voici comment procéder à l’aide du code VBA suivant.
1. Cliquez avec le bouton droit sur l’onglet de la feuille que vous souhaitez imprimer en fonction de la valeur d’une cellule, puis cliquez sur Afficher le code dans le menu contextuel.
2. La fenêtre Microsoft Visual Basic pour Applications s’ouvre alors. Veuillez copier et coller le code VBA suivant dans la fenêtre Code.
Code VBA : Imprimer une feuille en fonction de la valeur d’une cellule
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
If xCell.Value = 1001 Then
xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut
Else
Exit Sub
End If
End If
End Sub
Remarque : Vous pouvez adapter la cellule et sa valeur dans le code selon vos besoins.
3. Appuyez sur Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications.
Lorsque vous saisissez le nombre 1001 dans la cellule B2, une boîte de dialogue Kutools pour Excel s’ouvre. Cliquez sur le bouton Oui pour lancer l’impression, ou sur le bouton Non pour fermer directement la boîte de dialogue sans imprimer. Voir capture d’écran :
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant
Articles associés:
- Comment créer une zone d’impression dynamique dans Excel ?
- Comment imprimer uniquement la dernière page d’une feuille de calcul dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels