VBA imprimer une feuille en fonction d'une cellule
ross57100
Messages postés
16
Statut
Membre
-
ross57100 Messages postés 16 Statut Membre -
ross57100 Messages postés 16 Statut Membre -
Bonjour,
Je suis débutant en VBA et j'ai besoin de votre aide.
J'ai un classeur excel composé de 40 feuilles.
Dans les cellules A1 et B1 de ma feuille nommée "A COMPLETER" se trouvent les noms de la ou des feuilles de calcul à imprimer.
Exemple :
si A1 = "GB TEMP" et A2 ="FR TEMP"
Imprimer les feuilles GB TEMP et FR TEMP
Si A1 ="GB TEMP" et A2 est vide
Imprimer la feuille "GB TEMP"
Comment puis-je procéder afin de créer une macro qui automatiserait ?
Merci pour votre aide.
Je suis débutant en VBA et j'ai besoin de votre aide.
J'ai un classeur excel composé de 40 feuilles.
Dans les cellules A1 et B1 de ma feuille nommée "A COMPLETER" se trouvent les noms de la ou des feuilles de calcul à imprimer.
Exemple :
si A1 = "GB TEMP" et A2 ="FR TEMP"
Imprimer les feuilles GB TEMP et FR TEMP
Si A1 ="GB TEMP" et A2 est vide
Imprimer la feuille "GB TEMP"
Comment puis-je procéder afin de créer une macro qui automatiserait ?
Merci pour votre aide.
1 réponse
-
Bonjour,
Essaie cette macroSub Imprimer()
Dim Ligne As Byte
Dim Ws As Worksheet
With Worksheets("A COMPLETER")
For Ligne = 1 To 2
On Error Resume Next
Set Ws = Worksheets(.Range("A" & Ligne).Value)
On Error GoTo 0
If Not Ws Is Nothing Then
Ws.PrintOut
Set Ws = Nothing
End If
Next Ligne
End With
End Sub
A+
