VBA pour imprimer une sheet Fermé

Question

Bonjour 
Je débute en VBA et j'aurai besoin de vos connaissances.
je souhaiterai qu'en fonction d'une cellule complétée sue la feuille 1, la feuille 2 ou 3 ou 4 ou 5 s'imprime.
Je m'explique 
Cellule A1 = "Tempo" => la feuille tempo s'imprime
Cellule A1 = "Perm" => la feuille perm s'imprime
Cellule A1 = "Grille" => la feuille grille s'imprime
Cellule A1 = "Grille + Tempo" => les feuilles Grille et Tempo s'impriment
Est-ce possible?
Merci

f894009 · Answer

Bonjour,

adaptez le nom de la feuille:

nom separes par +

Sub Impression()
    Dim TSheets
    
    With Worksheets("feuil1")
        'recherche d'au moins un +
        If InStr(1, .Range("A1"), "+") Then
            'mise en tableau des onglet a imprimer
            TSheets = Split(Worksheets("feuil1").Range("A1"), "+")
            'boucle pour impression
            For x = 0 To UBound(TSheets)
                'Trim pour enlever les espaces devant ou/et derriere le nom d'onglet
                Worksheets(Trim(TSheets(x))).PrintOut Copies:=1
            Next x
        ElseIf .Range("A1") <> "" Then      ' un seul onglet
            Sheets(Trim(.Range("A1"))).PrintOut Copies:=1
        End If
    End With
End Sub

VBA pour imprimer une sheet

1 réponse

Discussions similaires