Comment imprimer certaines pages ou feuilles de calcul en fonction de la valeur d'une cellule dans Excel ?
Avez-vous déjà eu besoin d'imprimer des pages spécifiques ou des feuilles de calcul dans Excel en fonction de la valeur d'une cellule ? Que ce soit pour imprimer un numéro de page particulier ou une feuille de calcul entière lorsque qu'une condition est remplie, ce guide fournit des méthodes étape par étape pour y parvenir.
Imprimer une page spécifique en fonction de la valeur d'une cellule avec un code VBA
Imprimer une feuille de calcul spécifique en fonction de la valeur d'une cellule avec un code VBA
Imprimer une page spécifique en fonction de la valeur d'une cellule avec un code VBA
Par exemple, vous souhaitez qu’une certaine page, comme la page 1 de la feuille de calcul actuelle, soit automatiquement imprimée lorsque vous entrez le numéro de page 1 dans la cellule A1 de la feuille de calcul actuelle. Vous pouvez procéder comme suit 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 for Applications. Ensuite, cliquez sur Insertion > Module.
2. La fenêtre Microsoft Visual Basic for Applications s’ouvre alors, copiez et collez 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 for Excel qui apparaît, cliquez sur le bouton Oui pour imprimer la page spécifique, ou cliquez sur le bouton Non pour fermer la boîte de dialogue si vous ne voulez pas imprimer. Voir capture d'écran :
Ensuite, la fenêtre d'aperçu de la page spécifique de la feuille de calcul actuelle s'ouvre, veuillez cliquer sur le bouton Imprimer pour commencer l'impression.
Imprimer une page spécifique en fonction de la valeur d'une cellule avec un code VBA
Supposons que vous souhaitiez imprimer la feuille de calcul active lorsque la valeur dans la cellule B2 de cette feuille est égale au nombre 1001. Vous pouvez y parvenir avec le code VBA suivant. Veuillez procéder comme suit.
1. Cliquez avec le bouton droit sur l'onglet 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 for Applications s’ouvre alors, copiez et collez le code VBA suivant dans la fenêtre Code.
Code VBA : Imprimer une feuille de calcul 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 modifier la cellule et la valeur de la cellule dans le code selon vos besoins.
3. Appuyez sur Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.
Lorsque vous saisissez le nombre 1001 dans la cellule B2, une boîte de dialogue Kutools for Excel apparaît, veuillez cliquer sur le bouton Oui pour démarrer l'impression. Ou cliquez 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. Profitez de fonctionnalités IA gratuites en permanence ! Obtenez-le maintenant
Articles connexes :
- 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é pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels