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 Sub

3. 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 :

Astuce : Si vous souhaitez imprimer directement des pages non consécutives telles que les pages 1, 6 et 9 dans la feuille de calcul actuelle, ou n'imprimer que toutes les pages paires ou impaires, vous pouvez essayer l'utilitaire Imprimer les pages spécifiées de Kutools for Excel comme indiqué dans la capture d'écran ci-dessous.

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 ?