Impression par vba

Le
Sunburn
Bonjour,
j'ai un userform qui me va très bien pour l'impression. j'ai ce code qui me
permet d'imprimer les page 2 à 12 si y'a pas "N/A" en A4, et je voudrais
l'adapter pour avoir non pas les pages 2 à 12, mais les feuilles "GA02",
"GA03", "GA07", "GA09".
Merci d'avance.
j'ai essayé avec un With i = Sheets("GA01", "GA02") sans succès
Merci.
YANN

Case "Le dossier général"
'imprime le dossier général de la page 2 à la page 12
For i = 2 To 12
Set Sh = Sheets(i)
If Not UCase(Trim(Sh.Cells(4, 1).Value)) = "NA" Then
Debug.Print Sh.Name
memVisible = Sh.Visible
Sh.Visible = True
Sh.PrintOut
Sh.Visible = memVisible
End If
Next
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Corto
Le #17774461
Bonjour Sunburn,
Essaye comme ça :
For each sh in Sheets(Array("GA01", "GA02", "GA03", "GA07", "GA09"))
If Not UCase(Trim(Sh.Cells(4, 1).Value)) = "NA" Then
..........
End If
Next

Corto

Sunburn a écrit :
Bonjour,
j'ai un userform qui me va très bien pour l'impression. j'ai ce co de qui me
permet d'imprimer les page 2 à 12 si y'a pas "N/A" en A4, et je vo udrais
l'adapter pour avoir non pas les pages 2 à 12, mais les feuilles " GA02",
"GA03", "GA07", "GA09".
Merci d'avance.
j'ai essayé avec un With i = Sheets("GA01", "GA02") sans succès
Merci.
YANN
------
Case "Le dossier général"
'imprime le dossier général de la page 2 à la page 1 2
For i = 2 To 12
Set Sh = Sheets(i)
If Not UCase(Trim(Sh.Cells(4, 1).Value)) = "NA" Then
Debug.Print Sh.Name
memVisible = Sh.Visible
Sh.Visible = True
Sh.PrintOut
Sh.Visible = memVisible
End If
Next
------



Sunburn
Le #17774771
Impecable, merci.
YANN

"Corto" a écrit :

Bonjour Sunburn,
Essaye comme ça :
For each sh in Sheets(Array("GA01", "GA02", "GA03", "GA07", "GA09"))
If Not UCase(Trim(Sh.Cells(4, 1).Value)) = "NA" Then
..........
End If
Next

Corto

Sunburn a écrit :
> Bonjour,
> j'ai un userform qui me va très bien pour l'impression. j'ai ce code qui me
> permet d'imprimer les page 2 à 12 si y'a pas "N/A" en A4, et je voudrais
> l'adapter pour avoir non pas les pages 2 à 12, mais les feuilles "GA02",
> "GA03", "GA07", "GA09".
> Merci d'avance.
> j'ai essayé avec un With i = Sheets("GA01", "GA02") sans succès
> Merci.
> YANN
> ------
> Case "Le dossier général"
> 'imprime le dossier général de la page 2 à la page 12
> For i = 2 To 12
> Set Sh = Sheets(i)
> If Not UCase(Trim(Sh.Cells(4, 1).Value)) = "NA" Then
> Debug.Print Sh.Name
> memVisible = Sh.Visible
> Sh.Visible = True
> Sh.PrintOut
> Sh.Visible = memVisible
> End If
> Next
> ------
>



isabelle
Le #17774761
bonjour Yann,

liste = Array(2, 3, 7, 9)
For Each a In liste
Set sh = Sheets("GA0" & a)

isabelle

Sunburn a écrit :
Bonjour,
j'ai un userform qui me va très bien pour l'impression. j'ai ce code qui me
permet d'imprimer les page 2 à 12 si y'a pas "N/A" en A4, et je voudrais
l'adapter pour avoir non pas les pages 2 à 12, mais les feuilles "GA02",
"GA03", "GA07", "GA09".
Merci d'avance.
j'ai essayé avec un With i = Sheets("GA01", "GA02") sans succès
Merci.
YANN
------
Case "Le dossier général"
'imprime le dossier général de la page 2 à la page 12
For i = 2 To 12
Set Sh = Sheets(i)
If Not UCase(Trim(Sh.Cells(4, 1).Value)) = "NA" Then
Debug.Print Sh.Name
memVisible = Sh.Visible
Sh.Visible = True
Sh.PrintOut
Sh.Visible = memVisible
End If
Next
------



Publicité
Poster une réponse
Anonyme