VBA imprimer une feuille en fonction d'une cellule

ross57100 Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -  
ross57100 Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

Essaie cette macro 
Sub 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+
0
ross57100 Messages postés 16 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Gyrus
0

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

4 réponses
Excel : colorer une cellule sous condition d'une autre ?
KAKEPATHEL -
Pascal -

15 réponses
[Excel 2010] Remplir cellule d'après contenu d'une autre
nlbmoi -
amelie -

8 réponses
Excel : Remplir une cellule en fonction d'une autre
Alexisarnx -
votre psychiatre -

3 réponses
Changer la couleur d'une cellule en fonction d'une autre cellule
Emilie9457 -
Mike-31 -

3 réponses