Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Impression par vba

Impression par vba

3 réponses
Avatar
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
------
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Corto
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
------



Avatar
Sunburn
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
> ------
>



Avatar
isabelle
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
------